Keskustelu: Ohjelmointikysymykset: Pascal: InterBase trigger -> Delphi IBEvents

Loin IB (etäpalvelin) triggerin:

SET TERM !! ;
CREATE TRIGGER POST_NEW_ORDER FOR Koe_DB
AFTER INSERT AS
BEGIN
  POST_EVENT 'new_order';
END !!
SET TERM ; !!

Delphin IBDataBase yms. toimii OK.
Kanta näkyy, siihen voi lisätä/poistaa/muuttaa.

Lisäsin IBconsolilla tauluun rivin ja päivitin.
Eventti ei tee mitään?
Ei kai voi olla mitään "portti" juttuja?
InterBase ja Delphi on varmaan eriversioita...

procedure TForm1.FormShow(Sender: TObject);
begin
 IBEvents1.UnRegisterEvents;
 IBEvents1.Events.Clear;
 IBEvents1.Events.Add('new_order');
 IBEvents1.Registered;
end;

procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  Label10.Caption:=EventName;
end;

Mod. lisäsi kooditagit!

Näyttää siltä ettei eventti rekisteröidy???
Testasin:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IBEvents1.Registered then Label1.Caption:='True'
  else Label1.Caption:='False';
end;

Ennen tuota rekisteröintiä IBDataBase.Connect:=True ja yhteys kyllä syntyy!

Mod. lisäsi kooditagit, käytä näitä jatkossa!

Toimiihan tuo kun reikisteröi oikein!
IBEvents1.RegisterEvents;