Получение 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;

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

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

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