| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Функции преобразования IP адреса в имя компьютера [D6]

leosan ©   (2004-03-04 07:24:00) 

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

---

SammIk   (2004-03-05 14:37:00) [1]

Удалено модератором
Примечание: Создание пустых сообщений ...

---

xShadow   (2004-03-04 17:08:00) [2]

Function IPtoHost( const IP: string ): string;
var WSData : TWSAData;
   HostEnt: PHostEnt;
   IIP    : LongInt;
Begin
   Result := '';
   WSAStartup( $0101, WSData );
   IIP := inet_addr( PChar( IP ) );
   try
     HostEnt := GetHostByAddr( @IIP, SizeOf( Longint ), AF_INET );
     if Assigned( HostEnt ) then RESULT :=  HostEnt^.h_name;
   finally
   WSACleanup;
   end;
end;

---

Zacho   (2004-03-04 08:10:00) [3]

GetHostByAddr

---

Наверх