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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Преобразование IP адресa в доменное имя.

 Прислал: Gua (Simferopol) ( 18 июля 2002 г. )
©  Unknown
 Зависимости:
Winsock

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Преобразование IP адресa в доменное имя.

Зависимости: Winsock
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Unknown
Дата:        18 июля 2002 г.
***************************************************************** }

function IPToHost(IP: 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;


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

Наверх ▲