Имя: Пароль:
1C
1С v8
Работа с WEB-камерами
0 ChMikle
 
07.06.19
12:17
Доступ к Веб Камере из 1С 8.3 все работало , работало и тут на тебе
перестал срабатывать метод ВКВидео.ПодключитьКамеру(ID, "Камера", 3);
имя веб-камеры передается вместо id, а обратно вываливает полностью из программы .
1 RomaH
 
naïve
07.06.19
12:26
обновили платформу?
2 ChMikle
 
07.06.19
12:32
Да
3 ChMikle
 
07.06.19
12:32
8.3.13.1644
4 RomaH
 
naïve
07.06.19
12:33
ну и все - та версия ВК не будет работать больше
новая - за деньги
на инфостарте видел что-то в 10 раз дешевле
5 ChMikle
 
07.06.19
12:34
сколько стоит ?
6 ChMikle
 
07.06.19
12:35
и если откатить,то до какой платформы можно юзать бесплатно ?
7 RomaH
 
naïve
07.06.19
12:40
10 000
не помню 11 или 12 ... отрисовка окон поменялась
8 ChMikle
 
07.06.19
12:43
Как с разработчиком компоненты связаться на предмет покупки, не подскажешь  ?
9 RomaH
 
naïve
07.06.19
12:44
в личке почта
10 Nyoko
 
07.06.19
12:45
я в свое время просто из веб интерфейсас камеры по http брал jpg. просто и удобно..
11 ChMikle
 
07.06.19
12:49
(10) А пример работы можете выложить ?
12 ChMikle
 
07.06.19
12:52
(9) написал :)
13 Юрий Лазаренко
 
07.06.19
12:57
Можно сделать промежуточную базу на старой версии платформы, даже файловую, камеру подключить к ней. Ее дергать из основной базы, промежуточная пусть берет картинку с камеры и отдает рабочей базе.
14 RomaH
 
naïve
07.06.19
13:00
(11) пример ничем не отличается от того что есть у тебя


&НаКлиенте
Процедура Сфотографировать(Команда)
    Файл = Видео.ПолучитьФото(НЕ ВесьКадр);    //Возвращает картинку в размер видео-окна, если в функцию передать Ложь, будет сфотографировано всё видео (640х480)
    Фото = ПоместитьВоВременноеХранилище(Файл, УникальныйИдентификатор);
КонецПроцедуры

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

&НаКлиенте
Процедура КамераПриИзменении(Элемент)
    Видео.ОтключитьКамеру();
    
    ИмяОкна = ЭтаФорма.Окно.Заголовок;
    
    Если Камера <> "" Тогда
        //выводим картинку с выбранной камеры в указанные координаты указанного размера
        //4 последних параметра: x, y координаты левого верхнего угла окна, далее ширина и высота окна (они же соответствуют размерам получаемой фотографии)
        Видео.ПодключитьКамеру(Камера, ИмяОкна, 20, 85, 220, 280);
    КонецЕсли;
    
КонецПроцедуры

&НаКлиенте
Процедура ПриЗакрытии()
    Видео.ОтключитьКамеру();
КонецПроцедуры
15 Garykom
 
гуру
07.06.19
13:53
Не у всех камер есть http или rtsp.
Но у кого нет можно легко сделать есть куча бесплатного и опенсурсного.
16 Nyoko
 
07.06.19
14:24
(15) Да можно, или купить сразу камеру с http в моём случае была камера wifi китайская за 3 тр
17 Garykom
 
гуру
07.06.19
14:27
(16) Че так дорого я по 1600р брал
18 Garykom
 
гуру
07.06.19
14:28
(17)+ но просто фуллхд 1920х1080 не 4к какие то