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.

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 archivoLo que estás escribiendo es en el puerto LPT1 :eek:
Normal que te casque el error :confused:

En vez de Rewrite(Fichero), usa Reset(Fichero) si quieres imprimir directamente o cambia el nombre al fichero.
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? :confused: