Как узнать IP адрес компьютера по его имени

Cети и Интернет   18 Сентябрь 2010  Автор статьи: admin 

Как получать имена всех компьютеров в сети мы уже разобрали здесь. Теперь научимся получать их IP адресы, зная только имя. Для начала добавим в раздел ‘uses’  модуль WinSock. Этот модуль дает нам более широкие возможности при работе с сетями и он нам пригодится. Далее создадим функцию, в единственный параметр которой мы будем передавать имя компьютера в формате string. В результате этой функции мы получим IP адрес, который тоже будет в формате string.

const
  WINSOCK_VERSION = $0101;

function GetIPAddress(name: string): string;
var
  WSAData: TWSAData;
  p: PHostEnt;
begin
  WSAStartup(WINSOCK_VERSION, WSAData);
  p := GetHostByName(PChar(name));
  Result := inet_ntoa(PInAddr(p.h_addr_list^)^);
  WSACleanup;
end;

Используя 2 функции, GetHostByName и inet_ntoa, мы можем легко получить IP адрес по имени.

Научиться программировать

  • на Delphi

  • на Java

  • на C++