How use post_event in Lazarus (Firebird) with ZeosLib
lazarus / 16-Databases

----------------------------------------------------------------------
Fortuna1 · 2008-12-28 11:54

1) I put this in my Firebired base;

CREATE TRIGGER "My_table_MSG" FOR "My_table"
ACTIVE AFTER INSERT POSITION 0
AS
beg
POST_EVENT 'my_event';
end


2   ZeosLib   I put      ZConnection1 and ZIBEventAlerter1 and ZQuery1
on my form
ZConnection1.Contected:=false;
ZConnection1.AutoCommit:=true;


ZIBEventAlerter.Conection:=ZConnection1;

ZIBEventAlerter1.AutoRegister:=False;

ZIBEventAlerter1.Register:=False;
ZIBEventAlerter1.Events[0]:='my_event';

ZConnection1.Contected:=true;
ZIBEventAlerter1.RegisterEvents;
ZIBEventAlerter1.Register:=True;

and then dead

constructor TIBEventThread.Create(Owner: TZIBEventAlerter;
EventGrp: integer; TermEvent: TNotifyEvent);
begin
inherited Create(True); <-------------------------------------Drop
dead
FCancelAlerts := False;
Signal := TSimpleEvent.Create;
Parent := Owner;
EventGroup := EventGrp;
OnTerminate := TermEvent;
Resume;
end;


What is wrong.

Thanks

----------------------------------------------------------------------
Marc · 2008-12-28 14:19

What if you move the inherited Create(True); line to the Resume line
and use inherited Create(False);

Create doesn't have to be at the first line if you only initialize
your own membervars.

----------------------------------------------------------------------
Fortuna1 · 2008-12-28 15:33

if change  this rows

ZIBEventAlerter1.Events[0]:='my_event';

with
ZIBEventAlerter1.Events[0]:=''

then not dead

but
of course, the work does not,