Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Функции преобразования IP адреса в имя компьютера   Найти похожие ветки 

← →
leosan   (2004-03-04 07:24) [0]

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

---

← →
Zacho ©   (2004-03-04 08:10) [1]

GetHostByAddr

---

← →
xShadow ©   (2004-03-04 17:08) [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;

---

← →
SammIk ©   (2004-03-05 14:37) [3]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.044 c