Имя: Пароль:
1C
 
Фото в мобильном приложении 1С УТ
0 TSIRK
 
06.06.24
12:00
Доброго времени суток.Подскажите пожалуйста по такому моменту.
Есть мобильное приложение 1С УТ. Есть возможность делать фото из приложения. Все бы ничего да момент подгрузки очень долгий. Проверял работу сервера все отлично с интернетом тоже. Как только до сервера доходит сигнал почти мгновенно обрабатывает.
1 lamme
 
06.06.24
12:04
Фото большое
много

проходит долго

у меня на ф/а фото получается 8-9мб
2 yzimin
 
06.06.24
12:15
ДанныеМультимедиа = СредстваМультимедиа.СделатьФотоснимок(, РазрешениеКамеры, КачествоКамеры,, ТипПодсветкиКамеры.Выключена, Отметка);

Можно поиграться с параметрами
РазрешениеКамеры = Новый РазрешениеКамерыУстройства(800, 600)

КачествоКамеры = 80

и дальше наблюдать
3 TSIRK
 
06.06.24
12:15
У меня фото 3-5мб. Грузит 40-50 сек.
4 yzimin
 
06.06.24
12:28
(3) покажи код
5 TSIRK
 
06.06.24
13:58
#Если МобильныйКлиент Тогда
    ДанныеМультимедиа = СредстваМультимедиа.СделатьФотоснимок();
    Если ДанныеМультимедиа <> Неопределено Тогда
      ВызовСделатьНовыйФайл(ДанныеМультимедиа.ПолучитьДвоичныеДанные(),ДанныеМультимедиа.РасширениеФайла,ДанныеМультимедиа.ТипСодержимого);
    КонецЕсли;
  #КонецЕсли
&НаСервере
Процедура ВызовСделатьНовыйФайл(ДанныеМультимедиаДвоичныеДанные,ДанныеМультимедиаРасширениеФайла,ДанныеМультимедиаТипСодержимого)
  
  ОбъектСсылка=ЭтотОбъект.Список.Отбор.Элементы.Получить(0).ПравоеЗначение;
    ИмяКонтейнера =ПолучитьНКонтейнера(ОбъектСсылка);
  СоздатьНовыйФайл(ДанныеМультимедиаДвоичныеДанные,
  ДанныеМультимедиаРасширениеФайла, ДанныеМультимедиаТипСодержимого,ОбъектСсылка,""+ИмяКонтейнера+" "+ТекущаяДата());
  Элементы.Список.Обновить();
  
КонецПроцедуры
6 yzimin
 
06.06.24
14:10
У меня чуть иначе, я на клиенте сразу во временное хранилище помещаю

&НаКлиенте
...
#Если МобильныйКлиент Тогда
        РазрешениеКамеры = Новый РазрешениеКамерыУстройства(800, 600);
    КачествоКамеры = 80;

    ДанныеМультимедиа = СредстваМультимедиа.СделатьФотоснимок(, РазрешениеКамеры, КачествоКамеры,, ТипПодсветкиКамеры.Выключена, Отметка);
        
    Если ДанныеМультимедиа <> Неопределено Тогда
        
        АдресКартинки = ПоместитьВоВременноеХранилище(ДанныеМультимедиа.ПолучитьДвоичныеДанные(), ЭтаФорма.УникальныйИдентификатор);

...

Далее уже сохранение
&НаСервереБезКонтекста

    СсылкаНаСозданныйФайл = РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, АдресКартинки);
7 craxx
 
10.06.24
12:46
(1) А читалку QR-кодов реально реализовать в мобильном приложении?
8 p-soft
 
10.06.24
12:50
(7) да, средствами мультимедиа мобильной платформы
Ошибка? Это не ошибка, это системная функция.