Текущий архив: 2009.07.19;
Скачать: CL | DM;

Вниз

Преобразование доменного имени в 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");

---

← →
Palladin ©   (2009-05-26 08:21) [2]

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

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

---

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

Текущий архив: 2009.07.19;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c