0
Novus_Dess
13.04.16
✎
15:18
|
Есть самописная конфигурация. Необходимо реализовать возможность загрузки файлов в виде двоичных данных и хранения их в ИБ.
Прописан вот такой код:
&НаКлиенте
Процедура Команда1(Команда)
ИмяФайла = "";
Адрес = "";
ОповещениеВыбораФайла = Новый ОписаниеОповещения("ЗаписатьДвоичныеДанныеВРеквизитТЧ",ЭтотОбъект) ;
НачатьПомещениеФайла(ОповещениеВыбораФайла, Адрес, ИмяФайла, Истина);
ЭтаФорма.Модифицированность = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ЗаписатьДвоичныеДанныеВРеквизитТЧ(Результат,СсылкаНаВременноеХранилище,ИмяДляПредставления,ДополнительныеПараметры) Экспорт
ЗаписатьДвоичныеДанныеВРеквизитТЧНаСервере(Результат,СсылкаНаВременноеХранилище,ИмяДляПредставления,ДополнительныеПараметры);
КонецПроцедуры
&НаСервере
Процедура ЗаписатьДвоичныеДанныеВРеквизитТЧНаСервере(Результат,СсылкаНаВременноеХранилище,ИмяДляПредставления,ДополнительныеПараметры) Экспорт
Если не Результат Тогда
Возврат;
КонецЕсли;
ДД = новый ДвоичныеДанные(ИмяДляПредставления);
ИмяДляПредставления = ПолучитьИмяФайлаИзПолногоПути(ИмяДляПредставления);
об = РеквизитФормыВЗначение("Объект");
НовСтр = об.вложенныеФайлы.добавить();
Новстр.ВложенныйФайл = Новый ХранилищеЗначения(ДД,новый СжатиеДанных(9));
Новстр.ПредставлениеФайла = ИмяДляПредставления;
ЗначениеВРеквизитФормы(об,"Объект");
ТаблицаЗначений = ПолучитьИзВременногоХранилища(АдресДанныхЗаказа);
НовСтрСДанными = ТаблицаЗначений.Добавить();
ЗаполнитьЗначенияСвойств(НовСтрСДанными,НовСтр);
АдресДанныхЗаказа = ПоместитьВоВременноеХранилище(ТаблицаЗначений,УникальныйИдентификатор);
КонецПроцедуры
Этот код РАБОТАЕТ в режиме управляемого приложения. Но при работе через веб-интерфейс, после того, как я выбираю файл и нажимаю "ОК", он выдает ошибку: "Каталог не обнаружен C:\fakepath\<тут имя файла>".
Кто знает что такое фейковый путь, откуда он взялся и почему он его не обнаруживает, даже если я его создаю у себя на компьютере?
|
|