ADO Verbindungsabbruch (Netzwerkverbindung getrennt etc..)

[TPeterT]

Hallo!
Welche Möglichkeiten gibt es, auf Verbindungsabbrüche bei einer ADO-Verbindung zu reagieren. Möchte, dass das Programm automatisch schliesst. Habe schon das Ereigniss AfterDisconnect, OnDisconnect, BeforeDisconnect der ADOConnection versucht - leider ohne Erfolg. Sofort nach Trennung der Netzwerkverbindung erhalte ich eine Fehlermeldung.

Danke und liebe Grüsse
Peter

[Stevie]

Hallo Peter,

da du auf einen "äußeren" Verbindungsabbruch reagieren willst, kannst du mit den Events nichts anfangen, da diese ja nur von der Connection selber aufgerufen werden, wenn sie sich selbst beendet. Du solltest mit Exception-Handling versuchen, die Fehlermeldung, die du beim Trennen der Netzwerkverbindung bekommst, abzufangenm und entsprechend zu reagieren. Dazu kannst du über Application.OnException ein Event bereitstellen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  {...}
  private
    procedure MyExceptionEvent(Sender: TObject; E: Exception);
  end;

  {...}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyExceptionEvent;
end;

MfG
Stevie