| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Глеб ©   (2004-06-29 05:27:00) 

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

---

Глеб   (2004-07-25 09:32:00) [1]

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

---

Said   (2004-06-29 08:05:00) [2]

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;

---

Evgeny V   (2004-06-29 07:06:00) [3]

gethostbyname

---

hyper_omsk   (2004-06-29 06:19:00) [4]

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

---

Наверх