Prinzipfrage: bin ich mit Datenbank verbunden ?

[Wunni]

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;