Привет всем. Люди добрые подскажите как наити IP-адрес [D5, NT4]
серёга © (2002-03-25 12:29:00)
любого компьютера в сети. Как найти все компьютеры в рабочей
группе я нашел в faq, а как узнать их адреса ??? Подскажите
пожалуйста.
Севостьянов Игорь (2002-03-25 13:30:00) [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
Не любят люди искать...все наровят на халявку
Вопросы по мылу
Наверх 
ЧАТ |
Орешник |
|
