Capturar una excepcion en Delphi producida por FIREBIRD

[[Lepe]]

Empezado por RolphyReyes

Saludos.

Oscar, ErrorDialog es un nombre que le dio Sinaloense por decir un nombre a un metodo que llame un Showmessage o MessageDlg.

Pues yo creo que no, ese dialogo existe en Delphi y si no me equivoco tienes que añadir un "uses" determinado. Busca en la ayuda.

Saludos

[RolphyReyes]

Saludos.

Lepe en mi ayuda no existe ningun topico sobre ese metodo, pero si en la tuya existe entonces favor de poner la explicación.

Gracias.

[[Lepe]]

Vaya, tienes razón, se ve que me he confundido con DatabaseError de la unidad DB, el uso es parecido.

Saludos

[ozegarra]

Gracias muchachos por la ayuda.
Estuve intentando con el aplicationEvents y capturar el mensaje en el evento onExepcion pero no entra a ese evento. Derrepente estoy mostrando mal el mensaje desde firebird. Muestro un ejm. de codigo de mi procedimiento a ver si me pueden ayudar un pokito mas:

Código SQL [-]
if (Contador=0) then
   begin
   exception No_hay_Stock;
   /*suspend;*/
   end

y en delphi ejecutado el procedimiento asi:

Código Delphi [-]
ADOQuery_ActLocales.Active:=False;
    ADOQuery_ActLocales.Parameters.ParamByName('Accion').Value := Accion;
    ADOQuery_ActLocales.Parameters.ParamByName('Item').Value := EdtCodigo.Text);
    ADOQuery_ActLocales.Parameters.ParamByName('Cantidad').Value := EdtCantidad.Text;
    ADOQuery_ActLocales.ExecSQL;

Espero haber sido lo suficiente claro y me puedan ayudar.
Muchas gracias.


Oscar

[[Lepe]]

Conceptualmente, está mal:

Código Delphi [-]
ADOQuery_ActLocales.Parameters.ParamByName('Cantidad').Value := EdtCantidad.Text;

Si el campo cantidad está definido como un integer en la base de datos, debes hacer la conversión:

Código Delphi [-]
ADOQuery_ActLocales.Parameters.ParamByName('Cantidad').Value := StrToInt(EdtCantidad.Text);

Al usar Variants, hay que tener cuidado en esos tipos de detalles, que después internamente el Variant puede hacer lo que no esperas.

Saludos

[ozegarra]

ese solo era un ejm. ahi no esta mi problema, mi problema es al querer capturar la excepcion de delphi.

Gracias de todas maneras por la buena intencion.

Saludos
Oscar

[[Lepe]]

Entonces crea un SP vacío, que solo incluya la llamada a una excepción (así te olvidas de los datos que le pasas al SP y de lo que haga internamente).

Un botón ejecuta ese SP.

El ApplicationsEvents, debe tener algún código escrito, porque de lo contrario el optimizador del compilador eliminará la referencia.

El concepto es simple:
Si no tienes un ApplicationsEvents, la excepción se muestra en pantalla.
Si tienes un ApplicationsEvents.OnException, la excepción primero pasa por dicho evento, después se muestra en pantalla.

Código Delphi [-]
procedure TSXXXX.AplicationException(...E:Exception;....);
begin
   ShowMessage('Mi mensaje personal ' + E.Message);
end;

Saludos