Capturar una excepcion en Delphi producida por FIREBIRD

[ronson]

Hola amigos, en primer lugar saludaros despues de una larga inactvidad de algun mes debido a un proyecto realmente grande en LOTUS DOMINO, pero ya estoy aqui para dar follón a la gran NURIA, o a los dioses KINOBI y CADETILL.

Mi pregunta es la siguiente, me creo una excepcion en FIREBIRD que se dispara en un trigger. Como puedo darle formato a en el codigo DELPHI, de manera que me salga una ventanita dieciendome el Texto de la expecion generada en FIRECBIRD. Ahora solo me sale lo siguiente:

exception 1.
NO HAY SUFICIENTES PRODUCTOS EN EL ALMACEN.

De antemando muchisimas gracias a todos.

[Sinaloense]

try
//codigo
except
on E: Exception do ErrorDialog(E.Message, E.HelpContext);
end;

[ozegarra]

Aprovecho este hilo para hacer una consulta sobre excepciones FireBird.

Yo genero mis excepciones en FireBird y las ejecuto segun alguna condicion en un Procedure(firebird tambien).

El tema es que yo quiero capturar ese mensaje de la excepcion por delphi. Estoy usando adoquery para ejecutar mis Procedures.

Si alguien pudiera asesorarme le agradeceria mucho ya que quiza para muchos es algo sencillo pero yo recien empiezo con el Delphi y sigo aprendiendo cosas nuevas.

Saludos
Oscar

[PepeLolo]

Hola,

El código indicado por "Sinaloense" es el que necesitas para controlar las excepciones de la BBDD.

un saludo

[ozegarra]

uy, despues de tiempo. Estuve en otras y recien retomo el tema. Probe con la sentencia descrita pero sale un error que dice :

Código Delphi [-]
Undeclared identifier: 'ErrorDialog'

Nuevamente gracias por la atencion.

Oscar

[RolphyReyes]

Saludos.

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

En cuanto a capturar la excepcion la gente de FibPlus tienen un tremendo componente para esto, es de pago vale la pena tener estos componentes.

Hasta luego.