Запись и получение изображения

"Добрый день. Есть справочник с Реквизитом Фото (тип Хранилище значения) Нужно записать туда значение. На форме добавлено Поле АдресФото (картинка) тип строка. Подскажите правильно ли я записываю изображение?<br> <br><br><pre>&НаКлиенте<br>Процедура ВыбратьФайл(Команда)<br> Режим = РежимДиалогаВыбораФайла.Открытие;<br> ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);<br> ДиалогОткрытияФайла.ПолноеИмяФайла = """";<br> Текст = "ru = """"Изображение PNG""""; en = """"PNG Image""""";<br> Фильтр = НСтр(Текст)+"(*.png)|*.png";<br> ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;<br> ДиалогОткрытияФайла.МножественныйВыбор = Ложь;<br> ДиалогОткрытияФайла.Заголовок = "Выберите файл...";<br> Если ДиалогОткрытияФайла.Выбрать() Тогда<br> ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);<br> Если ИзображениеФото <> Неопределено Тогда<br> АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото);<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры<br><br>&НаСервере<br>Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)<br> ТекущийОбъект.Фото = ПолучитьИзВременногоХранилища(АдресФото);<br>КонецПроцедуры<br></pre><br><br> <br>Теперь пытаюсь прочитать, но не работает<br> <br><br><pre>&НаСервере<br>Процедура ПриЧтенииНаСервере(ТекущийОбъект)<br> ИзображениеФото = Новый Картинка(ТекущийОбъект.Фото.Получить());<br> АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото);<br>КонецПроцедуры<br></pre><br><br> <br>Подскажите, пожалуйста, как корректно записать изображение и прочитать его?"

"Записывайте в хранилище двоичные данные.<br>Что-то типа этого:<br>ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);<br>Фото = Новый ХранилищеЗначения (ИзображениеФото.ПолучитьДвоичныеДанные());<br> <br>А читаете правильно:<br>ИзображениеФото = Новый Картинка(ТекущийОбъект.Фото.Получить());<br> <br>Вопрос вызывает только строки: АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото);<br>Я не понял что этим пытаетесь сделать. Обычно на форму помещают поле картинка и в него выводиться картинка."

"В 8.2 Нет поля типа "Каринка". Используется текстовое поле в котором я храню ссылку, а отображается на форме она как картинка (ВИД:Картинка), так вот АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото); помещает в АдресФото ссылку по которому отображается изображение после выбора - этот момент работает.<br> <br>Сделал через ПолучитьДвоичныеДанные() но все равно как то не отображается. Как проверить вообще картинка записалась или нет?"

Я так понимаю вы под управляемые формы пишите?<br>В таком случае, согласно увиденному в УТ, надо сохранить из Хранилища в файл и подсунуть путь этому полю.<br>Правда вникать во весь алгоритм я не стал - там такое наворочено...

"Блин не пойму что за тупость... Данные = ПолучитьИзВременногоХранилища(АдресФото); 3-4-5 раз выдает Неопределено, а временами нормально возвращает двоичные данные. при этом в коде ничего не меняется и файл выбирается один и тот же...."

"В общем такая конструкция работает:<br><br><pre><br>&НаКлиенте<br>Процедура ВыбратьФайл(Команда)<br> Режим = РежимДиалогаВыбораФайла.Открытие;<br> ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);<br> ДиалогОткрытияФайла.ПолноеИмяФайла = """";<br> Текст = "Изображение PNG";<br> Фильтр = НСтр(Текст)+"(*.png)|*.png";<br> ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;<br> ДиалогОткрытияФайла.МножественныйВыбор = Ложь;<br> ДиалогОткрытияФайла.Заголовок = "Выберите файл...";<br> Если ДиалогОткрытияФайла.Выбрать() Тогда<br> ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);<br> Если ИзображениеФото <> Неопределено Тогда<br> АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные());<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры<br><br>&НаСервере<br>Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)<br> Если АдресФото <> Неопределено Тогда<br> Данные = ПолучитьИзВременногоХранилища(АдресФото);<br> ИзображениеФото = Новый Картинка(Данные);<br> ТекущийОбъект.Фото = Новый ХранилищеЗначения(ИзображениеФото);<br> КонецЕсли;<br>КонецПроцедуры<br><br><br><br>&НаСервере<br>Процедура ПриЧтенииНаСервере(ТекущийОбъект)<br> ИзображениеФото = ТекущийОбъект.Фото.Получить();<br> АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные());<br>КонецПроцедуры<br> </pre><br><br> <br>Единственно Данные = ПолучитьИзВременногоХранилища(АдресФото); не всегда выдает данные, не могу понять почему."

"Интересно, а так работать будет?<br> <br><pre>&НаКлиенте<br>Процедура ВыбратьФайл(Команда)<br> Режим = РежимДиалогаВыбораФайла.Открытие;<br> ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);<br> ДиалогОткрытияФайла.ПолноеИмяФайла = """";<br> Текст = "Изображение PNG";<br> Фильтр = НСтр(Текст)+"(*.png)|*.png";<br> ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина;<br> ДиалогОткрытияФайла.МножественныйВыбор = Ложь;<br> ДиалогОткрытияФайла.Заголовок = "Выберите файл...";<br> Если ДиалогОткрытияФайла.Выбрать() Тогда<br> ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла);<br> Если ИзображениеФото <> Неопределено Тогда<br>ДвДанные = ИзображениеФото.ПолучитьДвоичныеДанные(); //1<br>ТекущийОбъект.Фото = Новый ХранилищеЗначения(ДвДанные); //2<br> АдресФото = ПоместитьВоВременноеХранилище(ДвДанные);<br> КонецЕсли;<br> КонецЕсли;<br>КонецПроцедуры<br><br>//&НаСервере<br>//Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)<br>// Если АдресФото <> Неопределено Тогда<br>// Данные = ПолучитьИзВременногоХранилища(АдресФото);<br>// ИзображениеФото = Новый Картинка(Данные);<br>// ТекущийОбъект.Фото = Новый ХранилищеЗначения(ИзображениеФото);<br>// КонецЕсли;<br>//КонецПроцедуры<br><br><br><br>&НаСервере<br>Процедура ПриЧтенииНаСервере(ТекущийОбъект)<br>// ИзображениеФото = ТекущийОбъект.Фото.Получить();<br> АдресФото = ПоместитьВоВременноеХранилище(ТекущийОбъект.Фото.Получить());<br>КонецПроцедуры<br> </pre><br><br> &"

"Выдает ошибку: <br><pre>{Справочник.Языки.Форма.ФормаЭлемента.Форма(19,34)}: Тип не определен (ХранилищеЗначения) ТекущийОбъект.Иконка = Новый <</pre><br>>ХранилищеЗначения(ДвДанные); //2 (Проверка: Тонкий клиент)"

К тому же ТекущийОбъект не определен

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