Имя: Пароль:
1C
1С v8
Создание моб.Приложения
0 iQwerty
 
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 надеюсь на тебя