VPF::Узнать IP по адресу www.anyserver.com - Форум программистов

codexby

Дата 20.2.2009, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 7.6.2008
Где: minsk

Репутация: нет
Всего: нет

Подскажите, плиз, как узнать IP-адрес по имени сайта (например mail.ru). В локальной сети используется proxy-сервер.
Тут нашел только как узнавать IP-адреса в локальной сети :(
спасиб smile

WaReZMEN

Дата 22.2.2009, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

codexby, програмно хз но есть сайты в инете которые позволяют это сделать ... можно сформировать запрос а потом страницу парсить...

Qu1nt

Дата 22.2.2009, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50

Код


uses
  WinSock;

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 := '';
  GetHostName(PChar(HostName), Length(hostName));
  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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.Caption := GetIPFromHost('mail.ru');
end;

Virtuals

Дата 22.2.2009, 17:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11

Qu1nt, уверен?

Цитата

В локальной сети используется proxy-сервер.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »