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