По теме из базы знаний
- Отправка файлов через SOAP. SOAP with attachments, MTOM
- Работа с файлами (обычная и управляемая форма)
- Пример работы с файлами odt в клиент-серверной модели работы
- Принципы разветвленной доработки конфигурации, находящейся на поддержке, и ее расширений. Объединение веток разработки
- Обмен сообщениями "Системы взаимодействия 1С" с "НЕ 1С" системой. Где хранятся файлы вложений и как получить их местоположение в хранилище s3?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
делаю так
Файл.Расширение пустая, хотя сам файл когда извлекаю их хранилища и открываю открывается
&НаКлиенте
Процедура ДиалогВыбораФайлаЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
Если ВыбранныеФайлы <> Неопределено Тогда
ПутьКФайлу = ВыбранныеФайлы.Получить(0);
Если Не ПустаяСтрока(ПутьКФайлу) Тогда
Файл = Новый Файл(ПутьКФайлу);
ПомещаемыеФайлы = Новый Массив;
Описание = Новый ОписаниеПередаваемогоФайла(Файл.ПолноеИмя, "");
ПомещаемыеФайлы.Добавить(Описание);
ПомещенныеФайлы = Новый Массив;
Если Не ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, ЭтаФорма.УникальныйИдентификатор) Тогда
ВызватьИсключение СтрШаблон(
НСтр("ru = 'Ошибка при помещении файла
|""%1""
|во временное хранилище.'"),
Файл.ПолноеИмя);
КонецЕсли;
СтруктураДанных = Новый Структура;
СтруктураДанных.Вставить("Данные", ПомещенныеФайлы[0].Хранение);
СтруктураДанных.Вставить("РасширениеФайла", Файл.Расширение);
Записать();
ЗаписатьДанныеВСправочник(СтруктураДанных);
Иначе
ПоказатьПредупреждение(,НСтр("ru = 'Буфер обмена не содержит картинки'"));
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьФайл(Команда)
ОписаниеОповещения = Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, );
ДиалогВыбора = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогВыбора.Фильтр = НСтр("ru = 'Все файлы'") + " (*.*)|*.*";
ДиалогВыбора.Заголовок = НСтр("ru = 'Выберите файл для загрузки'");
ДиалогВыбора.ПредварительныйПросмотр = Ложь;
ДиалогВыбора.Расширение = "";
ДиалогВыбора.ИндексФильтра = 0;
ДиалогВыбора.ПолноеИмяФайла = "";
ДиалогВыбора.МножественныйВыбор = Ложь;
ДиалогВыбора.Показать(ОписаниеОповещения);
КонецПроцедуры
ПоказатьФайл.Расширение пустая, хотя сам файл когда извлекаю их хранилища и открываю открывается
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот