Скачать: CL | DM;

IP2HostName   Найти похожие ветки 

← →
kernel ©   (2006-05-19 15:53) [0]

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

---

← →
Сергей М. ©   (2006-05-19 16:16) [1]

[WSAAsync]GetHostbyAddr

---

← →
kernel ©   (2006-05-19 16:32) [2]

> [WSAAsync]GetHostbyAddr


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

---

← →
Сергей М. ©   (2006-05-22 08:45) [3]

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


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

---

← →
beglec ©   (2006-05-22 23:45) [4]

> 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;


---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c