Форум: "Сети";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Вниз

Получение IP-адреса   Найти похожие ветки 

← →
AngelFire   (2004-10-15 16:13) [0]

Многоуважаемые  Мастера! Можно ли как-нибудь (программным способом) получить IP-адрес компьютера и может ли их быть несколько - например если у меня установлено несколько сетевых карт?

с уважением,
Максим

---

← →
Rouse_ ©   (2004-10-15 16:28) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 WSAData: TWSAData;
 p: PHostEnt;
 Name: array [0..$FF] of Char;
begin
WSAStartup($0101, WSAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
while Assigned(p.h_addr_list^) do
begin
  memo1.Lines.Add(inet_ntoa(PInAddr(p.h_addr_list^)^));
  inc(p.h_addr_list);
end;
WSACleanup;
end;

---

← →
Reindeer Moss Eater ©   (2004-10-15 16:38) [2]

и может ли их быть несколько - например если у меня установлено несколько сетевых карт?

Их может быть несколько даже если сетевых карт нет вообще.

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c