Открыть файл, который доступен только на сервере

Форум Программирование Общие вопросы программирования (Dev)

8.3.14

1. Good_Smile 03.12.21 12:36 Сейчас в теме

Добрый день!
У серверного пользователя 1С есть доступ к каталогу, у клиентских пользователей к каталогу доступа нет.
Мне нужно сделать возможность просмотра файлов из этого каталога.

Я делаю так, хочу поместить файл по пути во временный файл, потом хочу его открыть, но ПоместитьФайл() выполняется только на клиенте, а доступа на клиенте нет.

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	АдресВХранилище = "";
	Если ПоместитьФайл(АдресВХранилище, ПутьКФайлу,, Ложь, УникальныйИдентификатор) Тогда
	Иначе
		Сообщить("Не удалось получить файл");
		Возврат;
	КонецЕсли;
	ПолноеИмяВременногоФайла = ПолучитьФайл(АдресВХранилище);
	Оповещение = Новый ОписаниеОповещения("ОткрытьФайлЗавершение", ЭтотОбъект);
	НачатьЗапускПриложения(Оповещение, ПутьКФайлу);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьФайл(АдресВХранилище) Экспорт 
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
	
	Файл = ПолучитьИзВременногоХранилища(АдресВХранилище);
	Файл.Записать(ИмяВременногоФайла);
	Возврат Файл.ПолноеИмя;
КонецФункции

Показать

ПодскажитеПожалуйста

По теме из базы знаний

Найденные решения

2. Good_Smile 03.12.21 12:59 Сейчас в теме

Придумала копировать файл, так работает) пора отдыхать)

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	РасширениеФайла = ПолучитьРасширениеФайла(ПутьКФайлу);
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла(РасширениеФайла);
	ПолучитьФайл(ПутьКФайлу, ИмяВременногоФайла);
	Оповещение = Новый ОписаниеОповещения("ОткрытьФайлЗавершение", ЭтотОбъект);
	НачатьЗапускПриложения(Оповещение, ИмяВременногоФайла);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьРасширениеФайла(Знач ПутьКФайлу) Экспорт 
	Файл = Новый Файл(ПутьКФайлу); 
	Возврат Файл.Расширение; 
КонецФункции 

&НаСервереБезКонтекста
Процедура ПолучитьФайл(ПутьКФайлу, ИмяВременногоФайла) Экспорт 
	КопироватьФайл(ПутьКФайлу, ИмяВременногоФайла);
КонецПроцедуры

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Good_Smile 03.12.21 12:59 Сейчас в теме

Придумала копировать файл, так работает) пора отдыхать)

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	РасширениеФайла = ПолучитьРасширениеФайла(ПутьКФайлу);
	ИмяВременногоФайла = ПолучитьИмяВременногоФайла(РасширениеФайла);
	ПолучитьФайл(ПутьКФайлу, ИмяВременногоФайла);
	Оповещение = Новый ОписаниеОповещения("ОткрытьФайлЗавершение", ЭтотОбъект);
	НачатьЗапускПриложения(Оповещение, ИмяВременногоФайла);
КонецПроцедуры

&НаСервереБезКонтекста
Функция ПолучитьРасширениеФайла(Знач ПутьКФайлу) Экспорт 
	Файл = Новый Файл(ПутьКФайлу); 
	Возврат Файл.Расширение; 
КонецФункции 

&НаСервереБезКонтекста
Процедура ПолучитьФайл(ПутьКФайлу, ИмяВременногоФайла) Экспорт 
	КопироватьФайл(ПутьКФайлу, ИмяВременногоФайла);
КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: