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)

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;

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