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

Новая тема
Показывать по 10 20 40 сообщений
Федько_Андрей
читатель
Регистрация: 15.04.2011
Сообщений: 378
27.05.2011
05:34
#11
"Нужно получать навигационную ссылку:


&НаКлиентеПроцедура ВыбратьФайл(Команда) Режим = РежимДиалогаВыбораФайла.Открытие; ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытияФайла.ПолноеИмяФайла = """"; Текст = "Изображение PNG"; Фильтр = НСтр(Текст)+"(*.png)|*.png"; ДиалогОткрытияФайла.ПредварительныйПросмотр = Истина; ДиалогОткрытияФайла.МножественныйВыбор = Ложь; ДиалогОткрытияФайла.Заголовок = "Выберите файл..."; Если ДиалогОткрытияФайла.Выбрать() Тогда  АдресВХран="""";  //ВыбрИмя="""";  ПоместитьФайл(АдресВХран,ДиалогОткрытияФайла.ПолноеИмяФайла,,Ложь,УникальныйИдентификатор);  АдресФото=АдресВХран; // ИзображениеФото = Новый Картинка(ДиалогОткрытияФайла.ПолноеИмяФайла); // Если ИзображениеФото <> Неопределено Тогда //  АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные()); // КонецЕсли; КонецЕсли;КонецПроцедуры&НаСервереПроцедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) Если АдресФото <> Неопределено Тогда  Данные = ПолучитьИзВременногоХранилища(АдресФото);  //ИзображениеФото = Новый Картинка(Данные);  ТекущийОбъект.Фото  = Новый ХранилищеЗначения(Данные); КонецЕсли;КонецПроцедуры&НаСервереПроцедура ПриСозданииНаСервере(Отказ,СтандартнаяОбработка) //ИзображениеФото = ТекущийОбъект.Фото.Получить(); //АдресФото = ПоместитьВоВременноеХранилище(ИзображениеФото.ПолучитьДвоичныеДанные()); АдресФото = ПолучитьНавигационнуюСсылку(Объект.Ссылка,"Фото");КонецПроцедуры
"
_Dmitry_
читатель
Регистрация: 26.05.2011
Сообщений: 7
27.05.2011
09:19
#12
Большущее спасибо! Все работает! А не подскажите как в форме "список элементов" можно вывести это изображение? В списке Реквизитов указано: ХранилищеЗначения (Недоступен в данных формы)
Федько_Андрей
читатель
Регистрация: 15.04.2011
Сообщений: 378
27.05.2011
17:04
#13
"Добавить в форму списка реквизит АдресФото. При переходе между элементами списка картинка относящиеся к текущему элементу будет отображаться в поле(не списка) АдресФото. Отображать все картинки сразу нельзя.

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

Быстрый переход