Возможно ли средствами ФормЕкс или 1С++ перехватывать/запрещать открытие диалога сохранения/открытия файла?
Не хочу, чтобы на терминальном сервере люди таким образом рыскали по диску и копировали/стирали файлы.

Хорошая штука, по ходу. Еще разбираюсь.
Насторйка только интерактивно (частичная) или через реестр?
Я хочу при запуске в режиме Предприятия установить парАметры доступа. Некторым пользователям все, некоторым - ничего. Если делать через реестр - неудобно и требуется перезагрузка программы. Так?

Не подходит - слишком заморочно. Данные о правах пользователя - в самой 1с. Кроме того в терминале запрещен запуск всего остального.
Код открыт? Реально переделать под компоненту?

metaeditor писал(а) 21. Мая 2009 :: 11:02:

А сработает?
О, разработчкики 1спп!
Не могли бы вы выделить 5 минут и добавить ф-ии для работы с GetOpenFileNameA/W и GetSaveFileNameA/W?

blindvic писал(а) 21. Мая 2009 :: 18:52:

Почему именно в 1cpp?
Это задача никак не связана с функционалом 1cpp -> лучше вынести в отдельную компоненту без регистрации в реестре.
Плюс здесь в том, что ее можно будет разрабатывать и поддерживать самостоятельно.

По теме: еще можно использовать групповые политики для ограничения доступа к дискам сервера.

А в чем заморочка управления через реестр? При старте системы пиши текущему пользователи те права, которые он заслужил.
Всё равно ты будешь куда-то записывать/устанавливать эти данные. Какая разница куда?

blindvic писал(а) 26. Мая 2009 :: 13:24:


нет, исходников я не открывал... если надо, могу показать, да только толку с этого, там в трех тыщах паскалевского кода на чистом winapi я и сам уже путаюсь

Если тебе нужна просто функция блокировки диалогов, давай я сделаю обычную ВК? Это несложно.

Вот компонента.
Функция отключения контекстного меню будет позже.

ЗагрузитьВнешнююКомпоненту("OpenFileDialogsManager.dll")
менеджерДиалогов = СоздатьОбъект("AddIn.OpenFileDialogsManager");
менеджерДиалогов.УстановитьНачальныйКаталог("c:\111\"); //диалог будет открываться в указанном каталоге
менеджерДиалогов.БлокироватьДиалоги(1); //1 - включить, 0 - отключить блокировку 

файл находится ниже

blindvic писал(а) 01. Июня 2009 :: 13:30:

Реально. Думаю сделать так:
делаем УстановитьНачальныйКаталог(), открываем диалог в котором все элементы для перемещения в другие папки будут недоступны.

Круто!
Проверю позже.
Вопрос:
менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(1); //запретить в диалоге перемещение в другие папки

Можно ли запретить подниматься выше указанной папки, а внутри премещаться свободно. Т.е. назначить пользователю папку внутри к-й он может делать что хочет - и открывать и сохранять, а выше подняться - нельзя было?

Backspace наверное сработает
Или в поле "Имя файла" ввести ".." или полный путь к нужной директории.

менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(1); //запретить в диалоге перемещение в другие папки
не могу выбрать файл - только если вручную ввести имя файла

Я же говорил, что будет сложнее 

Между прочим Ctrl-C работает, хоть ты отключил Ctrl-V

Ctrl-Insert и Shift-Insert работают.

Я не знаю, как это работает, но, наверное, надо идти по пути событий - типа, при попытке смена каталога проверять путь, при файловой операции - отрубать

blindvic

менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(1);
//если параметр равен 1, нельзя перейти ни в какой другой каталог
//если параметр равен 2, тогда аналогично 1, кроме подкаталогов текущего каталога 

плюс добавил исправление бага про 63 символа в имени файла

надеюсь, больше ни к чему не придерешься)

файл находится ниже

Хе-хе, работает!
Косметическое замечание (если будет настроение у тебя исправить). Когда запрещено выходить из текущего каталога, но разрешено входить в подкаталоги, кнопка Назад активируется, но кнопка Вверх и клавиша Backspace не работают.
Буду внедрять.  

ЗЫ Пожалуй, можно ветку переместить в репозиторий

по просьбе с инфостарта добавил ещё пару методов

менеджерДиалогов.ПоказыватьПанельНавигации(1); //отображать слева диалога панель с кнопками
менеджерДиалогов.УстановитьФильтр("Файлы Excel (*.xls)|*.xls|Текстовые файлы (*.txt)|*.txt|Все файлы (*.*)|*.*");
менеджерДиалогов.УстановитьНомерФильтра(3); 

т.е ты хочеш чтобы допустим изначально открывался КаталогПользователя(), а потом, если выбрали файл в "КаталогПользователя()\Подкаталог" то в следующий раз чтобы диалог открылся в этом самом "Подкаталог"  ?

Используйте программу WinLock - очень хорошо работает для защиты компьютера.
Если кому надо, могу выслать Вам на е-майл программу  с ключиком. (когда то купил ключ за 5 $)  =)
Пишите admin@te.spb.su

metaeditor писал(а) 10. Августа 2009 :: 12:30:


Работает так как нужно.
Но , при использовании метода менеджерДиалогов.ЗапоминатьПоследнийКаталог(1); при сохранении или открытии файла вылетает вероятно окно для отладки "CDN_FILEOK".
Если можно, то лучше это убрать.
А так, все замечательно.
Еще раз большое спасибо за компоненту!

Потестировал я компоненту , выявил вот еще что.

Юзеры для работы используют несколько каталогов (2,3).
При

менеджерДиалогов.УстановитьНачальныйКаталог("N:\Каталог1\");
менеджерДиалогов.ЗапоминатьПоследнийКаталог(1);
 

все работает нормально.

Если я затем хочу поменять каталог, т.е.

менеджерДиалогов.УстановитьНачальныйКаталог("R:\Каталог2\"); 

то открывается "старый" сохраненный каталог.
И естественно при попытки выйти вверх по иерархии - нет доступа.

Хотелка.
Хотелось бы, чтобы при сохранении истории учитывался каталог из метода менеджерДиалогов.УстановитьНачальныйКаталог("R:\Каталог2\"); , т.е. у каждого "начального" каталога была бы своя история.

Вот такую вот процедуру написал с использованием компоненты - может кому пригодится
Если пользователи работают с базой через терминал (RDP), запускаешь при начале работы системы и дурных вопросов от юзверей становится намного меньше

// Создает в КаталогеПользователя подкаталог "Мой компьютер" а в нем ярлыки на диски того компьютера
// за которым сидит юзверь. Каталогом по умолчанию для файловых операция выставляется КаталогПользователя
// Чтобы юзверь не ныл "А как мне сохранить отчет на мой диск "С"? А через сетевое окружение это слишком долго! А я не запомню!" и т.п. хрень
Процедура СоздатьЯрлыкиНаСвоиДиски()
	Перем RDPsession, ClientName;

	БазаНаСетевомДиске = 0;
	рег = СоздатьОбъект( "РаботаСРегистромWin" );
	// имя терминальной сессии (если в терминале) или "Console"
	рег.ОткрытьКлюч( "HKEY_CURRENT_USER", "Volatile Environment", "KEY_QUERY_VALUE" );
	рег.ЗапроситьЗначение("SESSIONNAME", RDPsession);
	Если (ПустоеЗначение(RDPsession) = 1) ИЛИ (RDPsession = "Console") Тогда
		// Т.е. мы работаем не через терминальную сессию, а запускаем 1С на своем компе - определяем имя компютера на которм сидим
		рег.ОткрытьКлюч( "HKEY_LOCAL_MACHINE", "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName", "KEY_QUERY_VALUE" );
		рег.ЗапроситьЗначение( "ComputerName", ClientName );
		// Теперь проверяем где-же у нас база - на локальном или на сетевом ресурсе
		Если Лев(КаталогИБ(), 1) <> "\" Тогда
			WshNetwork=СоздатьОбъект("WScript.Network");
			Drives=WshNetwork.EnumNetworkDrives();
			ы=0;
			Пока ы <= Drives.Count()-1 Цикл
				Если Лев(КаталогИБ(), 2) = Drives.Item(ы) Тогда
					БазаНаСетевомДиске = 1;
				    //Сообщить(Drives.Item(ы)+" - "+Drives.Item(ы+1));
				КонецЕсли;
			    ы=ы+2;
			КонецЦикла;
		Иначе
			БазаНаСетевомДиске = 1;
			КонецЕсли;
	Иначе
		// Работаем через терминальную сессию - определяем имя компьютера за которым сидим следующим образом
		рег.ОткрытьКлюч( "HKEY_CURRENT_USER", "Volatile Environment", "KEY_QUERY_VALUE" );
		рег.ЗапроситьЗначение( "CLIENTNAME", ClientName);
	КонецЕсли;

	Если (БазаНаСетевомДиске = 1) ИЛИ ((ПустаяСтрока(RDPsession) = 0) И (RDPsession <> "Console")) Тогда
		// Если работаем через терминал или каталог БД находится на сетевом ресурсе
		КаталогДляЯрлыков = КаталогПользователя() + "Мой компьютер";
		ФСР = СоздатьОбъект("ФСРасш");
		Если ФСР.СуществуетФайл(КаталогДляЯрлыков) = 1 Тогда
			Если ФСР.ЭтоКаталог(КаталогДляЯрлыков) = 1 Тогда
				FSO=СоздатьОбъект("Scripting.FileSystemObject");
				FSO.DeleteFolder(КаталогДляЯрлыков,0);
			Иначе
				ФСР.УдалитьФайл(КаталогДляЯрлыков);
			КонецЕсли;
		КонецЕсли;
		Если ФСР.СоздатьКаталог(КаталогДляЯрлыков) = 1 Тогда
			WshShell=СоздатьОбъект("WScript.Shell");
			WshShortcut=WshShell.CreateShortcut(КаталогДляЯрлыков + "\Disk C.lnk");
			//WshShortcut.Arguments="C:\autoexec.bat";
			WshShortcut.Description="Диск ""С"" моего комьютера";
			//WshShortcut.HotKey="CTRL+ALT+F";
			WshShortcut.IconLocation="shell32.dll, 5";
			WshShortcut.TargetPath="\\"+ClientName+"\C$";
			WshShortcut.WindowStyle=1;
			WshShortcut.WorkingDirectory="C:\";
			//Сообщить(WshShortcut.FullName);
			WshShortcut.Save();
		КонецЕсли;
		МенеджерДиалогов = СоздатьОбъектВК("OpenFileDialogsManager.dll", "AddIn.OpenFileDialogsManager");
		Если МенеджерДиалогов <> 0 Тогда
			//МенеджерДиалогов.БлокироватьДиалоги(1)
			МенеджерДиалогов.УстановитьНачальныйКаталог(КаталогПользователя());
			Если НазваниеНабораПрав() <> АдминистративныйНаборПрав Тогда
				// А теперь надежно зафиксируем пациента в его рабочем каталоге, чтоб не лазил по серверу куда попало :)
		    	МенеджерДиалогов.ЗапретитьФайловыеОперации(1); //отключает в диалоге операции копирования, удаления, перемещения, контекстное меню
		    	//МенеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(2); // Запрещаем переходить по дереву каталогов вверх от тек. каталога (вниз можно)
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры
 

Вот еще бы ту возможность о которой я писал в предыдущем посте, тогда можно было-бы разблокировать строку
МенеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(3) и было-бы полное счастье для админа. Юзеры сидят себе тихонько в своих каталогах и не лазят куда не просят

OstapBender писал(а) 13. Августа 2009 :: 14:31:


Дико извиняюсь! Это мой класс основанный на ФС но несколько расширенный

Вот определение

//#if ! _class_ФСРасш
класс ФСРасш = ExFileSystem.ert  : ФС
{
//#define _class_ФСРасш
	Строка ДобавитьОбратныйСлеш(Знач Строка ИмяФайла);
	Строка УдалитьОбратныйСлеш(Знач Строка ИмяФайла);
	Строка ПолучитьИмяФайла(Знач Строка ИмяФайла);
	Строка ПолучитьПутьКФайлу(Знач Строка ИмяФайла);
	Строка ПолучитьРасширениеФайла(Знач Строка ИмяФайла);
	СписокЗначений ПолучитьВсеФайлы(Знач Строка Маска, Знач Число ПолнИмя = 1);  
	Число ЭтоКаталог(Знач Строка Имя);
	Число СоздатьКаталог(Знач Строка ИмяКаталога, Знач Число СообщатьОбОшибке = 1);
};
//#endif
 

Спасибо, за столь быструю реакцию и интересное решение - тоже были с этим заморочки.

OstapBender писал(а) 14. Августа 2009 :: 07:24:


Да я честно говоря тоже не очень Этот кусок я писал методом "копипаста"
Такое впечатление что объект не создался, хотя почему не на

WshShell=СоздатьОбъект("WScript.Shell");
 

заругалось ...... ну может быть конечно оно исключения не выдало а просто "0" вернуло. Попробуй спроси ТипЗначенияСтр(WshShell)

А операционки одинаковые на всех машинах?

Вот почитай http://www.kuban.ru/forum_new/forum9/arhiv/273795.html может поможет

Задумка хорошая! Понравилась реализация!
Вот тока с файловыми операциями не все понятно: по правой и по левой кнопке мыши контекстное меню не показывает - все нормально, но вот когда правой кнопкой мыши пытаемся перенести любой файл на другое место - опля - контекстное меню (правда урезанное) перед нами. При установленном 7zip'е, можно открыть из конт. меню сам 7-zip, и в нем можно творить что угодно и с кем угодно...

metaeditor писал(а) 19. Августа 2009 :: 10:20:


Ну это как вариант тоже годится. Конечно есть еще сетевые диски, но на крайний случай к ним ведь можно обратится по сетевому имени если немного покурить маны по vbs

Тем более если тебе так проще ..... А я не знаю алгоритма который ты пользуешь, поэтому настаивать и лезть с советами не буду

PS Еще раз спасибо как за компоненту так и за поддержку ...

менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(2); 	 

Если параметр равен 3, тогда аналогично 2, плюс разрешается доступ к сетевым папкам и дискам.
Также убрано меню при перетаскивании правой кнопкой мыши.
     

в глобальнике достаточно или в текущей открытой форме тоже?

1.0.0.7
Предопределенные события глобального модуля:

//Вызывается при открытии диалога выбора файла.
//	РежимДиалога - режим открытия диалога. 0 - для открытия, 1 - для сохранения файла.
//Установка СтатусВозврата(0) в данной процедуре, отменяет открытие диалога.
Процедура ДиалогВыбораФайлаПриОткрытии(РежимДиалога)
  
КонецПроцедуры // ДиалогВыбораФайлаПриОткрытии 

//Вызывается при выборе файла в диалоге (нажатии на ОК).
//	ПолноеИмяФайла - полное имя выбираемого файла
//	РежимДиалога - режим открытия диалога. 0 - для открытия, 1 - для сохранения файла.
Процедура ДиалогВыбораФайлаПриВыборе(ПолноеИмяФайла, РежимДиалога)
  
КонецПроцедуры // ДиалогВыбораФайлаПриВыборе 

прикрепленный файл находится ниже

Опа! Поспешил! В Перехватчике СтатусВозврата(0) не работает
В ГМ работает а в Перехватчике нет
Пробовал и СтатусВозврата(0) и оформить как функцию и сделать Возврат 0; - не работает ни так ни эдак

да, у меня перехватчик тоже не видит статус возврата.
вобщем я переделал событие ДиалогВыбораФайлаПриОткрытии на функцию, так работает.

//Для запрета открытия диалога данная функция должна вернуть 0, для разрешения 1
Функция ДиалогВыбораФайлаПриОткрытии(РежимДиалога)
КонецФункции 

avgreen писал(а) 02. Сентября 2009 :: 19:20:

ИМХО это проблема не ФормЕкс, он ведь в среде 1С правильно работает, а проблема перехватчика скорее всего.

Хотя, возможно, что в ФормЕкс идет неверный вызов процедур-обработчиков событий, нужно изучать код ФормЕкс.

Супер ВК! А теоретически в ней возможно реализовать блокировку меню файл во всех приложениях?

Огромное спасибо разработчику! ВК полезная. Но кое что хотелось бы уточнить.
1. База 1С7.7 в терминале. В терминале у пользователей нет сетевых подключений, кроме \\tsclient\C\: и так далее. Запираю пользователя в его каталоге, например "КаталогИБ\USR12\" и там нет сетевых ссылок. Создал ярлыки вручную.

2. При использовании "МенеджерДиалогов.ЗапоминатьПоследнийКаталог(1);" по ярлыку перехожу на локальный диск "С:\" (\\tsclient\C:) открываю файл.
ПРи следующем вызове диалога открытия попадаю в указанный выше каталог (все правильно) но из него уже не куда не могу перейти. (пользователю ограничен доступ к файловым операциям (использовал "менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога(3)")).
Так и должно быть или я что-то не так сделал?

А нельзя запоминать последний и стартовый каталог? И еще вопрос, не знаете как закрыть запуск в режиме конфигуратора и монитора? (единственный способ известный мне - через параметры командной строки, но неудобно, т.к. у нас нужен выбор пользователя при старте)

Я не знаю механизма, но ведь Вы как-то организовали запоминание последнего каталога, а стартовый каталог мы определяем сами.
Или все ограничено опциями диалога открытия и нельзя добавить кнопку на панель "Домой"?

Вы имеете ввиду установка прав для группы пользователей на открытие/исполнение?

Все понял. Спасибо. И еще раз спасибо за ВК.

В качестве эксперимента создал файлик с о-о-очень длинным именем
(200 символов плюс расширение).
На XP взялся без проблем, а под Windows7 если имя не обрезать до  160(+/- 4 )символов, в конце имени абра-кадабра. Мне достаточно и этого количесва символов, просто из любопытства поэксперементировал.

Разобрался
вылетает 1С если использовать метод  УстановитьФильтр(...

      менеджерДиалогов = СоздатьОбъект("AddIn.OpenFileDialogsManager");
     //Это нельзя использовать вылетает 1С ФС.ВыбратьКаталог(...
     //менеджерДиалогов.УстановитьФильтр("Файлы Excel (*.xls)|*.xls|    Текстовые файлы (*.txt)|*.mxl|Файлы 1С (*.mxl)|*.mxl|Все файлы (*.*)|*.*");


Но можно и без этого метода обойтись, так что негорит

в связи с http://www.1cpp.ru/forum/YaBB.pl?num=1156144489/48#48
обновил так же и эту компоненту
файл в начале ветки

проверь теперь...
на этот раз полюбому должно работать )

metaeditor

Вопрос по возможностям FDSubst1C:
Можно ли добавить функционал для обращения к файловым ресурсам с правами другого профиля? Что-то типа runas.  При перехвате события в глоб.модуле передаются 2 дополнительных параметра: "пользователь" и "пароль" и каталог открывается уже с правами этого самого "пользователя".

Поясню смысл на упрощенном примере:
На каталог с внешними файлами есть "полные" права для одного профиля и права "на чтение" для другого профиля. Настройка прав доступа пользователей к файлам и подкаталогам внутри данного каталога осуществляется средствами 1С. И, если пользователь полномочен иметь "полные" права на этот каталог, он его открывает под профилем 1, если чтение - то под профилем 2, и.т.д.
Преимущество - не надо выставлять для каждого пользователя свои права на каталог и подкаталоги и отслеживать их корректность.

Если технически не очень сложно - очень прошу добавить такую возможность.


 

Осталось еще одна дырочка в безопасности:
Вызов справки (F1) и Файл-Открыть из самой справки.
Вот бы еще и это победить...

metaeditor писал(а) 31. Января 2011 :: 14:54:

Ага, терминал.
ОК. Скажу админу.

zar писал(а) 27. Ноября 2012 :: 16:20:

в этой компоненте сделана регистрация в реестре в HKCU (для регистрации без админских прав) по методу проскакивавшему на этом форуме (изменение ресурса в длл). что там в восьмерке поменяли по этому поводу я незнаю. вот поробуй эту версию со стандартным регистрированием в HKCR.

только навсякий случай повычисти из реестра предыдущие записи

Кто нибуть запускал данную компоненту на WinServer2008R2 64?
При загрузке ВК в ГМ выдает маленькое окно с сообщением DoWrap failed: %s. Окно выдается 4 раза (т.е. 4 раза жмем "ОК"). После этого объект AddIn.OpenFileDialogsManager создается, методы отрабатываются - но без результата, т.е. например БлокироватьДиалоги(1) не приводит к блокировке кнопок "Открыть"/"Сохранить".
UAC отключен. В реестре ветки создаются. Пробовал версии 1.0.0.9 и со странд. HKCR с предв. вычищением реестра. В сравнении с win8pro64 ветки реестра вроде бы те же самые. В какую сторону еще можно посмотреть?

1. не помогло - на типовой конфе вставил загрузку ВК - результат тот же
2. vkloader (1.0.0.4) - тоже не помог - результат тот же
Метод объекта "Система" РегистрироватьКомпонентыВ_HKCU - тот же результат

Такое ощущение что проблема не в регистрации в реестре (объекты в реестре появляются, объект AddIn.OpenFileDialogsManager создается). Какой то метод в самой компоненте при инициализации отрабатывается некорректно в текущей ОС, хотя на той же win8pro64 все работает. У кого нибуть эта ВК на WinServer2008R2 64 работает?

Версия 1.0.0.10 загрузилась нормально!!!

СПАСИБО ОГРОМНОЕ!

А чего было если не секрет?

скажите существует ли возможность при помощи вашей компоненты (или других) сделать недоступным (из определенной печ.формы) реквизит "число копий" в стандартном диалоге печати

компонента супер, огромное спасибо автору
пользуюсь больше года - все олично

возникло пару вопросов:
1) как можно реализовать разные ограничения для разных форм - например, стандартно в глобальных предопределенных процедурах прописаны общие ограничения, а в 2-х формах надо персонализировать - конкретно - установленый фильтр с типами файлов
2) можно ли прочитать програмно установление значение фильтра с типами файлов
3) можно ли прописать множественный фильтр, например Катринки (*.jpg *.bmp *.tiff) чтобы создать общий список приемлимых файлов и не раздувать доступный перечень. Пока удалось сэекономить только для файлов Ворд\Ексель разных форматов, указав в маске *.doc* & *.xls* - звездочку понимает как любой символ
4) где хранится последний открытый каталог? есть глюк такой - если перехожу вверх от домашнего каталога и получаю ошибку что об отстуствии доступа, то после етого второй раз диалог открывается тупо в ExtForms текущей базы и хоть ты тресни, хотя в модуле прописан каталогпользователя и опция запоминатьпоследний не используется. Куда копать?

заранее благодарю!

selesta писал(а) 23. Сентября 2013 :: 14:03:

объявить в гл. модуле переменную с объектом компоненты и в зависимости от открытой формы в процедуре
Функция ДиалогВыбораФайлаПриОткрытии(РежимДиалога)
если ... тогда менеджерДиалогов.УстановитьФильтр(...)
иначеесли... тогда менеджерДиалогов.УстановитьФильтр(...)
КонецФункции
устанавливать фильтр
Цитата:

вообще можно но в компоненте этого сейчас нет
Цитата:

можно. нужно писать так например:
менеджерДиалогов.УстановитьФильтр("Документы MS Office|*.xls;*.doc|Катринки|*.jpg;*.bmp;*.tiff");

Цитата:

а как у тебя получилось перейти в верхний каталог? какой параметр указывается в менеджерДиалогов.ЗапретитьИзменениеТекущегоКаталога() ?

metaeditor писал(а) 08. Октября 2013 :: 15:16:


Спасибо!
Теперь диалог открытия файлов открывается, обработки запускаются.
Процедуру ДиалогВыбораФайлаПриВыборе(ПолноеИмяФайла, РежимДиалога) переделеал в функцию ....
НО: все равно в ДиалогВыбораФайлаПриВыборе не попадает ни при каких обстоятельствах.

Может что-то еще не учел?