| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Сети > Как получить список компов в сети |
| Автор: Bes 3.3.2005, 15:47 |
| subject |
| Автор: Snowy 3.3.2005, 15:58 |
| В DRKB аж 4 способа приводятся. |
| Автор: Bes 3.3.2005, 17:08 |
| Сорри, видимо по запарке туда-то и забыл заглянуть |
| Автор: Alex 3.3.2005, 19:19 |
| http://forum.vingrad.ru/index.php?act=module&module=vingradfaq§ion=753 |
| Автор: Bes 4.3.2005, 08:08 |
| Кстати, не знаю кому задать вопрос. у меня когда я попытался полазить в факе выскочила ошибка експлорера. типа не волнует - завершаю приложение. А по ссылке Alex-а нормально попадаю. Так что фак для меня закрыт, а там, наверное, много интересного. |
| Автор: Bes 4.3.2005, 08:44 |
| Попробовал примеры - ни один не работает. Что делать? :-( |
| Автор: Alex 4.3.2005, 09:02 |
| http://vingrad.ru/DELPHI-SRC-002242 |
| Автор: Bes 4.3.2005, 10:57 |
| 2Alex: Такая же хрень. Пристегнул - вываливается фатал еррор на модуль LM. |
| Автор: The MASTER 4.3.2005, 11:38 |
| Скачай присоединённый файлик, там код первого способа... |
| Автор: Bes 4.3.2005, 12:56 |
| Ага. я его использую так procedure TForm1.Button1Click(Sender: TObject); begin unit2.FindComputers; end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.AddStrings(unit2.Computers); end; в результате содержимое мемо становится таким N все. Может я его не той стороной пользую?  |
| Автор: The MASTER 4.3.2005, 13:11 |
| так ты используешь этот пример? |
| Автор: Bes 4.3.2005, 13:39 |
| Ну.. Да. добавил в приложение модуль. запихал в него все из примера, а на главную форму две кнопки и мемо. Обработчики написал, в примере ничего не менял. |
| Автор: Alex 4.3.2005, 17:46 | ||
Скачай модуль еще раз я добавил в архив модуль LM. |
| Автор: Bes 7.3.2005, 07:59 |
| Ща попробую. |
| Автор: Alex 8.3.2005, 21:28 | ||
Помогло? |
| Автор: Bes 9.3.2005, 07:40 |
| В юните awNetWork есть uses на awString, а компилятор выдает что awString.dcu не найден и я его прекрасно понимаю. :-) |
| Автор: Alex 9.3.2005, 07:55 | ||
http://vingrad.ru/DELPHI-SRC-002239 |
| Автор: Bes 9.3.2005, 08:52 |
| модуль awString function ValueToStr Недекларированный идентификатор FindVarData. |
| Автор: Vit@ly 9.3.2005, 13:06 |
| Исходники возьми здесь: http://www.rouse.front.ru/fastscan.zip |
| Автор: Prof_2000 26.3.2005, 12:57 |
| Все это хорошо, но в нашей сетке не работает ни одна из вышеуказанных процедур, а также программы, которые используют функцию поиска примерно такого типа(NetView, например). Я уж начинаю задумываться, может организовать поиск последовательным PINGом диапазона IP-адресов, как это делается в программах типа NetLook. Проблема заключается в том, что все известные мне алгоритмы PINGа дожидаются ответа на запрос, даже если хоста не существует, что существенно замедляет поиск. А как это сделать в две нити я не знаю. |
| Автор: Pavlus 27.3.2005, 23:33 |
| Если кому надо - моя прога. NetInfo Написал на основе примера из Open Source. Выдает список компов, их IP и их шары. Вот ссылы: сама прога mal.land.ru/netinfo.exe, сорцы mal.land.ru/netinfo.zip (Unknown Identifier-ы - просто вырезать) |