IP компа в локальной сети

[Alex711]

Здравствуйте, подскажите пожалуйста как можно узнать IP компа в локальной сети зная его имя? Delphi 7.

[Shouldercannon]

Первый же ответ в поиске Google

uses
  WinSock;

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;

[Alex711]

Функция это хорошо конечно, только не хватает знаний как использовать. Подскажите пожалуйста.

[Alex711]

Сделал так:

procedure TForm1.Button1Click(Sender: TObject);
var
Comp7 : string;
begin
  Label1.Caption := GetIPAddress(Comp7);
end;

Функция вернула IP моего компа а не Comp7, IP своего компа я и так знаю, мне надо IP Comp7.

[p51x]

Ну так вы передавайте не пустую строку, а нужное имя.

[Alex711]

Спасибо Shouldercannon, разобрался. Почему-то не нажимается на весы...

[Aliens_wolfs]

Более подробно будет так
Label1.Caption := GetIPAddress('Имя компа либо хостинга');

[Alex711]

Так и сделал. Ещё раз спасибо.

[xxbesoxx]

http://www.programmersforum.ru/showt...lt#post1529447