Текущий архив: 2006.08.27;
Скачать: 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 вся ветка
Текущий архив: 2006.08.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.053 c
