Материалы отфильтрованы по дате: апреля 2023
Среда, 19 апреля 2023 15:50
Как передать картинку (ХранилищеЗначений) по Com-соединению из одной базы 1С в другую
db = Новый COMобъект("V83.COMConnector"); Попытка соединение= db.Connect(СтрокаПодключения); Исключение сообщить("база не открыта"); Предупреждение(ОписаниеОшибки()); Возврат ложь; КонецПопытки; НоваяНоменклатура=Справочники.Номенклатура.НайтиПоКоду("ВашКод"); GUID = НоваяНоменклатура.УникальныйИдентификатор(); GUIDCom = соединение.NewObject("УникальныйИдентификатор", Строка(GUID)); НоменклатураСсылкаCom = ТекПодключение.Справочники.Номенклатура.ПолучитьСсылку(GUIDCom); НовКартинкаОбъект = Соединение.Справочники.ХранилищеДополнительнойИнформации.СоздатьЭлемент(); НовКартинкаОбъект.Объект = НоменклатураСсылкаCom; НовКартинкаОбъект.Наименование = НоваяНоменклатура.ОсновноеИзображение.Наименование; НовКартинкаОбъект.ВидДанных = Соединение.Перечисления.ВидыДополнительнойИнформацииОбъектов.Изображение; НовКартинкаОбъект.ИмяФайла = НоваяНоменклатура.ОсновноеИзображение.ИмяФайла; Картинка=НоваяНоменклатура.ОсновноеИзображение.Хранилище.Получить(); Двоичные = Картинка.ПолучитьДвоичныеДанные(); ДвоичныеСтрокой = Base64Строка(Двоичные); ДвоичныеCOM = Соединение.Base64Значение(ДвоичныеСтрокой); МояКартинкаCOM = Соединение.NewObject("Картинка",ДвоичныеCOM); НовКартинкаОбъект.Хранилище = Соединение.NewObject("ХранилищеЗначения",МояКартинкаCOM); НовКартинкаОбъект.Записать();
Опубликовано в
1С