Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

Ошибка при пинге   Найти похожие ветки 

← →
alb67   (2006-05-17 13:21) [0]

Добрый день. Мне нужно проверить пинг до всех компов по сети в диапозоне
192.168.1.1-100 и если есть комп с таким IP, то получить время пинга.
Делаю через компонент от INDY IdIcmpClient.

HostName :="192.168.1.";

for i:=1 to 100 do
 begin
 IdIcmpClient1.Host:=HostName+IntToStr(i);
 IdIcmpClient1.Ping;

 if ((CompareStr(Form1.IdIcmpClient1.ReplyStatus.FromIpAddress, "0.0.0.0") <> 0) and (Form1.IdIcmpClient1.ReplyStatus.TimeToLive > 0)) then
   Memo1.Lines.Add(format("Host %s | %d ms.",[IdIcmpClient1.ReplyStatus.FromIpAddress,        IdIcmpClient1.ReplyStatus.MsRoundTripTime]));
 end

Если комп с айпишником таким есть в сети, то все ок работает. Но если такого нету, то на    IdIcmpClient1.Ping; вылетает  с Non-echo type response received.
Как этого можно избежать? Спасибо.

---

← →
Сергей М. ©   (2006-05-17 13:27) [1]

> Как этого можно избежать?


Заключить метод ping() в try..except ?

---

Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.072 c