![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вытянуть имя из ответа на пинг? [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]
> вытянуть имя
какое такое "имя" ? имя вождя мирового пролетариата ?)
> ничего кроме факта пинга с её помощью больше не узнать
пинг сам по себе больше ни для чего и не призван, кроме как для установления факта доступности/недоступности хоста