Timeout bei Connect zu Firebird Datenbank über IBDatabase

**Tempdir**

Guten Morgen liebe Forengemeinde,

ich greife über die InterBase-Komponente IBDatabase auf eine Firebird-DB zu. Soweit alles problemlos, hier der Code:

markieren

Delphi-Quellcode:

			  
IBDatabase1.DatabaseName := '192.168.173.46:C:/TEST.FDB';

IBDatabase1.Connected := TRUE;

Allerdings kann es jetzt z.B. vorkommen, dass die oben genannte IP gerade nicht erreichbar ist. Das macht sich insofern negativ bemerkbar dass mein Programm für ca. 30Sekunden "hängt" und dann eine entsprechende Fehlermeldung ausgegeben wird.

Meine Frage:

Wie könnte man hier einen Timeout realisieren (möglichst ohne Threads) ? Eine entsprechende Eigenschaft der Komponente um das einzustellen konnte ich leider nicht finden.

Vielen Dank schonmal!

Timeout bei Connect zu Firebird Datenbank über IBDatabase

Timeout bei Connect zu Firebird Datenbank über IBDatabase

Forumregeln