Есть необходимость задействовать веб камеру планшета из конфигурации на 8.3.
Перекопал инет, на инфостарте есть статья как это можно сделать через Active x, или есть примеры работы через COM Объект WIA.DeviceManager.

Но Active x не работает на управляемых формах, объект WIA.DeviceManager создается пустым, без данных.

Может у кого-то был подобный опыт?

(0) Что надо-то? Задачу опиши.

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

(2) Поиск рулит: v8: Где посмотреть работу с веб-камерой? Надо сделать фотографирование работника

Там речь о 1CScan.dll, компонента сканера, она не подойдет для работы с веб камерой

Неужто нельзя напрямую обратиться к какой нибудь виндовой библиотеке?

(4) Чукча не читатель?
Ты тему-то почитай...

Почитал тему, никакой конкретики

Базар только

(7) Для тех, кто в танке, пост №26:
(20) Суть длл из (8) такая:
1). Жмешь в 1С кнопку "Сфотать".
2). Открывается ПО, которое шло с камерой для фото или стандартная виндовая фоталка.
3). Фотаешь чела через это ПО.
4). В этом же окне есть список последних фото, ты выбираешь только что сфотанное и оно (о, чудо) прикрепляется к твоему сотруднику в 1С и управление возвращается в форму, из которой ты нажал кнопку "Сфотать".

Ну, это и так понятно, вопрос как подключить это ПО или что это за стандартная виндовая фоталка.

Это COM объект

Как его подключить? Как называется dll

Напрямую вроде как из винды не получится управлять камерой

(12) Кури (3) там всё написано. Если что-то не нашел - перечитывай до полного просветления...

Ты случайно не из ТИбета?

(15) Если ты школьную программу не осилил и читать не научился, я-то тут причём?

Есть тут кто в теме, а не просто базар устраивать?

Предлагаю писать тем кто знает и кому не впадлу

(17) Я в теме. У меня работает фоталка через веб-камеру на УФ. Компонента, позволяющая это сделать озвучена. За сим, базар прекращаю.

Кусок для работы со сканером какой то наблюдал в БСП - работает кажись через WIA

Какая версия бсп

Спасибо хоть за какую то помощь

бери последнюю - не ошибешься

мы решили через собственную ВК -
подключается к форме
в вк жестко прописано на какое по счету поле "проецировать" изображение

в итоге: жмем кнопку "Сфоторграфировать" - открывается модальная УФ форма с видио, фото, выбором камеры из списка (возвращает этаже ВК) - жмем "Вспышка" - - ВК возвращает картинку в двоичных

все на тонком на 8.2

http://www.dropmocks.com/mH0Leq

&НаКлиенте
Процедура Сфотографировать(Команда)
    
    ФайлСФото = МИС_СменаРаскладкиКлавиатурыКлиент.ПолучитьФото();
    
    АдресКартинки = ПоместитьВоВременноеХранилище(ФайлСФото, УникальныйИдентификатор);
    
    //РеквизитФотоПациента = Новый Картинка(ФайлСФото);
    //
    //РеквизитФотоПациента = РеквизитФотоПациента.Преобразовать(ФорматКартинки.PNG);
    
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    МИС_СменаРаскладкиКлавиатурыКлиент.УстановитьКомпоненту();
    Список = МИС_СменаРаскладкиКлавиатурыКлиент.ПолучитьСписокКамер();
    Текст = Новый ТекстовыйДокумент;
    Текст.УстановитьТекст(Список);
    Для Строка = 1 по Текст.КоличествоСтрок() Цикл
        Элементы.Камера.СписокВыбора.Добавить(Текст.ПолучитьСтроку(Строка + 1), Текст.ПолучитьСтроку(Строка));
        Строка = Строка + 1;
    КонецЦикла;
    
    ПодключитьОбработчикОжидания("УстановитьКамеруПоУмолчанию",0.1,Истина);
    
КонецПроцедуры

&НаКлиенте
Процедура УстановитьКамеруПоУмолчанию()
    НомерКамерыВСписке = Макс(Мин(Элементы.Камера.СписокВыбора.Количество()-1,1),0);
    Камера = Элементы.Камера.СписокВыбора[НомерКамерыВСписке].Значение;
    КамераПриИзменении(Элементы.Камера);
КонецПроцедуры

&НаКлиенте
Процедура КамераПриИзменении(Элемент)
    МИС_СменаРаскладкиКлавиатурыКлиент.ОтключитьКамеру();
    МИС_СменаРаскладкиКлавиатурыКлиент.ПодключитьКамеру(Камера);
    
    Камера = Элемент.СписокВыбора.НайтиПоЗначению(Камера).Представление;
КонецПроцедуры

А если теорретически, попросить эту компоненту, то можно ее получить?)

Или подскажите инфу по созданию Вк

можно
https://yadi.sk/d/Mh-y-U9Ldd (тут сработал матофильтр - убираем разделители)X Y E

это как должна быть скомпанована форма для фотографирования
видео будет транслироваться в декорацию, только если она стоит там где показано - будет другой элемент на этом месте - будет показывать в него
http://www.dropmocks.com/mHvo85

спасибо, полезная штука
https://yadi.sk/d/Mh-y-U9LddиксYE
икс заменить на английскую X

Спасибо епическое

Не каждый бы так заморочился

А регистрировать компоненту нужно?

(33) ну - это натив
все типовыми методами

Если Компонента1cruen = Неопределено Тогда
        
        КодВозврата = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаСменыРаскладки", "ruen",ТипВнешнейКомпоненты.Native);
        
        Если КодВозврата Тогда
            
            Компонента1cruen = Новый("AddIn.ruen.AddInNativeExtension");
            
            ВерсияКомпоненты = Компонента1cruen.Версия();
            
            Если ВерсияКомпоненты <> 3008 Тогда

и отключить камеру желательно при закрытии формы

    Возврат Компонента1cruen.ОтключитьКамеру();

Команда regsvr32 не может зарегистрировать
C:\mistools.dll загружен, но точка входа DllregisterServer не найдена

То есть Новый COM("mistools.dll") так не объект не получиться создать

не надо её регистрировать
КодВозврата = ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаСменыРаскладки", "ruen",ТипВнешнейКомпоненты.Native);
        
        Если КодВозврата Тогда
            
            Компонента1cruen = Новый("AddIn.ruen.AddInNativeExtension");
            
почитайте про ВК для 8.2

Ок, еще раз спасибо большое

И еще последнее спрошу и все. Можно пару команд хотя бы по работе с компонентой, хотя бы для получения камер и сделать фото. Компонента подключилась, но ее методы неизвестны

вроде все в 26

а сори

Функция ПолучитьСписокКамер() Экспорт
    Если Не ПроинициализироватьКомпоненту() Тогда
        Возврат НСтр("ru= 'Компонента не установлена'");
    КонецЕсли;
    Возврат Компонента1cruen.ПолучитьСписокКамер();
КонецФункции

Функция ПодключитьКамеру(ID) Экспорт
    Если Не ПроинициализироватьКомпоненту() Тогда
        Возврат НСтр("ru= 'Компонента не установлена'");
    КонецЕсли;
    Возврат Компонента1cruen.ПодключитьКамеру(ID);
КонецФункции

Функция ОтключитьКамеру() Экспорт
    Если Не ПроинициализироватьКомпоненту() Тогда
        Возврат НСтр("ru= 'Компонента не установлена'");
    КонецЕсли;
    Возврат Компонента1cruen.ОтключитьКамеру();
КонецФункции

Функция ПолучитьФото() Экспорт
    Если Не ПроинициализироватьКомпоненту() Тогда
        Возврат НСтр("ru= 'Компонента не установлена'");
    КонецЕсли;
    Возврат Компонента1cruen.ПолучитьФото();
КонецФункции

УстановитьВнешнююКомпоненту("ОбщийМакет.Mistools");
        ПодключитьВнешнююКомпоненту("ОбщийМакет.Mistools", "ruen", ТипВнешнейКомпоненты.Native);
    
    Попытка
        Mistools = Новый("AddIn.ruen.AddInNativeExtension");
    Исключение
        Mistools = Неопределено;
        Сообщить("Не могу создать объект из компоненты");
        Сообщить(ОписаниеОшибки());
        Возврат;
    КонецПопытки;


Добавил в общий макет dll. пробовал и 64 разрадную..
Пишет Установка внешней компоненты не выпонена, В процессе установки произошла ошибка, возможно отсутствует компонента для используемого клиентского приложения (тонкий клиент) (((((((
Осталось всего то чуть чуть и все уже заработает

а ничего что 1С хочет ZIP в макет
и я выложил ZIP

ZIP тоже пробовал

Я пробовал добавить в зип только dll, потом 2 dll, потом еще xml, во всех вариантах не устанавливается

Фух..скачал заново ZIP, теперь компонента установилась

Огромное еще раз спасибо, вы единственный, кто мне помог

может из-за 8.3?
попробуй на 8.2 для начала


эти файлы создает?
(ВременныйКаталог + "\1C\1Cv82\ExtCompT\","mistools*.dll");

удали все - нужен полный зип
в манифесте твоя винда описана?

Все уже, компонента успешно установленна

Во временном каталоге файл создает

Методы компоненты доступны на клиенте?

включаем голову - камера на клиенте, компонента на клиенте - где методы компоненты?

важный момент форма должна иметь заголовок "Камера"

Заголовок Камера, Элемент надпись расположен как на фото с такими же размерами, но происходит ошибка при вызове метода

ПолучитьФото()

(56) скрин

(57) видео-то показывает?

на 8.2 пробуете?

УстановитьВнешнююКомпоненту("ОбщийМакет.Макет");
        ПодключитьВнешнююКомпоненту("ОбщийМакет.Макет", "ruen", ТипВнешнейКомпоненты.Native);
        
        Попытка
                Mistools = Новый("AddIn.ruen.AddInNativeExtension");
        Исключение
            Mistools = Неопределено;
            Сообщить("Не могу создать объект из компоненты");
            Сообщить(ОписаниеОшибки());
            Возврат;
        КонецПопытки;
        
    КонецЕсли;
    
     Элементы.ФотоНах = Mistools.ПолучитьФото();

https://www.dropbox.com/s/trlg4mdrvitvwn3/i5%5Ecimgpsh_orig.png?dl=0

8.3

На 8.2 проверить пока не могу

https://yadi.sk/d/xAmmOwm1ddihv

Человек с Большой Буквы

В конфигурации все работает

)

в режиме совместимости точно работает
на такси - нет - там с заголовками окон проблемка

на такси к стати тоже работает - во второй параметр передать Окно.Заголовок

У меня как раз такси

А разрешение увеличить никак нельзя?

http://www.dropmocks.com/mH0Xr4

(70) спасибо, режим совместимости 8.2.13 не снять как я понял?

Или это только от железа зависит?

(72) размер?
Можно, это всегда можно, дуся. С нашим удовольствием, дуся.

разрешение - от железа
а размер - обрезан под наши нужды 640х480

Это на уровне компоненты

Теперь надо научиться разрабатывать компоненты)) Или писать сразу мобильное приложение 1С на Андроид, там хоть доступ к железу напрямую есть

У меня кстати на Такси не работает
Видео.ПодключитьКамеру(Камера, ЭтаФорма.Заголовок, 3);

В вашей конфигурации

Работает частично

Окно.Заголовок

Возникает ошибка, но Камера работает и фоткает

{ОбщийМодуль.Видео.Модуль(33)}: Поле объекта недоступно для записи (Заголовок)
    Возврат ВКВидео.ПодключитьКамеру(ID,Заголовок, НомерЭлемента);

Передается Окно.Заголовок

И название Камеры с нормального меняется на

@device:pnp:\\?\usb#vid_046d&pid_082d&mi_00#7&245e51b6&0&0000#{65e8773d-8f56-11d0-a3b9-00a0c9223196}\global

Это при ошибке.

Список камер формирует реальную камеру и вот это @device:pnp:\\?\usb#vid_046d&pid_082d&mi_00#7&245e51b6&0&0000#{65e8773d-8f56-11d0-a3b9-00a0c9223196}\global

НО фоткает))

А можно убрать Размер или Сделать возможность передавать параметр Размер?

{ОбщийМодуль.Видео.Модуль(33)}: Поле объекта недоступно для записи (Заголовок)
    Возврат ВКВидео.ПодключитьКамеру(ID,Заголовок, НомерЭлемента);

Здесь Нужно Знач Заголовок

Можно как-то Сделать возможность передавать параметр Размер?

Ну очень надо

Дуся! Вы меня озлобляете. Я человек, измученный нарзаном.

(90) Не учите меня жить, лучше помогите материально.

(94) когда буду на главном с удовольствием, ты что пьешь?

А что значит Дуся