Hola a todos
estoy tratand de usar eventos en delphi 2009 con firebird 2.5.
estoy haciendo todo lo que dice en las ayudas pero no puedo hacer que funcione
esto es lo que hago
en la base de datos la
tabla se llama alertas_mensajes
en su propiedas after insert coloco el nombre del evento
Código SQL
[-]CREATE OR ALTER trigger alertas_mensajes_ai0 for alertas_mensajes
active after insert position 0
AS
begin
post_event 'NEW_ALERTA' ;
end
en la pantalla coloco un componente IBEVENT1 tal cua lo cojo de la paleta de interbase
en el evento show de la form (solo es una) escribo lo siguiente
Código Delphi
[-]IBEvents1.Events.Add('NEW_ALERTA');
IBEvents1.RegisterEvents ;
en el evento EventAlert del componente IBEVENT1
Código Delphi
[-]
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName='NEW_ALERTA' then
ShowMessage('Hola');
Jamas se ejecuta nada por favor me podrian dar alguna luz , este aplicativo solo se ejecuta en una solo maquina cliente-servidor que mas puedo revisar
Nota : Es importante saber que otra aplicacion inserta datos a esta tabla
Gracias