Здравствуйте, форумчане.
У меня такая проблема. Я в управляемом приложении в форме элемента справочника по нажатию кнопки выбираю картинку. В толстом и тонком клиенте эта картинка сразу же отображается на форме. А вот в веб-клиенте не отображается. Она появляется на форме, если закрыть программу и снова открыть. Подскажите, пожалуйста, как сделать, чтобы картинка в веб-клиенте сразу появлялась на форме.

Люди, откликнитесь

Up

Up

Up

показывай код

&НаКлиенте
Процедура ВыбратьКартинку(Команда)
    Перем ВыбранноеИмя;
    Если ЗначениеЗаполнено(Объект.ФайлКартинки) Тогда
        Если Вопрос("Удалить картинку?",РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
            АдресКартинки = "";
            ПоместитьФайлКартинки(АдресКартинки);
            АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
            Возврат;
        КонецЕсли;
    КонецЕсли;
    #Если ВебКлиент Тогда
        АдресКартинки = "";
        Если ПоместитьФайл(АдресКартинки, "", ВыбранноеИмя, Истина) Тогда
            Объект.ФайлКартинки = ВыбранноеИмя;
            ПоместитьФайлКартинки(АдресКартинки);
        КонецЕсли;
        АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
    #Иначе
        Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        Диалог.Заголовок = "Выберите файл картинки...";
        Диалог.ПредварительныйПросмотр = Истина;
        Диалог.МножественныйВыбор = Ложь;
        Диалог.Фильтр = "Все картинки (*.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|";
        Если Диалог.Выбрать() Тогда
            АдресКартинки = "";
            Если ПоместитьФайл(АдресКартинки, Диалог.ПолноеИмяФайла, "", Ложь) Тогда
                Объект.ФайлКартинки = Диалог.ПолноеИмяФайла;
                ПоместитьФайлКартинки(АдресКартинки);
            КонецЕсли;
            АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
        КонецЕсли;
    #КонецЕсли
КонецПроцедуры

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

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
КонецПроцедуры

ДанныеФайлаКартинки - реквизит объекта типа ХранилищеЗначений
ФайлКартинки - реквизит объекта типа Строка неограниченной длины
АдресКартинки - реквизит типа Строка неограниченной длины

Имеется реквизит формы Картинка, имеет вид Поле картинки, путь к данным АдресКартинки

АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");


ты передаешь ссылку, в сылке картинки нет, картинка есть в не записаном обьекте....

(8) Я объект записываю в момент выбора картинки. Этот код работает в толстом и тонком клиентах, но не отображает картинку на форме в веб-клиенте. Вот не могу понять. в чём причина этого

контекст на сервере обновил? а то может он и не знает о том, что записано....

вообще перечитай обьект...

в УФ контекст существует одновременно на сервере и клиенте, при изменении контекста на сервере клиент может не знать об этом.

Для веб клиента вообще передача с сервера на клиент может происходить только "по запросу", по этому нужно или на клиенте что-то постоянно проверять или генерить системное событие...

Самое простое - перечитать обьект, при этом в явном виде форма получит последнюю версию контекста и обновит свои элементы.

(11) А каким методом нужно перечитать объект?

(11) Используя метод ЭтаФорма.ОбновитьОтображениеДанных(), картинка появляется после закрытия, открытия формы

Расширение управляемой формы для объектов (Managed form extension for objects)
Прочитать (Read)
Синтаксис:

Прочитать()
Описание:

Обновляет объект управляемой формы.

Доступность:

Тонкий клиент, веб-клиент, сервер, толстый клиент, мобильное приложение(клиент), мобильное приложение(сервер).

(14) Всё так же картинка сразу не отображается

Есть возможность отображение картинки на форме в веб-клиенте?

(11)
>в УФ контекст существует одновременно на сервере и клиенте, при изменении контекста на сервере клиент может не знать об этом.

А какой смысл существования контекста на сервере ?
Если с клиента при контекстном вызове он туда передаётся

Понимаю, что он может создаваться при создании формы и чтении объекта, но разве он не удаляется (освобождая память) при передачи управления на клиента (При открытии формы)

(17) я вообще не понимаю зачем нужен клиентский исполняемый код кроме как при работе с внешними интерфейсами (например ККМ)

(18)
ну а как же работа с файлами (чтение. запись) COM подключения и прочая шелуха ?

(19) тащить всё на сервак не айс мне кажется

А по существу вопроса что можете сказать?

Up

(21) грузи/тащи картинку на сервер при выборе

(23) Так код загрузки и так на сервере выполняется

(6) Где ты заполняешь "ВыбранноеИмя" ?

Для Веб клиента?

Ты пользовался отладчиком?

(6) >>>  АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");

А это зачем?
Что такое "АдресКартинки"?
Надеюсь, что это реквизит формы типа Строка, и выведен на форму в качестве Картинки?

+ Дай код посмотреть с формой :)
На Яндекс или Майл Диске можешь выложить Обработку, ли CF

(25) (26) Выбор файла происходит на клиенте, а АдресКартинки - реквизит типа Строка неограниченной длины

Имеется реквизит формы Картинка, имеет вид Поле картинки, путь к данным АдресКартинки

(28) Код этот рабочий, только в вебе не отображается сразу картинка

(31) у меня все отображается, значит у тебя что то не так, покажи код, чтоб могли подсказать

&НаКлиенте
Процедура ВыбратьКартинку(Команда)
    Перем ВыбранноеИмя;
    Если ЗначениеЗаполнено(Объект.ФайлКартинки) Тогда
        Если Вопрос("Удалить картинку?",РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
            АдресКартинки = "";
            ПоместитьФайлКартинки(АдресКартинки);
            АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
            Прочитать();
            Возврат;
        КонецЕсли;
    КонецЕсли;
    #Если ВебКлиент Тогда
        АдресКартинки = "";
        Если ПоместитьФайл(АдресКартинки, "", ВыбранноеИмя, Истина) Тогда
            Объект.ФайлКартинки = ВыбранноеИмя;
            ПоместитьФайлКартинки(АдресКартинки);
        КонецЕсли;
        АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
    #Иначе
        Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        Диалог.Заголовок = "Выберите файл картинки...";
        Диалог.ПредварительныйПросмотр = Истина;
        Диалог.МножественныйВыбор = Ложь;
        Диалог.Фильтр = "Все картинки (*.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|";
        Если Диалог.Выбрать() Тогда
            АдресКартинки = "";
            Если ПоместитьФайл(АдресКартинки, Диалог.ПолноеИмяФайла, "", Ложь) Тогда
                Объект.ФайлКартинки = Диалог.ПолноеИмяФайла;
                ПоместитьФайлКартинки(АдресКартинки);
            КонецЕсли;
            АдресКартинки = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеФайлаКартинки");
        КонецЕсли;
    #КонецЕсли
    Прочитать();
КонецПроцедуры


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

(32) Можешь показать свой код?

(33) Покажи код в Обработке. Нам как тоне видно, как ты на форме все разместил :)

(35) Я же выложил код и описал, что да как сделал

(34) я использую подсистему ПрисоединенныеФайлы из БСП и не изобретаю велосипед. а у тебя очень плохой код, там не то что исправить, а все заново написать. хотя бы посмотри как в демо базе, которая с платформой идет, сделано

(37) Код рабочий, просто требует маленькой доработки

Up

Up

какой браузер? попробуй на различных

(40)  ну ты упертый, не хочешь писать нормальный код.
добавь строчку
Элементы.Картинка.Обновить();

(42) Спасибо тебе, помог. А то на код мой грешил. Я же говорил маленькая доработка нужна.