Вниз
Скачать: CL | DM;

Нужно сканировать доступность расшаренного ресурса в ЛВС. Как?   Найти похожие ветки 

← →
A.R.T.K.O. ©   (2003-04-01 08:28) [0]

Задача такая: есть сервер с расшаренными папками, есть около 50-ти клиентов, с каждым ресурсом возможен одновременно только один сеанс связи. Нужен монитор позволяющий пользователь в on-line (автоматом, а не по запросу)видеть какие ресурсы в данный момент доступны и вслучае если ресурс свободен, давать возможность подключить ресурс как локальный диск. Пробовал реализовать при помощи WNetAddConnection() и WNetCancelConnection(),но...? При таком количестве клиентов если постоянно делать тестовое подключение, папки 90% времени оказываются недоступными. :(
Посоветуйте, можно ли что-то иное придумать? (З.Ы. Лучше с краткими примерами. Заранее СПАСИБО) :)


← →
AlexMax ©   (2003-04-01 17:49) [1]

Посмотри статью "Мониторинг сетей" на сайте. Вот ссылка http://www.delphi.mastak.com/articles/netmon/index.html. В частности в процедуре NetShareEnum у структур Share_Info_2, Share_Info_502 и.т.д. есть свойства max_uses, current_uses. Попробуй покопать в этом направлении, и если current_uses < max_uses то подключай диск.


← →
гость   (2003-04-01 19:06) [2]

AlexMax
читал но при выполнении например
NetShareEnum("\\10.1.2.1",50,@Share,SizeOf(Share), @pcEntriesRead,@pcTotalAvail) возвращает не 0.
А мне надо определить расшаренные ресурсы на удаленом компе.
Как это можно сделать ?


← →
A.R.T.K.O. ©   (2003-04-02 10:09) [3]

To AlexMax:

Ссылка на статью не верна

> Error 404
> The page cannot be found...

:(


← →
A.R.T.K.O. ©   (2003-04-02 10:12) [4]

To AlexMax

Нашел :)

Ссылка: http://delphi.mastak.ru/articles/netmon/index.html


← →
A.R.T.K.O. ©   (2003-04-02 19:18) [5]

Проблему решил. Статья помогла + покопался на
msdn.microsoft.com



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

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



Память: 0.46 MB
Время: 0.012 c
7-3198
Makhanev A.S.
2003-03-30 22:01
2003.06.02
Насчёт манифеста XP


3-2778
Aleksey V.P.
2003-05-13 14:44
2003.06.02
Insert, Update в DBF через BDE


14-3115
RIMMER
2003-05-13 23:46
2003.06.02
Lacrimosa


1-2968
Unknown user
2003-05-19 21:27
2003.06.02
ПРоблема при копировании канвы TCustomControl в TBitmap.Canvas


14-3177
Ronin
2003-05-14 22:34
2003.06.02
Как убить процесс?




   Наверх