IBEvents

[toyohj60]

Hallo,

Ich verwende in meinem Programm die IBEvents. Seit dem ich die erstmals im Programm verwendet habe, bekomme ich beim Beenden immer eine Exception der Klasse EAccessViolation. Ist das ein Bug, oder mach ich etwas verkehrt?

[kiar]

hallo,

herzlich willkommen in der Dp,

Zitat:

Seit dem ich die erstmals im Programm verwendet habe, bekomme ich beim Beenden immer eine Exception der Klasse EAccessViolation. Ist das ein Bug, oder mach ich etwas verkehrt?

wir müssen schon sehen, wie du ibevents verwendest, damit wir dir helfen können.

raik

[toyohj60]

Hallo,

klar, eigenlich logisch:

Delphi-Quellcode:

Form1.OnActivate:
.
.
.
  if IBEvents1.Registered = False then
  begin
    IBEvents1.Database:= DataModule2.IBDatabase1;
    IBEvents1.Events.Add('UPDATE ERFOLGREICH');
    IBEvents1.Registered:= True;
  end;
.
.
.


procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String;
  EventCount: Integer; var CancelAlerts: Boolean);
begin
  Application.MessageBox('Das ist ein Test','Hinweis',36);
end;

und jetzt noch zum Beenden:

Delphi-Quellcode:

Form1.OnClose;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  If DataModule2.IBTransaction1.Active = True then DataModule2.IBTransaction1.Commit;
  IBEvents1.UnRegisterEvents;
  if IBEvents1.Registered = True then IBEvents1.Registered:= False;
  DataModule2.IBDatabase1.Close;
end;

[edit=Sharky]Delphi-Tags gesetzt Mfg, Sharky[/edit]

[kiar]

hallo,

versuche mal in den OnClose folgendes:

Delphi-Quellcode:

action:= cafree;

hier wird der speicher von der form freigegeben.

ausserdem sollten alle anderen sachen vorher erledigt sein.
ein blick in das forum und mal die suche betätigen sollten helfen, etwas über transactionen zu erfahren und der trennung zwischen logik und gui.

raik