|
Registriert seit: 16. Mär 2008
51 Beiträge
|
Re: im Netzwerk feste IP prüfen durch ping
6. Nov 2008, 21:26
[code]
procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
panel1.Color :=red;
else panel1.Color :=green;
end;
wie mache ich das mit der IdIcmpClient1 ablegen ???? bei delphi5
|