Prevenir error en la impresion y redireccionar

[lbidi]

Hola, recien he podido retomar este tema.

Sigo con el mismo problema, el programa se me cuelga, y lo debo cerrar forzosamente. He aqui el codigo.

Código Delphi [-]
    AssignFile( Printer, 'LPT1' );
    FileMode := fmOpenReadWrite;
    try
       {Aqui trato de abrir la impresora}
       {$I-} Reset( Printer ); {$I+}
       Rewrite( Printer );
       Write( Printer, CHR(27) + CHR(64 ) );   <--- aqui se tranca
    except
        {Si hay algun problema se va a meter en este bloque sino lo salta}
        on e:Exception do
        begin
           ShowMessage('La impresora no responde'+#13+e.Message);
        end;
    end;

Cualquier ayuda sera bienvenida.

Muchas gracias.

Saludos.

Leo

[[duilioisola]]

Repito:

Si nos cuentas cual es el mensaje de error, quizás podamos ayudarte un poco más.

Ya nos has dicho donde falla. Es en la linea write(Printer, ...);
Ok, pero ¿Cuál es el mensaje de error?
Se supone que en el centro de la pantalla debería salir una ventana que dice

-------------------------------------------------
La impresora no responde
Un texto, en inglés seguramente, que describe el problema.
-------------------------------------------------

[lbidi]

Es que no me sale ningun error..

Solamente se congela la aplicacion y debo cerrarla con la cruz, a lo cual me confirma que la aplicacion no responde.

Gracias..

[Casimiro Noteví]

Puede que tengas que esperar el "timeout" de la impresora para que finalmente salga el error, déjala un ratito a ver.

[[duilioisola]]

Quita las directivas de compilacion {$I(+-)}
{$I-} Reset( Printer ); {$I+}
Esto hace que no salte ninguna exception, a pesar de que puede haber algún error.
Si utilizas estas directivas de compilación deberías ver el resultado de IOResult, para ver si todo ha ido bien.

Código Delphi [-]
    AssignFile( Printer, 'LPT1' );
    FileMode := fmOpenReadWrite;
    try
       {Aqui trato de abrir la impresora}
       Reset( Printer );
       Rewrite( Printer );
       Write( Printer, CHR(27) + CHR(64 ) );   <--- aqui se tranca
    except
        {Si hay algun problema se va a meter en este bloque sino lo salta}
        on e:Exception do
        begin
           ShowMessage('La impresora no responde'+#13+e.Message);
        end;
    end;

De todos modos no se porqué haces un Reset y luego un Rewrite.
Deberías hacer solo uno de ellos y creo que es Rewrite.

[[duilioisola]]

Otra cosa: Agrega : (dos puntos) después del puerto al que quieres imprimir. De lo contrario entenderá que es un archivo sin extensión.
Y si puedes no utilices Printer como variable, pues puede estar confundiéndose con la Unit Printer. Yo la llamaría Puerto.
AssignFile( Puerto, 'LPT1:' );

Código Delphi [-]

var
   Puerto : TextFile;
[...]
    AssignFile( Puerto, 'LPT1:' );
    FileMode := fmOpenReadWrite;
    try
       {Aqui trato de abrir la impresora}
       Rewrite( Puerto);
       Write( Puerto, CHR(27) + CHR(64 ) );   <--- aqui se tranca
    except
        {Si hay algun problema se va a meter en este bloque sino lo salta}
        on e:Exception do
        begin
           ShowMessage('La impresora no responde'+#13+e.Message);
        end;
    end;
    CloseFile( Puerto );

[lbidi]

Estimados.. he hecho los cambios sugeridos y dado tiempo al sistema para comprobar si me tiraba el error.

Efectivamente luego de un buen tiempo, me ha largado el siguiente error.

"Error E/S 1167".

No entiendo porque el sistema no lo capta antes cuando se hace el try.

Gracias a ambos.