Скачать: CL | DM;

Привет всем. Люди добрые подскажите как наити IP-адрес   Найти похожие ветки 

← →
серёга ©   (2002-03-25 12:29) [0]

любого компьютера в сети. Как найти все компьютеры в рабочей группе я нашел в faq, а как узнать их адреса ??? Подскажите пожалуйста.

---

← →
Севостьянов Игорь ©   (2002-03-25 13:30) [1]

Пробуй...

uses ..., Winsock;
....
procedure TfrmMain.btnIPAddressClick(Sender: TObject);
var
WSAData: TWSAData;
p: PHostEnt;
Name: array [0..$FF] of Char;

begin
WSAStartup($0101, WSAData);
Name := "wkst01";
//GetHostName(name, $FF); имя коммпа для локальной на которой запускаешь прогу

p := GetHostByName(Name);
ShowMessage(inet_ntoa(PInAddr(p.h_addr_list^)^));
WSACleanup;
end;

Написано на основе http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988620992&n=20 Не любят люди искать...все наровят на халявку
Вопросы по мылу

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c