ich möchte folgendes erreichen:
Prüfen ob ein Postgres-SQL-Server erreichbar ist, und wenn nicht, eine Fehlermeldung ausgeben!
Zur Zeit wird erst nach ca. 15 Sekunden eine (Exception) ausgelöst.
Was aber noch wichtiger ist, dass Programm erweckt den Eindruck das es hängt, weil ca. 15 Sekunden nichts passiert.
/Postgres 8.3, Zeos 6.6.5
Code: Alles auswählen
ZCon1.Connect;
//nach ca. 15 Sek. kommt hier die Exception!
if ZCon1.Connected then begin
ShowMessage('1');
end else begin
ShowMessage('2');
end;
ZCon1.Disconnect;