Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вытянуть имя из ответа на пинг? [D7, WinXP]


noname:)) ©   (2005-05-23 21:03:00) 

Доброго времени суток!
Меня интересует есть ли способ вытянуть имя из ответа на пинг. И если да, то как именно? Я использую самую стандартную  для пинга:

function Ping(InetAddress : string) : boolean;
var
 Handle : THandle;
 InAddr : IPAddr;
 DW : DWORD;
 rep : array[1..128] of byte;
begin
 result := false;
 Handle := IcmpCreateFile;
 if Handle = INVALID_HANDLE_VALUE then Exit;
 trans(InetAddress, InAddr);
 DW := IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0);
 Result := (DW <> 0);
 IcmpCloseHandle(Handle);
end;

Как видно из кода ничего кроме факта пинга с её помощью больше не узнать:)
Заранее благодарен!


Seeker   (2005-05-25 09:46:00) [1]

Если я правильно понял, "имя" это IP,то для того, что-бы его "вытащить" нужно перехватить полный пакет(включая заголовки),а потом из заголовка "вытаскивать" имя.


Digitman   (2005-05-24 08:16:00) [2]


> вытянуть имя


какое такое "имя" ? имя вождя мирового пролетариата ?)


> ничего кроме факта пинга с её помощью больше не узнать


пинг сам по себе больше ни для чего и не призван, кроме как для установления факта доступности/недоступности хоста


Наверх

Титульная страница Поиск, карта сайта Написать письмо