Как получить картинку из файла, когда раньше было в хранилище 1С
Картинка = РаботаСФайлами.ХранилищеФайлаИзИнформационнойБазы(ТекущаяСтрока.ФотоДо);
Если Картинка <> Неопределено Тогда
КартинкаПечатьОрганизации = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
КартинкаПечатьОрганизации.Картинка = Новый Картинка(Картинка.Получить(),Истина); //как теперь получить картинку не из хранилища а из файла
КартинкаПечатьОрганизации.Верх = 1;
КартинкаПечатьОрганизации.Высота = 70;
КартинкаПечатьОрганизации.Ширина = 70;
КартинкаПечатьОрганизации.Лево = 50;
КартинкаПечатьОрганизации.ГраницаСверху = Ложь;
КартинкаПечатьОрганизации.ГраницаСлева = Ложь;
КартинкаПечатьОрганизации.ГраницаСправа = Ложь;
КартинкаПечатьОрганизации.ГраницаСнизу = Ложь;
КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.Пропорционально; Показатьтеперь изменили хранилище на файловое
ФайловыеПотоки.ОткрытьДляЧтения(ТекущаяСтрока.ФотоДо.Том.ПолныйПутьWindows+ТекущаяСтрока.ФотоДо.ПутьКФайлу)
тип данных файловый поток не работает
По теме из базы знаний
- Загрузка номенклатуры c картинками (несколько потоков одновременно) и сопутствующими данными в базу и любые документы из yml, xls, xlsx, xlsm, ods, ots, csv для УТ 10.3, УТ 11 (все), БП 3, КА 2, ERP 2, УНФ 1.6/3.0, Розница 2/3.0
- 1С: Gitter 1.1 (Хранилище 1С => Git)
- Многопоточный CI-контур для 1С c Packer, Vagrant и Jenkins. Часть 1. Описание системы и обзор инструментария
- DevOps в команде специалистов 1С или сказ о том, как желтые котики хотели лучше работать…
- WEB-интерфейсы как механизм сбора и контроля данных в розничной сети. Инструменты и наработки
Найденные решения
есть ли доступ по пути: ТекущаяСтрока.ФотоДо.Том.ПолныйПутьWindows+ТекущаяСтрока.ФотоДо.ПутьКФайлу?
Если есть, в двоичные данные можно его поместить, с ними работать. Например:
Работает на сильно переписанной УТ10 без БСП.
Если есть, в двоичные данные можно его поместить, с ними работать. Например:
мПуть = ПутьКаталога+ИмяФайла;
файл = Новый Файл(мПуть);
Если не файл.Существует() Тогда
Сообщить("Не найден файл: "+мПуть);
Возврат Неопределено;
КонецЕсли;
Возврат Новый ДвоичныеДанные(мПуть);Работает на сильно переписанной УТ10 без БСП.
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
есть ли доступ по пути: ТекущаяСтрока.ФотоДо.Том.ПолныйПутьWindows+ТекущаяСтрока.ФотоДо.ПутьКФайлу?
Если есть, в двоичные данные можно его поместить, с ними работать. Например:
Работает на сильно переписанной УТ10 без БСП.
Если есть, в двоичные данные можно его поместить, с ними работать. Например:
мПуть = ПутьКаталога+ИмяФайла;
файл = Новый Файл(мПуть);
Если не файл.Существует() Тогда
Сообщить("Не найден файл: "+мПуть);
Возврат Неопределено;
КонецЕсли;
Возврат Новый ДвоичныеДанные(мПуть);Работает на сильно переписанной УТ10 без БСП.
Картинка = РаботаСФайлами.ХранилищеФайлаИзИнформационнойБазы(ТекущаяСтрока.ФотоСрыва);
Если Картинка = Неопределено Тогда
Картинка=Новый ДвоичныеДанные(ТекущаяСтрока.ФотоДо.Том.ПолныйПутьWindows+ТекущаяСтрока.ФотоДо.ПутьКФайлу);
КартинкаПечатьОрганизации = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
КартинкаПечатьОрганизации.Картинка = Новый Картинка(Картинка,Истина);
Иначе
КартинкаПечатьОрганизации = ОбластьМакета.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
КартинкаПечатьОрганизации.Картинка = Новый Картинка(Картинка.Получить(),Истина);
КонецЕсли;
КартинкаПечатьОрганизации.Верх = 1;
КартинкаПечатьОрганизации.Высота = 70;
КартинкаПечатьОрганизации.Ширина = 70;
КартинкаПечатьОрганизации.Лево = 50;
КартинкаПечатьОрганизации.ГраницаСверху = Ложь;
КартинкаПечатьОрганизации.ГраницаСлева = Ложь;
КартинкаПечатьОрганизации.ГраницаСправа = Ложь;
КартинкаПечатьОрганизации.ГраницаСнизу = Ложь;
КартинкаПечатьОрганизации.РазмерКартинки = РазмерКартинки.Пропорционально;
ОбластьСрыва.Параметры.ДатаВремя = ТекущаяСтрока.ФотоСрыва.ДатаСоздания;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот