jonmendi
12-12-2007, 12:46:44
Hola!
estoy haciendo una tontería para imprimir directamente al lpt1.
var
Impresora: TextFile;
begin
AssignFILE(Impresora,'LPT1');
{$I-}
ReWrite(Impresora);
{$I+}
if IOResult <> 0 then
showmessage('error')
else
writeln(Impresora,'');
CloseFile(Impresora);
El código funciona bien, pero si por cualquier motivo tengo la impresora apagada, el programa se me queda colgado en la instrucción writeln. ¿Alguien sabe como evitar esto? ¿Hay algún modo de saber si la impresora está encendida y sin problemas (no le falta papel...)?
Muchas gracias!
Jon
estoy haciendo una tontería para imprimir directamente al lpt1.
var
Impresora: TextFile;
begin
AssignFILE(Impresora,'LPT1');
{$I-}
ReWrite(Impresora);
{$I+}
if IOResult <> 0 then
showmessage('error')
else
writeln(Impresora,'');
CloseFile(Impresora);
El código funciona bien, pero si por cualquier motivo tengo la impresora apagada, el programa se me queda colgado en la instrucción writeln. ¿Alguien sabe como evitar esto? ¿Hay algún modo de saber si la impresora está encendida y sin problemas (no le falta papel...)?
Muchas gracias!
Jon