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:

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!

[mkinzler]

Server/Port vorher anpingen

[Tempdir]

Das klappt - danke! Allerdings mit Einschränkungen:

Was, wenn der PC "anpingbar" ist, aber kein Firebird-Server läuft? So wie es laut Netstat aussieht ist der Port zu, wenn Firebird inaktiv ist. Zumindest wird er bei "Netstat -a" nicht aufgelistet, nur wenn ich den Server mit irgendeiner SQL-Query anspreche.

[mkinzler]

Du könntest auch versuchen dich mit dem Server(-dienst) zu verbinden

[Tempdir]

wie meinst du das? Finde zu dem Thema leider nichts über Google.