Ошибка при пинге
alb67 © (2006-05-17 13:21:00)
Добрый день. Мне нужно проверить пинг до всех компов по сети в
диапозоне
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:00) [1]
> Как этого можно избежать?
Заключить метод ping() в try..except ?
Наверх 
ЧАТ |
Орешник |
|
