Capturar una excepcion en Delphi producida por FIREBIRD

[peccatum]

Empezado por Lepe

2.- Usar bloques try ... excepts, pero permitir que dicha excepción se lance de nuevo.

Hola,

Yo he elegido este método, el problema que tengo es que antes de mostrar el mensaje de la excepción al usuario la ejecución de mi programa se corta siendo necesario darle F9 devuelta para que recién ahí se muestre el mensaje y queden los objetos en el estado que yo quiero... ¿hay algúna forma de que esto no ocurra?

este es el código que produce la excepción:

Código Delphi [-]
try                 
                MDOTransaction1.StartTransaction;                 
                MDODataset1.QInsert.params.ByName('CANTI').AScurrency := 1;
                MDODataset1.QInsert.Params.ByName('NUMERO_CONTRATO').asInteger := Ncontrato;
                MDODataSet1.QInsert.Params.ByName('CATEGORIA').ASString :=   RXDBGrid1.Fields[1].AsString;
                MDODataSet1.Qinsert.Params.ByName('TARIFA').ASsTring := RXDBGrid1.Fields[0].AsString;
                MDODataSet1.QInsert.Params.ByName('PRECIO_UNITARIO').asCurrency := RXDBGRID1.Fields[4].ASCurrency;
                MDOQuery1.Close;
                IF stt[1] = 'K'  THEN                 MDOQuery1.SQL.Strings[14] := 'and tarifas.tipo <> '+ quotedStr('KM');
                if stt[1] = 'C' then                 MDOQuery1.SQL.Strings[15] := 'and tarifas.tipo <> '+ quotedStr('Combustible');
                MDOdataset1.QInsert.ExecQuery;
                MDOdataset1.open;
                MDOquery1.open;
               except                   
                        MDOTransaction1.Rollback;                   
                        MDOdataset1.Open;                                   
                        MDOquery1.Open;                    
                        raise;
               end;

'MDOdataset1.QInsert.ExecQuery ' es la linea que produce la excepción, como dije antes se corta la ejecución y me da un mensaje de el componente y me disgusta que eso ocurra quiero que solo se notifique el mensaje de error al usuario....


Gracias

[[Lepe]]

Lanza tu ejecutable desde el Explorador de windows, no verás ese aviso .

PD: Si quieres puedes deshabilitar ese mensaje de Delphi, en Tools -> Debugger Options -> "Stop on Exception" (o algo así se llama ).

Saludos

[[maeyanes]]

Hola...

Lo que te sucede solo es cuando estás ejecutando la aplicación desde el debugger...

Trata ejecutando tu aplicación desde afuera y verás que trabaja como debe ser...



Saludos...

[peccatum]

Gracias Lepe y maeyanes ya configuré el debugger para que no moleste en las pruebas.

Tengo otra inquietud y necesito opiniones al respecto, el escenario es masomenos el siguiente:

Un form1 en el cual dispongo de una rejilla, barra de navegación, campos de búsqueda y los elementos no visuales necesarios (Dataset para consulta y actualizaciones, Datasources, Etcétera).

Programé para lograr que cuando el usuario apreta el botón de la barra navegadora para realizar una inserción (+) se abra ótro form2 en donde aparecen todos los campos de edicion y botones para que el usuario cargue datos para luego darle al botón 'aceptar' con lo cual se intenta guardar lo ingresado. Los campos en el form2 apúntan al dataset en el form1. En el botón 'Aceptar' es que tengo una estructúra del tipo try...except, en donde intento realizar el post del dataset en el form1. El problema aparece cuando ocurre una excepción al intentar guardar los datos: se muestra el mensaje de la excepción e inmediatamente se cierra el form 2 dejando el form 1 'on top'. El comportamiento que yo quiero es que al ocurrir una excepción se muestre el mensaje del error pero que no se cierre el formulario y el usuario pueda seguir trabajando con los datos que había intentado guardar...

Se entiende? qué sería lo más recomendable en esta situación?

de antemano muchas gracias!

Saludos...

[Dens]

Amigos disculpenme la ignorancia pero es que no veo por ningun lado applicationevents , suponiendo que es un componente.

[[Caral]]

Hola

Empezado por Dens

Amigos disculpenme la ignorancia pero es que no veo por ningun lado applicationevents , suponiendo que es un componente.

Efectivamente; Es un componente que esta en la paleta additional.
Saludos
PD: Ignorante es el que no pregunta, no el que busca la respuesta.

[rastafarey]

capturala dentro de un cuerpo try except

y dependiendo del tipo de exceion enviar el mensaje con la caja de dialogo que mejor te parezaca

Código Delphi [-]
try
  //codigo ...
except
  on e: exception do begin
    if E Is tipoexceptionfirebirddependiendodelcomponenente then
       shomessage('mensaje')
    else 
       showmessage(e.message);
  end;
end

Espero te sirva.