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

Узнать IP по имени домена   Найти похожие ветки 

← →
vagra ©   (2006-04-08 02:38) [0]

Как можно узнать IP адрес сервера, если известно его доменное имя?
Спасибо.

---

← →
Anatoly Podgoretsky ©   (2006-04-08 12:28) [1]

gethostbyname

---

← →
kernel ©   (2006-04-10 17:24) [2]

А кто знает как наоборот? что-то в роде getnamebyhost?

---

← →
Rouse_ ©   (2006-04-10 21:07) [3]

> А кто знает как наоборот? что-то в роде getnamebyhost?

gethostbyaddr.
очевидно нужно покупать клавиатуру с работающей F1

---

← →
DVM ©   (2006-04-11 14:55) [4]


function IPAddressToNetworkName(IPAddr: string): string;
var
 SockAddrIn: TSockAddrIn;
 HostEnt: PHostEnt;
 WSAData: TWSAData;
begin
 WSAStartup($0101, WSAData);
 SockAddrIn.sin_addr.s_addr := inet_addr(PChar(IPAddr));
 HostEnt := GetHostByAddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);
 if HostEnt <> nil then
   result := Hostent^.h_name
 else
   result := "";
end;

//------------------------------------------------------------------------------

function GetIPAddress(Host: string): string;
var
 WSAData: TWSAData;
 p: PHostEnt;
begin
 WSAStartup($0101, WSAData);
 p := GetHostByName(PChar(Host));
 Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
 WSACleanup;
end;


---

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

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



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