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

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

IP2HostName [D6, D7, Win2k, WinXP]

kernel ©   (2006-05-19 15:53:00) 

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

---

beglec   (2006-05-22 23:45:00) [1]

> kernel ©  

тебе человек правильно подсказал где искать. То что тебе лень искать это уже другой фактор

// ------------------------------------------------------------------------------ возвращает IP адрес взависимости от имени
// что бы узнать свой IP дрес просто указать локальное имя
function GetIPAddress(const Name: String): String;
var   WSAData     : TWSAData;
     HostEnt     : PHostEnt;
begin
  WSAStartup($0101,WSAData);
  Result   :='';
  HostEnt  :=GetHostByName(PChar(name));
  Result   :=Inet_ntoa(PInAddr(HostEnt.H_addr_list^)^);
  WSACleanUp;
end;
// ------------------------------------------------------------------------------ возвращает имя компа по IP адресу
function GetIPName(const IPAddr: String): String;
var   Host        : TSockAddrIn;
     HostEnt     : PHostEnt;
     WSAData     : TWSAData;
begin
  WSAStartup($0101,WSAData);
  Result   :='';
  Host.Sin_addr.S_addr:=Inet_Addr(PChar(IPAddr));
  HostEnt  :=GetHostByAddr(@Host.Sin_Addr.S_Addr,4,AF_INET);
  Result   :=StrPas(HostEnt^.H_Name);
  WSACleanUp;
end;


---

Сергей М.   (2006-05-22 08:45:00) [2]

> не смог разобраться


И что непонятно ?

---

kernel   (2006-05-19 16:32:00) [3]

> [WSAAsync]GetHostbyAddr


Этого я уже наслышался. Я так и не смог разобраться с этим GetHostbyAddr. Сколько уже всяких функций перерыл с GetHostbyAddr - ничего мне это не дало.

---

Сергей М.   (2006-05-19 16:16:00) [4]

[WSAAsync]GetHostbyAddr

---

Наверх