Ist zwar schon sehr lange her, aber ich füge hier einfach mal für spätere Suchende noch was hinzu!
Ich würde an dieser Stelle sagen, dass du einen try-except-block nutzen musst. Vielleicht hilft das ja weiter!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
IdIcmpClient1.Host := '192.168.1.1';
for i := 1 to 7 do
begin
try
IdIcmpClient1.Ping;
Application.ProcessMessages;
except
ShowMessage('Tja, keiner hört dir zu!')
end;
end;
end;
Ansonsten wünsche ich noch ein schönes Leben!