Thema: Delphi fibplus + events

Einzelnen Beitrag anzeigen

sancho1980

Registriert seit: 7. Feb 2006
429 Beiträge
 
#1

fibplus + events

  Alt 31. Aug 2006, 15:16
Datenbank: firebird • Version: 2.0 • Zugriff über: fibplus
hi,

ich hatte immer fb 1.5 installiert und hab mir jetz mal fb 2.0 installiert

habe an meinem delphi-client nichts geändert; der zugriff auf die db funktioniert auch noch, nur, es kommen keine events mehr...das ganze sieht folgendermaßen aus:

habe folgenden trigger:

SQL-Code:
CREATE trigger dicentries_au1 for dicentries
active before update position 1
as
begin
  post_event 'Event';
end
dann folgendes IBEvents:


Delphi-Quellcode:
object IBEvents1: TIBEvents
    AutoRegister = True
    Database = IBDatabase1
    Events.Strings = (
      'Event')
    Registered = False
    OnEventAlert = IBEvents1EventAlert
    Left = 376
    Top = 312
  end
und hier den handler:

Delphi-Quellcode:
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  showmessage(eventname);
end;
nach einem update von dicentries müsste ich ja jetzt logischerweise einen dialog mit dem eventname "Event" bekommen. passiert aber nix! unter fb 1.5 funktioniert genau der gleich code tadellos...hat sich da irgendwas geändert?

danke,

martin
Um Rekursion zu verstehen, muss man zunächst Rekursion verstehen.
  Mit Zitat antworten Zitat