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

IP -> FQDN   Найти похожие ветки 

← →
CppDemon   (2005-04-02 16:54) [0]

Подскажите сабж плз. Или хотябы как простое доменное имя по ИПу определить.
Спасибо.

---

← →
CppDemon   (2005-04-02 21:18) [1]

Вот по идее эта ф-ция должна хостнейм возвращать.. Но возвращает то, что введешь... т.е. ИП... Что тут не так? Подскажите плз...


function GetHostByIp(ip: string): string;
var hp: pHostEnt;
begin
  hp := gethostbyname(pChar(ip));
  if assigned(hp) then begin
     result := strpas(hp.h_name);
  end else result := "N/A";
end;


---

← →
CppDemon   (2005-04-02 22:05) [2]

bump

---

← →
Verg ©   (2005-04-03 11:38) [3]

gethostbyaddr (not by name)

---

← →
Zyb ©   (2005-04-05 07:46) [4]

function IP_Name(IP:String):String;
var
   pHostEn : PHostEnt;
   wVersionRequested : WORD;
   lwsaData : WSAData;
   addr : Integer;
Begin
 wVersionRequested := MakeWord(1,1);
 WSAStartup(wVersionRequested,lwsaData);
 addr:=inet_addr(Pchar(IP));
 pHostEn := gethostbyaddr(@addr,length(IP),0);
 try
  result:=pHostEn.h_name;
 Except
  result:="N/A";
 End;
End;

---

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

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



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