Error 103 I/O

[heroe]

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

[[cHackAll]]

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...

[heroe]

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.

[[cHackAll]]

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;

[heroe]

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

[[cHackAll]]

Empezado por heroe

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