Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

как получить имя хоста по его IP адресу   Найти похожие ветки 

← →
ALexe   (2002-10-30 11:17) [0]

Братья и сестры =о)
Если не в лом - КАК использовать обратное преобразование адресов - т.е. зная IP получить имя хоста ?

заранее благодарен за все предложения!!

---

← →
ALexe   (2002-10-30 11:19) [1]

в смыслее на Delphi =0)

---

← →
Mischka   (2002-10-30 15:39) [2]


uses Winsock

function getNameOf(const IP: string): string;
var
h: PHostEnt;
addr: TSockAddr;
GInitData: TWSADATA;
begin
WSAStartup($101, GInitData);
Result:="";
addr.sin_addr.s_addr:=inet_addr(pchar(IP));
if addr.sin_addr.s_addr<>INADDR_NONE then
begin
h:=gethostbyaddr(@addr.sin_addr.s_addr, sizeof(addr), AF_INET);
if h<>nil then Result:=h^.h_name
end;
WSACleanup
end;


---

← →
ALexe   (2002-10-31 10:39) [3]

Спасибо за подсказку - я не знал как присвоить этот addr !!!
=o)
Спасибо брат !!!!!

---

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

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.006 c