IP2HostName

← →
kernel © (2006-05-19 15:53) [0]

Как мне узнать имя компьютера, если я знаю его IP?

← →
Сергей М. © (2006-05-19 16:16) [1]

[WSAAsync]GetHostbyAddr

← →
kernel © (2006-05-19 16:32) [2]

> [WSAAsync]GetHostbyAddr

Этого я уже наслышался. Я так и не смог разобраться с этим GetHostbyAddr. Сколько уже всяких функций перерыл с GetHostbyAddr - ничего мне это не дало.

← →
Сергей М. © (2006-05-22 08:45) [3]

> не смог разобраться

И что непонятно ?

> kernel ©

тебе человек правильно подсказал где искать. То что тебе лень искать это уже другой фактор
// ------------------------------------------------------------------------------ возвращает IP адрес взависимости от имени // что бы узнать свой IP дрес просто указать локальное имя function GetIPAddress(const Name: String): String; var WSAData : TWSAData; HostEnt : PHostEnt; begin WSAStartup($0101,WSAData); Result :=""; HostEnt :=GetHostByName(PChar(name)); Result :=Inet_ntoa(PInAddr(HostEnt.H_addr_list^)^); WSACleanUp; end; // ------------------------------------------------------------------------------ возвращает имя компа по IP адресу function GetIPName(const IPAddr: String): String; var Host : TSockAddrIn; HostEnt : PHostEnt; WSAData : TWSAData; begin WSAStartup($0101,WSAData); Result :=""; Host.Sin_addr.S_addr:=Inet_Addr(PChar(IPAddr)); HostEnt :=GetHostByAddr(@Host.Sin_Addr.S_Addr,4,AF_INET); Result :=StrPas(HostEnt^.H_Name); WSACleanUp; end;

IP2HostName Найти похожие ветки