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

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

IP -> FQDN

CppDemon ©   (2005-04-02 16:54:00) 

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

---

Zyb   (2005-04-05 07:46:00) [1]

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;

---

Verg   (2005-04-03 11:38:00) [2]

gethostbyaddr (not by name)

---

CppDemon   (2005-04-02 22:05:00) [3]

bump

---

CppDemon   (2005-04-02 21:18:00) [4]

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


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;


---

Наверх