Текущий архив: 2005.01.02;
Скачать: CL | DM;
Вниз
Получение 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.048 c
