Вывод Картинки На Форму

22.03.2012, 11:45. **Показов** 15964. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Ситуация такая - в базе хранится картинка в виде ХранилищеЗначения. Мне нужно вывести ее на форму.

Как картинка попала в базу:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
&НаКлиенте
Процедура ЗаписатьДанные()
МояКартинка = Новый Картинка(ПутьКФайлу);
ЗаписатьНаСервере(МояКартинка, Объект.Наименование);
КонецПроцедуры
 
&НаСервере
Процедура ЗаписатьНаСервере(МояКартинка, Наименование)
ХранилищеКартинки = Новый ХранилищеЗначения(МояКартинка);
НоваяКартинка = Справочники.Картинки.СоздатьЭлемент();
НоваяКартинка.Наименование = Наименование;
НоваяКартинка.Картинка = ХранилищеКартинки;
НоваяКартинка.Записать();
КонецПроцедуры;

Как я ее оттуда забираю:

Code
1
2
3
4
&НаКлиенте
Процедура ШапкаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка);
ШапкаКартинка = ВыбранноеЗначение.Картинка.Получить();
КонецПроцедуры

Где выбранное значение - элемент справочника с картинками, ВыбранноеЗначение.Картинка - реквизит типа ХранилищеЗначения, а ШапкаКартинка - элемнет формы типа Картинка.

После вышеуказанной процедуры ничего не происходит, поле ШапкаКартинка остается пустым. Пробовал делать так:

Code
1
2
3
ИмяФайла = "C:\test.jpg";
ХранилищеКартинки = ВыбранноеЗначение.Картинка.Получить();
ХранилищеКартинки.Записать(ИмяФайла);

Картинка из базы при этом корректно записывается в test.jpg.

Если ставлю на элементе ШапкаКартинка галочку "Гиперссылка", при нажатии на него появляется нужная картинка в новом окне, но на форме в поле по прежнему пусто.

Что я делаю не так? Тапками не бросать - я новичек . Поясните, пожалуйста, как правильно работать с картинками в базе?

Ах да, это управляемая форма.

22.03.2012, 16:08

Отбой, проблему уже решил!

27.01.2014, 11:14

Прошу помощи. Похожая проблема. Торговля и Склад 7.7
Пытаюсь в стандартую обработку ПечатьПрайса добавить изображение.

1C
1
2
3
4
5
6
7
врКод=ТекЭлем.Код;
врФайлКартинки=КаталогИБ()+"Изображения\"+ВрКод+".jpg";
Картина=СоздатьОбъект("Картинка");
Если ФС.СуществуетФайл(врФайлКартинки)=1 Тогда
Картина.Загрузить(врФайлКартинки);
КонецЕсли;
ИсхТабл.ПрисоединитьСекцию("Номенклатура|Картинка");

В секцию "Номенклатура | Картинка" добавляю картинку, через Таблица-ВставитьРисунок-Текст. И присваиваю ей идентификатор Картина.

В таблице выходит следующее

Соображений нет, как быть дальше.
Заранее благодарен!

19.02.2014, 11:54

Так и не решил проблему. Ап. Спасибо.

@yvkymyotom · 20.02.2014, 01:00

выкини создатьОбъект.

20.02.2014, 13:58

Перерыл весь инет, сделал по другому.

В таблицу вставил секцию Картинка, в нужную ячейку вставил "Таблица-Вставить Рисунок - Текст", в свойствах выбрал "выражение" прописал формулу Рисовать(ИсхТабл.ТекущийОбъект, Путькфайлу)

Создал функцию

Функция Рисовать(Куда, Откуда)
Куда.РежимРисования(3);
Куда.Загрузить(Откуда);
КонецФункции

В процедуре сформировать прописал путь к файлу

Путькфайлу=КаталогИБ()+"Изображения\0000 5317.jpg";

Специально прописал именно один файл, пусть хоть что-нибудь выведет.

И присаоединил секцию

ИсхТабл.ПрисоединитьСекцию("Номенклатура |Картинка");

Не работает. Где я свернул не туда?

@Дийнеки · 21.02.2014, 01:25

Сообщение от Dzo

... вставил "Таблица-Вставить Рисунок - Текст",

Вот и оно. Надо: "Таблица-Вставить Рисунок - Картинка". В ответ на выбор файла - эскейп.
А дальше все так.

23.02.2014, 15:43

Сообщение от Дайнеко

Вот и оно. Надо: "Таблица-Вставить Рисунок - Картинка". В ответ на выбор файла - эскейп.
А дальше все так.

Спасибо огромное, заработало!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Otkyr
	22.03.2012, 16:08
	Отбой, проблему уже решил!

Dzo
	19.02.2014, 11:54
	Так и не решил проблему. Ап. Спасибо.

@yvkymyotom 0 / 0 / 0 Регистрация: 15.02.2008 Сообщений: 173
	20.02.2014, 01:00
	выкини создатьОбъект. 0