Ich hab eine einfache Ping-Funktion schreiben wollen, allerdings gibt es ein Problem. Obwohl ich den Verbindungsbefehl Client.ping() in eine try except - Anweisung eingebaut habe Bricht das Programm bei nicht erreichen des Servers mit der Fehlermeldung "Host nicht gefunden" ab. Eigendlich sollte diese Meldung doch durch das try except unterbunden werden, oder?
Delphi-Quellcode:
function Ping(Server:string):boolean;
begin
with Form1 do
begin
Client.Host:=Server;
Client.ReceiveTimeout:=1500;
try
Client.Ping();
except
Result:=false;
end;
if Client.ReplyStatus.ReplyStatusType=rsEcho then Result:=true;
end;
end;
Gruß MCQ