СКАНЕР СЕТЕВЫХ РЕСУРСОВ

← →
Melcor (2003-08-20 18:39) [0]

НАРОД! Хочу написать сканер сетевых (расшареных) ресурсов... например фильмов. Смысл работы таков : сканер ищет фильмы, сохраняет их в БД (т.е. каждому пользователю соответсвует список фильмов) и потом выкладывает список всех фильмов на вэб сервер (локальный). Плиз! помогите кто чем может, буду рад любым толковым ссылкам примерам и информации.

Заранее благодарен.

← →
Rouse_ © (2003-08-21 00:00) [1]

procedure Scan(Res: TNetResource; Root: boolean); var hEnum: cardinal; nrResource: array[0..512] of TNetResource; dwSize: DWORD; numEntries: DWORD; i: DWORD; dwResult: DWORD; begin if Root = True then dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nil, hEnum) else dwResult := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, @Res, hEnum); if dwResult = NO_ERROR then begin dwSize := SizeOf(nrResource); numEntries := DWORD(-1); if WNetEnumResource(hEnum, numEntries, @nrResource, dwSize) = NO_ERROR then begin for i := 0 to numEntries - 1 do begin if nrResource[i].lpRemoteName <> nil then Form1.Memo1.Lines.Add(nrResource[i].lpRemoteName); Scan(nrResource[i], false); end; end; WNetCloseEnum(hEnum); end; end; procedure TForm1.Button1Click(Sender: TObject); var R:TNetResource; begin Scan(R, True); end;

Желаю успехов

← →
Melcor (2003-08-26 19:10) [2]

Большое спасибо.
У меня еще один вопрос возник : Там, как я понимаю, он с кажды циклам как бы углубляеться в ресурсы. Как мне сделать что бы он вывел список расшареных папок на компе? (без низвания компов и сети микорофт виндовс)

← →
Chlavik © (2003-08-27 09:36) [3]

Ну если хочеш сканить на шару, а не на "кино" то лучше сам раздупляйся с Delphi....

> Melcor (26.08.03 19:10) [2]

Приведенный пример именно это и делает, т.е. выводит список шаров по каждому компу а дальше можешь лазить по найденым ресурсам как по обычным папкам и там производить поиск на фильмы. (А названия компов и сети можешь просто не выводить ;)

Желаю успехов

СКАНЕР СЕТЕВЫХ РЕСУРСОВ Найти похожие ветки