Преобразование доменного имени в IP

← →
HF-Trade © (2009-05-25 23:44) [0]

Наверно частый вопрос, полазив по форумам нашел вот такую функцию.

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

Подскажите что подправить плс

← →
easy © (2009-05-25 23:51) [1]

Caption:=GetIPFromHost("550.gt3.vkadre.ru");

> Подскажите что подправить плс

свои знания на тему "доменное имя" и "URI". правятся в гугле.

Преобразование доменного имени в IP Найти похожие ветки