Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
ВнизПривет всем. Люди добрые подскажите как наити 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 вся ветка
Форум: "Сети";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c