Prevenir error en la impresion y redireccionar

[[duilioisola]]

Yo trataría con un bloque try..except

Código Delphi [-]
    SePudoAbrir := True; {Inicializo esta variable booleana}
    AssignFile( Printer, 'LPT1' );
    FileMode := fmOpenReadWrite;
    try
       {Aqui trato de abrir la impresora}
       Reset( Printer );
       Rewrite( Printer );
    except
        {Si hay algun problema se va a meter en este bloque sino lo salta}
        SePudoAbrir := False;
        ShowMessage('La impresora no responde');
    end;
    {Si entro al bloque de excepcion SePudoAbrir sera False}
    if (SePudoAbrir) then
    begin
       ...
    end;

Si quieres mostrar el error:

Código Delphi [-]
    except
        {Si hay algun problema se va a meter en este bloque sino lo salta}
        on e:Exception do
        begin
           SePudoAbrir := False;
           ShowMessage('La impresora no responde'+#13+e.Message);
        end;
    end;

[lbidi]

Amigo duilioisola.

He probado como me dijistes. He aqui mi codigo.

Código Delphi [-]
    lPrinterok := True;
    AssignFile( Printer, 'LPT1' );
    FileMode := fmOpenReadWrite;
    try
       {$I-} Reset( Printer ); {$I+}
       Rewrite( Printer );
    except
        on e:Exception do
        begin
           lPrinterok := False;
           ShowMessage('La impresora no responde'+#13+e.Message);
        end;
    end;

    if lPrinterok then
    begin
        Write( Printer, CHR(27) + CHR(64 ) );  <--  aqui se cuelga el programa
    end

no tengo ninguna impresora enganchada al puerto lpt1, es mas,
mi pc no tiene puerto, pero sin embargo la variable lPrinterok me da true.

Se agradece cualquier comentario.

[[duilioisola]]

Pues trata de ver cual es el error que te da, metiendo el codigo que falla en un bloque try..except

Código Delphi [-]
    if lPrinterok then
    begin
        try
            Write( Printer, CHR(27) + CHR(64 ) );  <--  aqui se cuelga el programa
        except
            on e:exception do
                ShowMessage('Error al enviar a la impresora '+#13+e.Message)
        end;
    end

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

Cuando dices "se cuelga el programa", podemos pensar diferentes cosas:
- El ordenador se apaga.
- El ordenador se reinicia
- El programa se apaga
- El programa no responde y hay que cerrarlo a "patadas"
- El programa da un mensaje de error.
- El programa formatea mi disco C y genera una subida de tensión que quema el router y el switch.

[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.