| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Узнать IP по имени домена
vagra © (2006-04-08 02:38:00)Как можно узнать IP адрес сервера, если известно его доменное имя?
Спасибо.
DVM (2006-04-11 14:55:00) [1]
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;
Rouse_ (2006-04-10 21:07:00) [2]
> А кто знает как наоборот? что-то в роде getnamebyhost?
gethostbyaddr.
очевидно нужно покупать клавиатуру с работающей F1
kernel (2006-04-10 17:24:00) [3]А кто знает как наоборот? что-то в роде getnamebyhost?
Anatoly Podgoretsky (2006-04-08 12:28:00) [4]gethostbyname
| |
