Foros Club Delphi - Error 103 I/O

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Error 103 I/O (https://www.clubdelphi.com/foros/showthread.php?t=59918)

Tengo un programa que debe imprimir a un puerto "LPT1" en red. Pero siempre me da el error 103 a la hora de imprimir. Alguien puede indicarme como lo corrijo

Como ejemplo envio este string: \\servidor\LPT1

Cita:

Empezado por IoResult

103 - File not open
Reported by CloseFile, Read Write, Seek, Eof, FilePos, FileSize, Flush, BlockRead, or BlockWrite if the file is not open.

Talvez si nos muestras tu codigo...

ejemplo del codigo

Código Delphi [-]procedure imprimir();
var
  Archivo: TextFile;
begin
  {$I-}
  AssignFile(Archivo, '\\Servidor\LPT1');
  {$I+}
  Rewrtite(Archivo);
  Writeln(Archivo, 'Prueba');
  CloseFile(Archivo);
end;

Siempre devuelve el error 103. Nota el LPT1 es el puerto a donde esta conectada la impresora en el Servidor.

Código Delphi [-]procedure Imprimir;
var Archivo: TextFile;
begin
 AssignFile(Archivo, '\\Servidor\LPT1');
 {$I-} Reset(Archivo); {$I+}
 if IoResult = 0 then
  begin
   Writeln(Archivo, 'Prueba');
   CloseFile(Archivo);
  end;
end;

Probe tu código, pero me da el error 105.

Cita:

Empezado por heroe (Mensaje 314124)

Probe tu código, pero me da el error 105.

Cielos, esperemos que con esto solucionemos el problema;

Código Delphi [-]procedure Imprimir;
var Archivo: TextFile;
begin
 AssignFile(Archivo, '\\Servidor\LPT1');
 FileMode := fmOpenReadWrite;
 {$I-} Reset(Archivo); {$I+}
 if IoResult = 0 then
  begin
   Writeln(Archivo, 'Prueba');
   CloseFile(Archivo);
  end;
end;

Suerte

Problema con error I/O 103

Buenos días chicos, les comento mi problema. estoy trabajando con Metodos estructurales.
Tengo 2 librerias , una de doble enlace y otra de arbol.
El problema es el siguiente, tengo que capturar desde un formulario, todos los codigos y descripciones de Rubros almacenados (que se encuentran en otro formulario ) dentro de un combobox al entrar en él.

Este es el codigo

Código Delphi [-]procedure TArticulo.ComboBox1Enter(Sender: TObject);
var
pos, ult:tipo_pos;
reg: tipo_reg_datos;
rubro_aux:tipo_me;
begin
   combobox1.Clear;
   pos:=0;
   doble_enlace_rubros.Abrir_Me(rubro)
   ult:= doble_enlace_rubros.Ultimo(rubro);
   while pos<=ult do
   begin
   doble_enlace_rubros.Capturar_Info(rubro,pos,reg);
   articulo.ComboBox1.AddItem(inttostr(reg.Cod_rubro)+ '   '+ reg.Nom_rubro,articulo.ComboBox1);
   pos:=pos+1;
   end;

end;

Comento que el metodo "Rubro" lo creo en el FormCreate, y en las units utilizadas ya tengo declaradas la libreria de doble enlace y la del formulario de donde utilizo y creo "Rubro"

El error que salta es el I/O 103

Espero sepan disculpar las molestias y que puedan ayudarme.

Saludos

Hola titooo.

El error 103 ( File not Open ) se produce generalmente por intentar leer o escribir sobre un archivo que no fué abierto. También podría provocarse por intentar escribir en un archivo de texto abierto con el procedimiento Reset.

Viendo el código que publicaste, es muy probable que el error se produzca en el método Abrir_Me, en la línea:

Código Delphi [-]doble_enlace_rubros.Abrir_Me(rubro)

Sería interesante que nos mostrases el código de ese método ( o donde el archivo es abierto ).

Saludos :)

Gracias por responder.

Disculpen, no agregue ese detalle.

Código Delphi [-]Procedure Abrir_Me (Var Me:Tipo_Me);
Begin
    Reset(Me.Control);
    Reset(Me.Datos);
End;

Ese es el proceso. No se si me falta algun paso previo o que puede ser.

Observe las declaraciones de variables y de unidades. Pero esta todo bien porque no muestra error de conexion o algo por el estilo.

Espero respuestas y gracias

Cuando ejecuto en "PASO A PASO" (F7) salta un error en Application initialize, nose si tendrá que ver con mi problema o no.