|
Работа с 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к какие то
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |