| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Преобразование доменного имени в IP [D7, XP]
HF-Trade © (2009-05-25 23:44:00)Наверно частый вопрос, полазив по форумам нашел вот такую функцию.
function GetIPFromHost(const HostName: string): string;
Type
TaPInAddr = array[0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
I: Integer;
GInitData: TWSAData;
begin
WSAStartup($101, GInitData);
Result := '';
phe := GetHostByName(PChar(HostName));
if phe = nil then Exit;
pPtr := PaPInAddr(phe^.h_addr_list);
I := 0;
while pPtr^[i] <> nil do
begin
Result := inet_ntoa(pptr^[I]^);
Inc(I);
end;
WSACleanup;
end;
Пытаюсь получить IP по имени -
Caption:=GetIPFromHost(' http://550.gt3.vkadre.ru');
Получаю адреса(каждый раз разные)
от 195.218.183.85 и до 87
Правильный IP
195.218.183.95
Подскажите что подправить плс
Palladin (2009-05-26 08:21:00) [1]
> Подскажите что подправить плс
свои знания на тему "доменное имя" и "URI". правятся в гугле.
easy (2009-05-25 23:51:00) [2]Caption:=GetIPFromHost('550.gt3.vkadre.ru');
| |
