Hallo,
mit den FIBPlus - Komponenten von Devrace (
http://www.devrace.com) kann man prima auf Lost-Connections ragieren.
mögliche Actions:
laCloseConnect: Connection wird geschlossen.
laTerminateApp: Anwendung wird beendet.
laWaitRestore: Verbindung wird wiederhergestellt.
Delphi-Quellcode:
procedure TForm1.dbLostConnect(Database: TFIBDatabase; E: EFIBError;
var Actions: TOnLostConnectActions);
begin
case meineCombobox.ItemIndex of
0: begin
Actions := laCloseConnect;
MessageDlg('Connection lost. TpFIBDatabase will be closed!',
mtInformation, [mbOk], 0);
end;
1:begin
Actions := laTerminateApp;
MessageDlg('Connection lost. Application will be closed!',
mtInformation, [mbOk], 0);
end;
2:Actions := laWaitRestore;
end;
end;