Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Работа с адресами



Вернуться к списку функций
 Получение имени компьютера в локальной сети по его IP адресу

 Прислал: savva (Орел) ( 6 июня 2002 г. )
©  Сапронов Алексей (Savva)
 Описание:
Получение имени компьютера в локальной сети по его IP адресу.

 Зависимости:
SysUtils, Winsock

 Ограничения:
Проверено в D6 и Win2k

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение имени компьютера в локальной сети по его IP адресу

Получение имени компьютера в локальной сети по его IP адресу.

Зависимости: SysUtils, Winsock
Автор:       savva, savva@nm.ru, ICQ:126578975, Орел
Copyright:   Сапронов Алексей (Savva)
Дата:        6 июня 2002 г.
***************************************************************** }

function IPAddressToNetworkName(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('ХХХ.ХХХ.ХХХ.ХХХ'));
...


Вернуться к списку функций

Наверх ▲