Problema con TextFile

[[ElDioni]]

Hola tengo un problema con el siguiente codigo:

procedure....
var
Fichero:TextFile;
Begin
AssignFile(Fichero,'LPT1');
Rewrite(Fichero);
For i:=1 To...
....
end;

El caso es que cuando llega a la linea de Rewrite(Fichero). me casca un error que me dice que ElnOutError with message 'Invalid Filename' porque no me coge el nombre del archivo si lo he hecho igual que en otro programa que si funciona

[defcon1_es]

Hola.

Empezado por ElDioni

Hola tengo un problema con el siguiente codigo:

procedure....
var
Fichero:TextFile;
Begin
AssignFile(Fichero,'LPT1');
Rewrite(Fichero);
For i:=1 To...
....
end;

El caso es que cuando llega a la linea de Rewrite(Fichero).
Me casca un error que me dice que ElnOutError with message 'Invalid Filename' porque no me coge el nombre del archivo

Lo que estás escribiendo es en el puerto LPT1
Normal que te casque el error

En vez de Rewrite(Fichero), usa Reset(Fichero) si quieres imprimir directamente o cambia el nombre al fichero.

Empezado por ElDioni

si lo he hecho igual que en otro programa que si funciona

Pero seguro que el nombre del fichero no era LPT1 ...

[[ElDioni]]

Ya me funciona, era porque en las propiedades de la impresora que esta en red le he tenido que poner que el lpt1 de mi ordenador es la impresora de red, me he dado cuenta cuando me he llevado el programa al ordenador que tenia la impresora conectada directamente al puerto lpt1

[fredo]

¿funciona en windows 2000?