Fehlerbeseitigung von PING-Fehlern

[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.