 |
|
Модераторы: Snowy, Poseidon, MetalFan |
 
|
|
Как получить список компов в сети, точнее их IP 
| Bes |
|
|||
|
Опытный  Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
subject
|
|||
|
||||
Загрузка ...
| Snowy |
|
|||
 Эксперт Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
В DRKB аж 4 способа приводятся.
|
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Сорри, видимо по запарке туда-то и забыл заглянуть
|
|||
|
||||
| Alex |
|
|||
 Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 4 Всего: 162 |
-------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Кстати, не знаю кому задать вопрос.
у меня когда я попытался полазить в факе выскочила ошибка експлорера. типа не волнует - завершаю приложение. А по ссылке Alex-а нормально попадаю. Так что фак для меня закрыт, а там, наверное, много интересного. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Попробовал примеры - ни один не работает.
Что делать? :-( |
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 4 Всего: 162 |
-------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
2Alex: Такая же хрень. Пристегнул - вываливается фатал еррор на модуль LM.
|
|||
|
||||
| The MASTER |
|
|||
|
Old master) Профиль Группа: Участник Сообщений: 862 Регистрация: 19.7.2004 Где: Санкт-Петербург Репутация: нет Всего: 5 |
Скачай присоединённый файлик, там код первого способа...
Присоединённый файл ( Кол-во скачиваний: 23 ) 
code.txt |
|||
|
||||
Дата 4.3.2005, 11:38 (
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Ага. я его использую так
procedure TForm1.Button1Click(Sender: TObject); begin unit2.FindComputers; end; procedure TForm1.Button2Click(Sender: TObject); begin Memo1.Lines.AddStrings(unit2.Computers); end; в результате содержимое мемо становится таким N все. Может я его не той стороной пользую?  |
|||
|
||||
| The MASTER |
|
|||
|
Old master) Профиль Группа: Участник Сообщений: 862 Регистрация: 19.7.2004 Где: Санкт-Петербург Репутация: нет Всего: 5 |
так ты используешь этот пример?
|
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Ну.. Да. добавил в приложение модуль. запихал в него все из примера, а на главную форму две кнопки и мемо. Обработчики написал, в примере ничего не менял.
|
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 4 Всего: 162 |
Скачай модуль еще раз я добавил в архив модуль LM. -------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
Ща попробую.
|
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 4 Всего: 162 |
Помогло? -------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
В юните awNetWork есть uses на awString, а компилятор выдает что awString.dcu не найден и я его прекрасно понимаю. :-)
|
|||
|
||||
| Alex |
|
|||
|
Эксперт Профиль Группа: Экс. модератор Сообщений: 4147 Регистрация: 25.3.2002 Где: Москва Репутация: 4 Всего: 162 |
http://vingrad.ru/DELPHI-SRC-002239 -------------------- Написать можно все - главное четко представлять, что ты хочешь получить в конце. |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: нет Всего: 7 |
модуль awString
function ValueToStr Недекларированный идентификатор FindVarData. |
|||
|
||||
| Vit@ly |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 8.3.2005 Репутация: нет Всего: нет |
||||
|
||||
| Prof_2000 |
|
|||
 Шустрый Профиль Группа: Участник Сообщений: 121 Регистрация: 26.3.2005 Где: Харьков, Украина Репутация: нет Всего: 1 |
Все это хорошо, но в нашей сетке не работает ни одна из вышеуказанных процедур, а также программы, которые используют функцию поиска примерно такого типа(NetView, например). Я уж начинаю задумываться, может организовать поиск последовательным PINGом диапазона IP-адресов, как это делается в программах типа NetLook. Проблема заключается в том, что все известные мне алгоритмы PINGа дожидаются ответа на запрос, даже если хоста не существует, что существенно замедляет поиск. А как это сделать в две нити я не знаю.
--------------------
Pereant qui ante nos nostra dixerunt! (лат.) Да погибнут те, кто раньше нас высказал наши мысли! |
|||
|
||||
| Pavlus |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 26.3.2005 Репутация: нет Всего: нет |
Если кому надо - моя прога.
NetInfo Написал на основе примера из Open Source. Выдает список компов, их IP и их шары. Вот ссылы: сама прога mal.land.ru/netinfo.exe, сорцы mal.land.ru/netinfo.zip (Unknown Identifier-ы - просто вырезать) |
|||
|
||||
|
|
| Правила форума "Delphi: Сети" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Сети | Следующая тема » |
[ Время генерации скрипта: 0.1444 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |