Fehler-Meldung trotz try except ?

**MCQ**

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?

zusammenfalten · markieren

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

Fehler-Meldung trotz try except ?

Fehler-Meldung trotz try except ?

Forumregeln