Hola.
Cita:
|
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.
Cita:
|
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 ...
