{ **** UBPFD *********** by delphibase.endimus.com **** >> Получение имени компьютера в локальной сети по его IP адресу Получение имени компьютера в локальной сети по его IP адресу. Зависимости: SysUtils, Winsock Автор: savva, savva@nm.ru, ICQ:126578975, Орел Copyright: Сапронов Алексей (Savva) Дата: 6 июня 2002 г. ***************************************************** } functionIPAddressToNetworkName(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
begin
result := StrPas(Hostent^.h_name) end
else
begin
result := ''; end
; end
;
Пример использования:
ShowMessage(IPAddressToNetworkName('ХХХ.ХХХ.ХХХ.ХХХ'));