Форум: "Сети";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
ВнизСКАНЕР СЕТЕВЫХ РЕСУРСОВ Найти похожие ветки
← →
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....
← →
Rouse_ (2003-08-27 14:21) [4]> Melcor (26.08.03 19:10) [2]
Приведенный пример именно это и делает, т.е. выводит список шаров по каждому компу а дальше можешь лазить по найденым ресурсам как по обычным папкам и там производить поиск на фильмы. (А названия компов и сети можешь просто не выводить ;)
Желаю успехов
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.10.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c