Fehlerbeseitigung von PING-Fehlern

[Bluemeus]

Danke, dass war die Lösung ... hatte nur icht gechecked, dass der error da,it gehandled wird ... dacht man beötigt dieses HandleSocket ...


Danke!

Zitat von Dani:

Hi,
Ich seh da kein Problem... dieser Code funktioniert bei mir wie erwartet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ICMP.Host := 'www.delphipraXXXXXXXXis.de';
 try
  ICMP.Ping('Delphi');
  Memo1.Text := 'Ping: ' + IntToStr(ICMP.ReplyStatus.MsRoundTripTime);
 except
  On E: Exception do
   Memo1.Text :=  E.ClassName + #13#10
                + E.Message;
 end;
end;

Nur wenn das Programm in der IDE ausgeführt wird, erscheint der Exception-Dialog noch. Das Verhalten der IDE bei Exceptions kann man in D6 unter Hauptmenü => Tools => Debugger-Optionen ändern.