v8: Не отображается картинка.

20.05.2012 22:22

Прочитано: 11063

Здравствуйте.
Вот код:

Код 1C v 8.х

 Процедура ОтобразитьКартинку() 

	ЗначениеКартинки = Изображения.Получить(); 

	Если ЗначениеКартинки <> Неопределено Тогда 

	ЭлементыФормы.Изображение.Картинка = ЗначениеКартинки; 

	Иначе 

    ЭлементыФормы.Изображение.Картинка = Новый Картинка(Неопределено); 

	КонецЕсли; 

КонецПроцедуры





Процедура Нажатие(Элемент)

		

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

Диалог.Заголовок = "Выберите файл с фотографией";

Диалог.ПолноеИмяФайла = "";

Диалог.ПредварительныйПросмотр = Истина;

Диалог.Фильтр = 

"Все картинки (*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf)|*.bmp;*.dib;*.rle;*.jpg;*.jpeg;*.tif;*.gif;*.png;*.ico;*.wmf;*.emf|" 

+ "Формат bmp (*.bmp;*.dib;*.rle)|*.bmp;*.dib;*.rle|"

+ "Формат JPEG (*.jpg;*.jpeg)|*.jpg;*.jpeg|"

+ "Формат TIFF (*.tif)|*.tif|"

+ "Формат GIF (*.gif)|*.gif|"

+ "Формат PNG (*.png)|*.png|"

+ "Формат icon (*.ico)|*.ico|"

+ "Формат метафайл (*.wmf;*.emf)|*.wmf;*.emf|"; // картинки



Если Диалог.Выбрать() Тогда

	Выбранное = Новый Картинка(Диалог.ПолноеИмяФайла,Ложь);

	ЭлементыФормы.Изображение.Картинка = Выбранное;

Иначе

	Отказ = Истина;

Возврат;

КонецЕсли;

КонецПроцедуры

подскажите пожалуйста, как правильно сделать так чтобы сохраненная картинка отображалась при открытии формы элемента справочника? Я нажимаю кнопку Обзор нахожу картинку, она отображается на форме, сохраняется элемент справочника, но при повторном открытии картинка не отображается.
Благодарю.

П. С., я очень начинающий, учусь по учебникам и для закрепления материала экспериментирую.

Изменено 21.05.12 11:37:34

Yandex

Возможно, вас также заинтересует

E_Migachev

21.05.2012 11:39

Ответ № 1

(0) Lavr, создаешь в справочнике Реквизит Картинка - ХранилищеЗначение и код:

Код 1C v 8.х

 Процедура ОтобразитьКартинку() 

    ЗначениеКартинки = Картинка.Получить(); 

    Если ЗначениеКартинки <> Неопределено Тогда 

    ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки; 

    Иначе 

ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено); 

    КонецЕсли; 

КонецПроцедуры



Процедура ВыбратьИзФайлаНажатие(Элемент) 

    // Выбор файла с просмотром 

ДиалогВыбораФайла = Новый 

ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 

    ДиалогВыбораФайла.Каталог = ""; 

    ДиалогВыбораФайла.ПредварительныйПросмотр = Истина; 

    ДиалогВыбораФайла.ИндексФильтра = 0; 

    Если ДиалогВыбораФайла.Выбрать() Тогда 

        Файл = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла); 

Картинка = Новый ХранилищеЗначения(Новый Картинка(ДиалогВыбораФайла.ПолноеИмяФайла)); 

        ОтобразитьКартинку(); 

    КонецЕсли; 

КонецПроцедуры

Lavr

23.05.2012 21:50

Ответ № 2

Здравствуйте.
(1) E_Migachev, не отображается. Версия 1С 8.1 В справочнике Картинки реквизит Картинка (Хранилище значения), в форме элемента: Код, Наименование, ПолеКартинки; ПолеКартинки как гиперссылка. Все открывает выбирает изображение, отображает его, в справочнике записываются элементы, но после закрытия формы элемента и открытия ее снова, картинки уже нет.

E_Migachev

24.05.2012 00:38

Ответ № 3

(2) Lavr, В при Открытии написали присваивание?

Lavr

24.05.2012 21:50

Ответ № 4

(3) E_Migachev, нет. При открытии в модуле формы или в модуле приложения должно быть?

E_Migachev

25.05.2012 11:21

Ответ № 5

в модуле формы на которой хотите видеть картинку

Lavr

27.05.2012 13:48

Ответ № 6

(5) E_Migachev, нет, не писал. Т. е. необходимо прописать присваивание значений к переменным? Но что к чему пока не понятно.

E_Migachev

27.05.2012 14:11

Ответ № 7

(6) Lavr, в при открытии напиши:

Код 1C v 8.х

 ЗначениеКартинки = Картинка.Получить(); 

    Если ЗначениеКартинки <> Неопределено Тогда 

    ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки; 

    Иначе 

ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено); 

    КонецЕсли;

Lavr

27.05.2012 21:42

Ответ № 8

(7) E_Migachev, может так:

Процедура ПриОткрытии()
ЗначениеКартинки = Картинка.Получить();
Если ЗначениеКартинки <> Неопределено Тогда
ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки;
Иначе
ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено);
КонецЕсли;
КонецПроцедуры

Процедура ОтобразитьКартинку()
ЗначениеКартинки = Картинка.Получить();
Если ЗначениеКартинки <> Неопределено Тогда
ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки;
Иначе
ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено);
КонецЕсли;
КонецПроцедуры

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

E_Migachev

28.05.2012 00:09

Ответ № 9

(8) Lavr, тогда вот тах хватит:

Код 1C v 8.х

 Процедура ПриОткрытии() 

ОтобразитьКартинку(); 

КонецПроцедуры

Lavr

30.05.2012 22:19

Ответ № 10

(9) E_Migachev, так я тоже делал, тогда, всеравно не отображает. Ревизит у справочника Картинки - Картинка (ХранилищеЗначения), простая форма элемента с ПолеКартинки. Я еще посмотрю УПП, но честно говоря в УП когда смотрел, не получилось сделать такое же хранилище - слишком много там всего и очень сложно разобраться.

E_Migachev

31.05.2012 10:55

Ответ № 11

(10) Lavr, Так ты в какой форме еэто делаешь? в Обычной или Управляемой?

Lavr

31.05.2012 20:46

Ответ № 12

В обычной.

Lavr

31.05.2012 20:46

Ответ № 13

Версия 8.1

E_Migachev

01.06.2012 14:05

Ответ № 14

(13) Lavr, покажи код при открытии и код загрузки

Lavr

01.06.2012 21:24

Ответ № 15

Вот код модуля приложения конфигурации, на всякий случай:

Код 1C v 8.х

 Процедура ПриНачалеРаботыСистемы()

	

	Форма=ПолучитьОбщуюФорму("Форма");

	Форма.Открыть();

	Форма.Активизировать();

	

КонецПроцедуры



Вот код справочника Картинки:



Процедура ПриОткрытии()

ОтобразитьКартинку();	

	КонецПроцедуры



Процедура ОтобразитьКартинку() 

	ЗначениеКартинки = Картинка.Получить(); 

	Если ЗначениеКартинки <> Неопределено Тогда 

	ЭлементыФормы.ПолеКартинки.Картинка = ЗначениеКартинки; 

	Иначе 

ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка(Неопределено); 

	КонецЕсли; 

КонецПроцедуры



Процедура ВыбратьИзФайлаНажатие(Элемент) 

	// Выбор файла с просмотром 

ДиалогВыбораФайла = Новый 

ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие); 

	ДиалогВыбораФайла.Каталог = ""; 

	ДиалогВыбораФайла.ПредварительныйПросмотр = Истина; 

	ДиалогВыбораФайла.ИндексФильтра = 0; 

	Если ДиалогВыбораФайла.Выбрать() Тогда 

		Файл = Новый Файл(ДиалогВыбораФайла.ПолноеИмяФайла); 

Картинка = Новый ХранилищеЗначения(Новый Картинка(ДиалогВыбораФайла.ПолноеИмяФайла)); 

		ОтобразитьКартинку(); 

	КонецЕсли; 

КонецПроцедуры

В справочнике реквизит Картинка (Тип данных - ХранилищеЗначения).
Форма элемента с полями Код, Наименование и ПолеКартинки (у поля гипер ссылка).

Изменено 12.06.12 22:08:55 по причине: раскрасил код

Lavr

01.06.2012 21:25

Ответ № 16

Код спрвочника - код в модуле формы элемента, т. е. не в модуле объекта справочника Картинки.

Lavr

04.06.2012 21:48

Ответ № 17

(14) E_Migachev, правильно ли все?

E_Migachev

12.06.2012 22:13

Ответ № 18

(17) Lavr, при выборе картинки она отображается?
У поля Картинки убери гипер ссылку.

Lavr

13.06.2012 21:43

Ответ № 19

(18) E_Migachev, при открытии диалога с выбором картинки я ее выбираю и она первоначально отображается, после нажатия OK открываю элемент справочника картинка уже не отображается.

E_Migachev

14.06.2012 19:34

Ответ № 20

(19) Lavr, попробуй отладчиком при открытии, что в Картинка ?

Lavr

14.06.2012 21:49

Ответ № 21

(20) E_Migachev, может мне вам выслать саму конфигурацию? Так проще будет. Еще такой вопрос: я попробовал сохранить картинку размером 100 мб, файл 1Cv8.1CD сразу на 100 мб стал больше, как теперь можно удалить ее из бд? Простым удалением элемента содержащего это изображение не получилось.

E_Migachev

14.06.2012 22:34

Ответ № 22

(21) Lavr, пришли
чтобы удалить, нужно пометит на удаление этот элемент справочника, потом его удалить через Операции- Удаление помеченных объектов
Далее в конфигуратор и лучше всего Администрирование -Тестирование и Исправление со всеми галочками

Lavr

15.06.2012 21:44

Ответ № 23

(22) E_Migachev, вот ссылка на конфигурацию, справочник Картинки, версия 8.1
http://www.fayloobmennik.net/1977671
По поводу удаления - через конфигуратор помогло! Приятно когда когда узнаешь что-то новое. Очень благодарен за помощь!!

E_Migachev

18.06.2012 18:01

Ответ № 24

(23) Lavr, У тебя не срабатывает процедура ПриОткрытии, ее нужно указать в свойствах формы:
title

Изменено 18.06.12 18:01:50

Lavr

27.06.2012 21:46

Ответ № 25

(24) E_Migachev, все работает! Позор мне про такую вещь забыть! Очень благодарен!!

Подсказка: Вы получили ответ на свой вопрос - закройте вопрос!