Как мне узнать IP-адрес компьютера в сети, зная его имя?

← →
Глеб © (2004-06-29 05:27) [0]

← →
hyper_omsk (2004-06-29 06:19) [1]

на закладке indy clients
IdIcmpClient1.Ping();
ListBox1.Items.Add(IdIcmpClient1.ReplyStatus.FromIpAddress);

← →
Evgeny V © (2004-06-29 07:06) [2]

gethostbyname

← →
Said © (2004-06-29 08:05) [3]

function GetIPAddress(NetworkName: String): String;
var
Error: DWORD;
HostEntry: PHostEnt;
Data: WSAData;
Address: In_Addr;
begin
Delete(NetworkName, 1, 2);
Error:=WSAStartup(MakeWord(1, 1), Data);//начинаем работу с сокетами
if Error = 0 then
begin
HostEntry:=gethostbyname(PChar(NetworkName)); //хост по имени
Error:=GetLastError();
if Error = 0 then
begin
Address:=PInAddr(HostEntry^.h_addr_list^)^;
Result:=inet_ntoa(Address); //Конвертирует адрес в стандартный формат интернет
end
else
Result:="Unknown";
end
else
Result:="Error";
WSACleanup();
end;

что-то ничего из этого не работает

Как мне узнать IP-адрес компьютера в сети, зная его имя? Найти похожие ветки