Создание моб.Приложения

1С v8

01.08.13

✎

13:51

в общем код
Процедура СделатьФотоснимок(Команда)


#Если МобильноеПриложениеКлиент Тогда
   Если СредстваМультимедиа.ПоддерживаетсяФотоснимок()    Тогда
      ДанныеМультимедиа = СредстваМультимедиа.СделатьФотоснимок();
//в принципе нужно чтобы было так
//ЭтаФорма.СсылкаНаКартинку =ДанныеМультимедиа;


   Иначе
       Сообщить(НСтр("ru = 'Съемка фото не поддерживается.'", "ru"));
   КонецЕсли;
   //СсылкаНаКартинку = ДанныеМультимедиа;

#КонецЕсли

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

1 iQwerty

01.08.13

✎

13:52

хочу засунуть фотографию в полекартинки СсылкаНаКартинку

2 iQwerty

01.08.13

✎

16:46

&Насервере
функция снимок(МояКартинка) экспорт
   ХранилищеКартинки = Новый ХранилищеЗначения(МояКартинка);
   пак = ХранилищеКартинки;
   возврат пак;


конецфункции

&НаКлиенте

Процедура СделатьФотоснимок(Команда)



#Если МобильноеПриложениеКлиент Тогда
   Если СредстваМультимедиа.ПоддерживаетсяФотоснимок()    Тогда
      ДанныеМультимедиак = СредстваМультимедиа.СделатьФотоснимок();

      СсылкаНаКартинку = снимок(ДанныеМультимедиак);


   Иначе
       Сообщить(НСтр("ru = 'Съемка фото не поддерживается.'", "ru"));
   КонецЕсли;


#КонецЕсли

в мобильном приложении выдает : "Ошибка отображения типов: Отсутствует отображение для типа 'ДанныеМультимедиа'"

3 iQwerty

01.08.13

✎

16:49

&Насервере
функция снимок(МояКартинка) экспорт
   ХранилищеКартинки = Новый ХранилищеЗначения(МояКартинка);
   пак = ХранилищеКартинки;
   возврат пак;


конецфункции

&НаКлиенте

Процедура СделатьФотоснимок(Команда)



#Если МобильноеПриложениеКлиент Тогда

   Если СредстваМультимедиа.ПоддерживаетсяФотоснимок()    Тогда
      ДанныеМультимедиак = СредстваМультимедиа.СделатьФотоснимок();
  моякартинка = ДанныеМультимедиак.ПолучитьДвоичныеДанные();


      СсылкаНаКартинку = снимок(моякартинка);


   Иначе
       Сообщить(НСтр("ru = 'Съемка фото не поддерживается.'", "ru"));
   КонецЕсли;


#КонецЕсли

так все проходит ровно, не выдает ошибку, но не заполняет поле СсылкаНаКартинку

4 iQwerty

01.08.13

✎

16:52

при чем сообщить(ДанныеМультимедиак.РасширениеФайла);
выдает jpg

5 iQwerty

01.08.13

✎

17:04

banco надеюсь на тебя