Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Ping 


Alexey_K   (2001-12-15 16:51) [0]

Я новичек в Дельфи
Помагите мне разобраться в TPing"е что и как там работает.
Я перерыл все ссылки но ничего подробно-объясняющего не нашел
На этом сайте я нашел неплохую статью по Ping"у через icmp
http://delphi.mastak.ru/articles/icmp.html
но не могу понять почему после первого клика пишет
Error in call togethostbyname().
Error code: 1060
и как от этого избавиться. И как сделать чтобы если хост не ответил то не писался бы последний ответевший а просто это давало бы както знать
Спасибо.



Wonder   (2001-12-17 17:09) [1]

Небось NT стоит?
Проверяй pHostEn на (nil)/(не nil) после вызова gethostbyname, а не возвращенное значение GetLastError().
Т.е. :

pHostEn := nil;
pHostEn := gethostbyname("delphi.mastak.com");
if (pHostEn = nil) then //ошибка
...


В статье не совсем верная проверка на ошибку.



Alexey_K   (2001-12-19 15:55) [2]

Сообщение
Error in call togethostbyname().
Error code: 1060
ушло но насчет того что,
отвечает другой а не тот кого ping"овал,
вместо того чтобы сообщить о том что host не отвечает - это еще есть
что надо сделать?



Wonder   (2001-12-19 16:05) [3]

Еще раз. Кого ты пингуешь и кто отвечает?
Если хост, которому ты посылаешь эхо-запрос, не отвечает, то у тебя вылетит ошибка (поле Status структуры icmp_echo_reply) и за него никто ничего не ответит.



Alexey_K   (2001-12-20 15:51) [4]

Попробуй понгануть 212.110.128.10
выйдет ответ

Pinging 212.110.128.10 [212.110.128.10]
with 32 bytes of data:
Reply from 212.110.128.200
Reply time: 4217 ms

и не какой ошибки не появляется



Wonder   (2001-12-20 15:57) [5]

Я ж тебе говорю - смотри поле Status!
Там будет код 11003 - IP_DEST_HOST_UNREACHABLE
Это как раз сообщение ICMP об ошибке. Анализируй поле Status и на его основе решай - выдавать ответ или выдавать сообщение об ошибке.



Alexey_K   (2001-12-20 16:17) [6]

Если не трудно подскажи как анализировать, я не врубаюсь



Wonder   (2001-12-20 16:33) [7]


var reply_count : DWORD;

...

reply_count := IcmpSendEcho(...);

if (reply_count = 0) then //Ошибка
begin
error := GetLastError();
Memo1.SetTextBuf("Error in call to "+
"IcmpSendEcho()");
Memo1.Lines.Add("Error code: "+IntToStr(error));
Exit;
end;

if (pIpe^.Status = 0)
begin
Memo1.Lines.Add("Reply from "+
IntToStr(LoByte(LoWord(pIpe^.Address)))+"."+
IntToStr(HiByte(LoWord(pIpe^.Address)))+"."+
IntToStr(LoByte(HiWord(pIpe^.Address)))+"."+
IntToStr(HiByte(HiWord(pIpe^.Address))));
Memo1.Lines.Add("Reply time: "+IntToStr(pIpe.RTTime)+" ms");
end
else //Ошибка
begin
Memo1.SetTextBuf("Error code: "+IntToStr(pIpe^.Status));
end;



Alexey_K   (2001-12-21 14:25) [8]

вот теперьвсе работает
спасибо




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.039 c
4-19387           YUS                   2001-12-20 20:11  2002.03.07  
Как закрыть окно созданое explorer ?


1-19232           Анатолий              2002-02-17 23:25  2002.03.07  
Печать Chart


4-19386           mili                  2002-01-10 19:01  2002.03.07  
функция API для вывода в DBGrid e поля MEMO


1-19191           avr555                2002-02-18 17:25  2002.03.07  
К чему привязано меню!


3-19069           Bormanoid             2002-02-08 13:28  2002.03.07  
А как очистить SQL-запрос?