Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
23 фев 2026, 00:47

Не сохраняется картинка в базе

Автор tuntun22867, Вчера в 21:30

0 Пользователей и 1 гость просматривают эту тему.

tuntun22867

Не сохраняется картинка в базе, пробовал разные коды но не 1 не подходит

tuntun22867

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

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

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

Похожие темы (5)

Рейтинг@Mail.ru

Поиск