[kostya77]

Добрий день. Мені потрібно скачати файл фото з сайиу і приєднати до номенклатури номенклатури. Роблю так

Попытка
    Ответ     = Соединение.Получить(Запрос);
Исключение
    Сообщить("Пропущена картинка в строке " + сч + "( " + Стр.Код_товара + " ) по причине " + ОписаниеОшибки() + " (" + АдресИзображения + ")");
    Продолжить;
КонецПопытки;

Если НЕ Ответ.КодСостояния = 200 Тогда 
    СчКартПроп = СчКартПроп + 1;
    Сообщить("Пропущена картинка в строке " + сч + "( " + Стр.Код_товара + " ) по причине " + Ответ.КодСостояния + " (" + АдресИзображения + ")");
    Продолжить;
КонецЕсли;

ДвоичныеДанныеКартинки             = Ответ.ПолучитьТелоКакДвоичныеДанные();
АдресФайлаВоВременномХранилище     = ПоместитьВоВременноеХранилище(ДвоичныеДанныеКартинки, ЭтаФорма.УникальныйИдентификатор);

СтруктураИмени = ВернутьСтруктуруИмениФайла(АдресИзображения);

ПараметрыФайла = Новый Структура("ВладелецФайлов, Автор, ИмяБезРасширения, РасширениеБезТочки, ВремяИзмененияУниверсальное", 
НоменклатураСсылка, 
ПараметрыСеанса.ТекущийПользователь, 
СтруктураИмени.Имя, 
СтрЗаменить(СтруктураИмени.Расширение, ".", ""), 
ТекущаяУниверсальнаяДата());

//ИзображениеСсылка = ПрисоединенныеФайлы.ДобавитьПрисоединенныйФайл(ПараметрыФайла, АдресФайлаВоВременномХранилище,,"");

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

Номенклатура не відкривається - помилка свариться на ОсновноеИзображение . Що роблю не так?

Сообщение отредактировал Vofka - 28.05.25, 11:05

[xlmel]

мне кажется, что вы в Хранилище значения записываете адрес, а не реальные двоичные данные. Через время в том адресе ничего не будет
в свое время пришлось вычищать людям базу, когда таких картинок стало под 10Гб в ней. Лучше сделайте хранение на жестком диске, иначе у вас база будет распухать высокими темпами

[kostya77]

xlmel @ Сегодня, 11:46 ,
В ХранилищеЗначения потрібно другим параметром передавати ДвоичніеДанные?

[andytg]

Що роблю не так?

покажу свой вариант -- в свое время понадобилось хранить в БД факсимиле менеджеров с печатями (для выставления счетов от имени разных фирм, где работают менеджеры по совместительству)

делал так:

// справочник "ПодписиМенеджеров"
// на форме элемента создаем реквизит типа Строка (неограниченной длины) с именем "СсылкаНаКартинку" для отображения и работы с картинкой
// реквизит справочника "Подпись" имеет тип ХранилищеЗначения

// потом (это фрма элемента справочника ПодписиМенеджеров)

&НаКлиенте
Процедура СсылкаНаКартинкуНажатие(Элемент, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь; 
    Режим = РежимДиалогаВыбораФайла.Открытие; 
    ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
    ДиалогОткрытия.ПолноеИмяФайла = ""; 
    Фильтр = "Файл PNG (*.png)|*.png"; 
    ДиалогОткрытия.Фильтр = Фильтр; 
    ДиалогОткрытия.МножественныйВыбор = Ложь; 
    ДиалогОткрытия.Заголовок = "Выберете файл для загрузки"; 
    ОписаниеОповещения = Новый ОписаниеОповещения("ПослеЗагрузкиФайла",ЭтаФорма); 
    ДиалогОткрытия.Показать(ОписаниеОповещения);    
КонецПроцедуры

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

&НаКлиенте 
Процедура ПослеПомещенияФайла(Результат, Адрес, ВыбранноеИмяФайла,ДопПараметры) Экспорт 
    Если Не Результат Тогда 
        Возврат; 
    КонецЕсли; 
    СсылкаНаКартинку = Адрес; 
    Модифицированность = Истина; 
КонецПроцедуры

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    СсылкаНаКартинку = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Подпись");
КонецПроцедуры


// а это документ "ЗаказПокупателя"
// и потом в заказе покупателя процедура печати

// тут просто ищем в справочнике нужного пользователя по нужной фирме и если нашли его факсимиле -- выдаем его
_факсимиле = Документы.ЗаказПокупателя._ПолучитьСсылкуНаПодписьМенеджера(Объект.Ответственный, Объект.Организация); 
// и показываем картинку на макете
        Если _факсимиле = Неопределено Тогда
            Сообщить("Не определено факсимиле для текущего пользователя", СтатусСообщения.Информация);
        Иначе
            // получаем и отображаем факсимиле
            ОбластьЗаголовок.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(_факсимиле.Подпись.Получить());
        КонецЕсли;

в таком виде работает уже шестой год

Сообщение отредактировал Vofka - 29.05.25, 7:47

[kostya77]

andytg @ Сегодня, 14:52 ,
це все добре, але у мене звичайні форми. На керованих у мене теж все працює

[andytg]

Номенклатура не відкривається - помилка свариться на ОсновноеИзображение

как именно ругается, что пишет в режиме отладки?

[kostya77]

andytg @ Сегодня, 15:05 ,
Несоответсвие типов

{Справочник.ХранилищеДополнительнойИнформации.Форма.ФормаСпискаФайловИИзображений.Форма(99)}: Ошибка при установке значения атрибута контекста (Картинка)
ЭлементыФормы.ПолеИзображения.Картинка = ?(ТекущаяКартинка <> Неопределено, ТекущаяКартинка, Новый Картинка());
по причине:
Несоответствие типов

[xlmel]

kostya77 @ Сегодня, 13:14 ,
Вроде первым параметром должен иметь тип Картинка. То есть, полученный файл надо сохранить на диск, потом получить Изображение = Новый Картинка(полученный файл) и потом это изображение поместить в ХранилищеЗначения

[kostya77]

xlmel @ Сегодня, 15:40 ,
Как сохранить на диск?

[andytg]

Как сохранить на диск?

судя по ПолучитьТелоКакДвоичныеДанные() вы его откуда-то скачиваете http-запросами?

тогда ДвоичныеДанныеКартинки.Записать(ИмяВременногоФайла)
куда-то во временный каталог
потом временный каталог почистить, после того как

[xlmel]

kostya77 @ Сегодня, 14:47 ,
ДвоичныеДанныеКартинки = Ответ.ПолучитьТелоКакДвоичныеДанные();

Вы получили ДвоичныеДанные. Сохраните их в файл при помощи метода Записать
ДвоичныеДанныеКартинки.Записать(ПутьКФайлу);

Дальше поместите в ХранилищеЗначения и файл с диска удалите, чтобы не засорять диск. Ну или переделайте систему, чтобы файлы хранились на диске. а не в базе

[AnryMc]

Наглядный пример для обычных форм

"Зарплата и управление для Украины" - справочник: "Физические лица"

[kostya77]

Всім дякую. Допоміг варіант зі збереженням файлу в католог тимчасових файлів

[andytg]

Ну или переделайте систему, чтобы файлы хранились на диске. а не в базе

честно говоря, такое себе решение -- хранить что-то вне базы, это такой "клюшечный" вариант , т.к. 7.7 не умела в blob-поля (binary loading object), но и там был вариант, например, конвертировать двоичные файлы в текст mime/base64 и хранить в memo-полях, которые поддерживались в dbf

но так оно хоть не потеряется при возможном переносе базы, особенно, если делать его будет кто-то, кто не знаком с тонкостями устройства местной БД

[xlmel]

andytg @ Вчера, 22:51 ,
Странно, что разработчики БСП не поддерживают Ваше мнение и дают хранить присоединенные файлы на диске. а не загружать в базу. У меня есть клиент, у которого и картинки были в базе, и вложения писем. В какой-то момент эти бинарные файлы занимали больше 80% размера базы. Ну а сложности переноса я не видел. Так же, как бэкап базы делался бэкап папки с файлами, даже если сразу забудешь развернуть, то быстро исправишь. Надеюсь, что бэкапы не являются "таким себе решением"?

[Vofka]

В какой-то момент эти бинарные файлы занимали больше 80% размера базы.

Какие проблемы это создает?

[xlmel]

Vofka @ Сегодня, 7:48 ,
Мне всегда казалось, что чем меньше база, тем легче с ней работать и ее обслуживать, особенно это касается MS SQL. С одной стороны, вроде как, идет борьба, чтобы не дублировать сущности в базе данных, а с другой кладем кирпич в несколько Гб.

[AnryMc]

честно говоря, такое себе решение -- хранить что-то вне базы, это такой "клюшечный" вариант smile.gif, т.к. 7.7 не умела в blob-поля (binary loading object), но и там был вариант, например, конвертировать двоичные файлы в текст mime/base64 и хранить в memo-полях, которые поддерживались в dbf

Константа "ХранитьФайлыВТомахНаДиске"???

[Vofka]

Мне всегда казалось, что чем меньше база, тем легче с ней работать и ее обслуживать, особенно это касается MS SQL.

Что вы вкладываете в понятие "легче с ней работать и ее обслуживать"? И не надо ли вам как-то обслуживать каталог с картинками: настроить доступ с разных устройств (если вы работаете через тонкий клиент в браузере с разных регионов, как папку нормально пошарить между всеми?), настроить какие-никакие права (чтобы кто-то не зашел и не поудалял там все), бекапить и т.п.?

С одной стороны, вроде как, идет борьба, чтобы не дублировать сущности в базе данных, а с другой кладем кирпич в несколько Гб.

Какая связь между "дублированием сущностей" и "несколько ГБ" места в БД? Картинки в БД это дубли чего?

Вы выше писали:

в свое время пришлось вычищать людям базу, когда таких картинок стало под 10Гб в ней

А какие проблемы с этим были?

Я не докапываюсь, мне дейсвительно интересно послушать мнения на этот счет.

[andytg]

И не надо ли вам как-то обслуживать каталог с картинками: настроить доступ с разных устройств (если вы работаете через тонкий клиент в браузере с разных регионов, как папку нормально пошарить между всеми?), настроить какие-никакие права (чтобы кто-то не зашел и не поудалял там все), бекапить и т.п.?

вот это самая главная засада при хранении чего-то (картинок/доков/писем) вне базы