Текущий архив: 2006.11.26;
Скачать: CL | DM;

Вниз

Получение имени хоста по IP   Найти похожие ветки 

← →
Lex_! ©   (2006-06-30 06:56) [0]

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

---

← →
Fay ©   (2006-06-30 08:36) [1]

gethostbyaddr
ку?

---

← →
Lex_! ©   (2006-06-30 09:34) [2]

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

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 11:44) [3]

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2006.11.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c