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

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

Получение имени хоста по IP [D7, WinXP]

Lex_! ©   (2006-06-30 06:56:00) 

Каким образом можно получить имя хоста по IP адресу?
Тоесть есть база с логом кто куда ходил, нужно по возможности удаленные адреса перевести в хосты (типа: www.ya.ru и т.д.)

---

Дмитрий Белькевич   (2006-07-03 04:48:00) [1]

Истинные программеры после себя не убирают ;)

---

Fay   (2006-06-30 11:44:00) [2]

2 Lex_! ©   (30.06.06 9:34) [2]
А WSACleanup ?

---

Lex_!   (2006-06-30 09:34:00) [3]

вопрос исчерпан:

function IPAddrToName(IPAddr : string): string;
var
 SockAddrIn: TSockAddrIn;
 HostEnt: PHostEnt;
 WSAData: TWSAData;
begin
 WSAStartup($101, WSAData);
 SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));
 HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
 if HostEnt <> nil then
   result := StrPas(Hostent^.h_name)
 else
   result:=IPAddr;
end;

---

Fay   (2006-06-30 08:36:00) [4]

gethostbyaddr
ку?

---

Наверх