IDICMPClient Komponente Probleme

[DocZenith]

Hallo,
hab folgendes vor und folgende probleme:

ich hab eine anwendung, die regelmäßig überprüfen soll, ob eine netzwerkverbindung besteht.
besteht diese, soll eine OK meldung ausgegeben werden, besteht diese nicht eine Fehlermeldung.

das klappt soweit alles mit der idicmp komponente, die einen ping verschickt, nur wenn der zielhost
nicht erreichbar ist, bricht mein programm ab, nach dem er den host sporadisch 3 - 4 mal nicht erreicht hat.

hat einer erfahrung mit der komponente??

hier der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
begin
 IdIcmpClient1.Host := '192.168.1.1';
 for i := 1 to 7 do
 begin
   IdIcmpClient1.Ping;
   Application.ProcessMessages;
 end;
end;


procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);

begin

  if areplystatus.ReplyStatusType = rstimeout
  then
  begin
  edit1.Text :='fehler';
//  zaehler := zaehler +1;
//  edit2.Text := inttostr(zaehler);
  end
  else edit1.text := 'OK';
//  if zaehler = 3 then
//  begin
//  timer1.Enabled:=false;
//  sleep(1000);
//  zaehler := 0;
//  timer1.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 i: Integer;
begin
 IdIcmpClient1.Host := '192.168.1.1';
 IdIcmpClient1.Ping;
 application.ProcessMessages;
end;

die fehlermeldung:

http://timely.de/Unbenannt.JPG

[LAWn-M0W3R]

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!