Текущий архив: 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.44 MB
Время: 0.044 c
