Искал нормальную компоненту без .NET для работы с Web-камерой, нашел одну, но она платная.
Тогда я решил сделать свою ActiveX.
Моя компонента умеет:
1. - Получать изображение с камеры.
2. - Писать видео с камеры в файл, в формате (*.asf).
3. - Делать снимок с камеры и сохранять в файл, в форматах (*.bmp; *.jpg; *.png).
4.- Умеет проигрывать видео.
Для начало работы необходимо зарегистрировать компоненту в системе. Например:
regsvr32 "Полный путь к файлу WebCamX.ocx"
Так же имеется обработка пример для 1с8.2. В этой обработке показано как можно работать с этой компонентой.
Желаю удачи! Не забываем ставить плюсы и коментить :)
ActiveX компонента WebCamX для работы с веб-камерой!
Разработка - Разработка внешних компонент
Тогда я решил сделать свою ActiveX.
Моя компонента умеет:
1. - Получать изображение с камеры.
2. - Писать видео с камеры в файл, в формате (*.asf).
3. - Делать снимок с камеры и сохранять в файл, в форматах (*.bmp; *.jpg; *.png).
4.- Умеет проигрывать видео.
Для начало работы необходимо зарегистрировать компоненту в системе. Например:
regsvr32 "Полный путь к файлу WebCamX.ocx"
Так же имеется обработка пример для 1с8.2. В этой обработке показано как можно работать с этой компонентой.
Желаю удачи! Не забываем ставить плюсы и коментить :)
См. также
Медиадисплей. Рекламный информационный монитор для покупателя.
Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)
Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!
16800 руб.
30.05.2017 52239 34 69
Внешняя компонента печати PDF (Native Win 32/64)
Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)
Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome
1500 руб.
17.09.2018 35257 108 127
Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)
Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)
Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).
2400 руб.
12.05.2020 26415 132 99
Внешняя компонента для подключения 1С к телефонии Asterisk
Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)
Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)
2400 руб.
04.05.2018 45148 117 66
Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3
Разработка внешних компонент Платформа 1С v8.3 Платные (руб)
Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.
2000 руб.
28.03.2013 54065 35 14
QR-код с логотипом компании (обычная и управляемая форма)
Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)
Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!
2400 руб.
22.06.2016 30882 4 4
Внешняя компонента 1С и С++. Продолжаем разговор.
Разработка внешних компонент Платформа 1С v8.3 Бесплатно (free)
А давайте запилим 8.3.26 до релиза, или оповещение с сервера...
19.02.2024 4174 starik-2005 28
Внешние компоненты 1С и язык C++
Разработка внешних компонент Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)
Некоторые практические аспекты создания внешних компонент на языке С++ для платформы 1С 8.3++.
26.01.2024 4939 starik-2005 32
Нужна процедура.
Если есть у кого опыт, прошу отзываться, поток в 1с получаем, нужно сохранить картинку.
С usb-веб-камерами возникает уйма проблем, я это всё прочувствовал на собственной шкуре когда внедрял один крупный проект на них. Во-первых качество изображения этих камер ужасное даже в условиях нормальной освещенности, нет защиты от воды/жары/холода - так как камеры предназначаются для работы в помещениях. Очень малое расстояние от ПК до камеры, при котором они работают стабильно и работают вообще. Нет защиты от пересвета - это блики от снега/льда/луж, прямой солнечный свет - опять же следствие их предназначения для помещений. Нет нормальных интерфейсов для управления камерами. Нет сменных объективов, нормальной фокусировки, зума, поворота и т.д.
С IP-камерами намного лучше, есть много моделей предназначенных для работы в жестких уличных условиях, в дорогих модели этих камер устранены все вышеперечисленные недостатки. Витая пара (или WiFi) дает возможность отнести их на любое расстояние от ПК. Разрешение IP-камер на данный момент - до 5 мегапикселей при 15 кадрах в секунду (причем практически реальных что подтверждается образцами видео), а значит можно спокойно рассмотреть номера на авто, лица и т.д. Кроме всего прочего есть инфракрасная подсветка, защита от пересветов, морозо- и жароустойчивость, автономность. Но и как говорится - любой каприз за ваши деньги. Относительно приличные IP-камеры начинаются от 10 т.р., но ИМХО возможности и удобство работы с ними стоят того для ряда проектов.
По аналогии с IP-камерами, многое из того же возможно реализовать с помощью обычных аналоговых камер, так как даже аналоговая камера на порядок лучше usb-камеры. Но для этого необходимо реализовать сначала сервер видеозахвата (обычно они уже имеются в фирмах где реализовано видеонаблюдение), а затем интерфейс работы с этим сервером из 1С. Но тут уже по полной аналогии с IP-камерами, так как разработчики ПО для видеонаблюдения предоставляют те же средства и функционал что и разработчики IP-камер, то есть имеется как минимум activex для работы с потоком через браузер.
Очень важной деталью реализации проектов с использованием камер чаще всего также является реализация взаимодействия с другими внешними устройствами. Например открыть шлагбаум или турникет из 1С, прочесть штрихкод с удаленного устройства, включить/выключить двигатель ворот, управлять освещенностью и т.д. Здесь на помощь приходят ряд несложных устройств, с некоторыми из которых вы можете познакомиться по ссылкам ниже. Некоторые из этих устройств я уже использовал в своих проектах. Но это уже другая тема для разговора.
//-- модуль формы
&НаКлиенте
Перем WebCam ;
&НаКлиенте
Процедура Пуск(Команда)
Элементы.СписокDevice.Доступность=Ложь;
Элементы.СписокФорматов.Доступность=Ложь;
WebCam.Play();
КонецПроцедуры
&НаКлиенте
Процедура СписокDeviceПриИзменении(Элемент)
WebCam.SetDevice(СписокDevice);
Для Ч=0 по WebCam.GetCountVideoFormat()-1 Цикл
Элементы.СписокФорматов.СписокВыбора.Добавить(Ч,WebCam.GetNameVideoFormat(Ч));
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
WebCam = Новый COMОбъект("WebCamProj1.WebCamX");
Кол=WebCam.GetCountDivice();
Элементы.СписокDevice.СписокВыбора.Очистить();
Для Ч=0 по Кол-1 Цикл
Элементы.СписокDevice.СписокВыбора.Добавить(Ч,WebCam.GetNameDevice(Ч));
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура СписокФорматовПриИзменении(Элемент)
WebCam.SetVideoFormat(СписокФорматов);
КонецПроцедуры
&НаКлиенте
Процедура Снимок(Команда)
ИмяФайла = ПолучитьИмяВременногоФайла();
WebCam.SaveBitmapToFile(ИмяФайла, 2, 30);/// ругается на эту строку
Кар=Новый Картинка(ИмяФайла);
ПолеКартинки=Кар;
КонецПроцедуры
Но есть один очень неприятный баг.
Если инициализировать элемент управления ActiveX вот таким образом:
ВебКамера = СоздатьОбъект("АктивИкс");
ВебКамера.УстановитьАтрибут(Форма, "АктивИксФото");
Объект = ВебКамера.СоздатьЭУ("WebCamProj1.WebCamX");
ВебКамера.УстановитьФокус();
Объект.SetDevice(0);
Объект.Play();
ПоказатьТо возникает ошибка:
Объект.Play();
{Документ.ХХХХ.Форма.Модуль(96)}: WebCamProj1.WebCamX: List index out of bounds (0)
Но путем анализа кода обработки для 8ки удалось догадаться, что в методе GetNameVideoFormat() есть какой-то побочный эффект, вызов которого до вызова Play() приводит к нормальной работе компоненты.
Поэтому вот такой код работает:
ВебКамера = СоздатьОбъект("АктивИкс");
ВебКамера.УстановитьАтрибут(Форма, "АктивИксФото");
Объект = ВебКамера.СоздатьЭУ("WebCamProj1.WebCamX");
ВебКамера.УстановитьФокус();
А = Объект.GetNameVideoFormat(0); // Магический вызов, который имеет полезный для нас побочный эффект.
Объект.SetDevice(0);
Объект.Play();
ПоказатьВсе это актуально для компоненты из архива WebCamX2.rar (только она работает под Windows 7)
p.s.
Разработчик убил полдня, чтобы из трех методов компоненты составить работающую комбинацию :)
"Пишите свой код из предположения, что сопровождать его будет психопат-убийца, знающий, где вы живете." (с)
П.С. Помучился часок с регистрацией из командной строки, через права админа, все получилось, информации полно в гугле. Обработка работает отлично и под виндоус 8.1. Прикрутил ее к справочнику номенклатура в конфе УТ 10.3, для фотографирования прямо из списка товаров. Всем советую.
Если выложите свою разработку на Git, думаю найдутся волонтеры на доработку (я могу помочь).
Ладно, меняем разрешение, при этом остановив камеру. Тогда метод SetVideoFormat() вообще возвращает ошибку. Приходится заново устанавливать устройство методом SetDevice(N).
1. Сохранение значений камеры и разрешения.
2. При открытии формы, если камера в системе одна, то автоматическое подключение к ней. Автоматический Play()
3. Определение максимального разрешения камеры и подключение с этим разрешением:
МаксимальныйФормат = 0;
МаксимальнаяВысота = 0;
МаксимальнаяШирина = 0;
МаксимальныйБитрейт = 0;
Попытка
Для Ч=0 по ЭлементыФормы.КомпонентаКамеры.GetCountVideoFormat()-1 Цикл
ДанныеФормата = ПолучитьДанныеИзСтроки(ЭлементыФормы.КомпонентаКамеры.GetNameVideoFormat(Ч));
Если ДанныеФормата.Ширина>МаксимальнаяШирина
Или ДанныеФормата.Высота>МаксимальнаяВысота Тогда
МаксимальныйФормат = Ч;
МаксимальнаяВысота = ДанныеФормата.Высота;
МаксимальнаяШирина = ДанныеФормата.Ширина;
МаксимальныйБитрейт = ДанныеФормата.Битрейт;
ИначеЕсли ДанныеФормата.Ширина=МаксимальнаяШирина
И ДанныеФормата.Высота=МаксимальнаяВысота
И ДанныеФормата.Битрейт > МаксимальныйБитрейт Тогда
МаксимальныйФормат = Ч;
МаксимальныйБитрейт = ДанныеФормата.Битрейт;
КонецЕсли;
ЭлементыФормы.СписокФорматов.СписокВыбора.Добавить(Ч,ЭлементыФормы.КомпонентаКамеры.GetNameVideoFormat(Ч));
КонецЦикла;
ЭлементыФормы.СписокФорматов.Значение = МаксимальныйФормат;
ОбработатьВыборФормата();
Исключение
Сообщить("Не удалось определить формат изображения автоматически. Установлен 640х480");
КонецПопытки;
Показать3. Парсинг строки видеоформата (пока работает на всех моих камерах):
Функция ПолучитьДанныеИзСтроки(СтрокаФормат)
МассивФорматов = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрокаФормат, " ");
// методом "научного тыка" выяснил, что разрешение хранится в 10-ом элементе массива. Битрейт в 11-ом
// но из строки разрешения надо еще отдельно выбрать высоту и ширину
МассивРазрешение = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(СтрЗаменить(МассивФорматов[10], ",", ""), "X");
ДанныеФормата = Новый Структура("Ширина, Высота, Битрейт");
ДанныеФормата.Ширина = Число(МассивРазрешение[0]);
ДанныеФормата.Высота = Число(МассивРазрешение[1]);
ДанныеФормата.Битрейт = Число(МассивФорматов[11]);
Возврат ДанныеФормата
КонецФункции
Показать4. В обработке выбора формата прописано изменение размера окна компоненты (чтобы избежать растягиваний)
Процедура ОбработатьВыборФормата()
//Данные по-умолчанию, если определить не удастся
ШиринаИзображения = 640;
ВысотаИзображения = 480;
ЭлементыФормы.КомпонентаКамеры.SetVideoFormat(ЭлементыФормы.СписокФорматов.Значение);
ДанныеФормата = ПолучитьДанныеИзСтроки(ЭлементыФормы.КомпонентаКамеры.GetNameVideoFormat(ЭлементыФормы.СписокФорматов.Значение));
Если Не ДанныеФормата = Неопределено Тогда
ШиринаИзображения = ДанныеФормата.Ширина;
ВысотаИзображения = ДанныеФормата.Высота;
КонецЕсли;
//ЭлементыФормы.КомпонентаКамеры.Ширина = ШиринаИзображения;
ЭлементыФормы.КомпонентаКамеры.Высота = (512/ШиринаИзображения)*ВысотаИзображения; // 512 это ширина окна в конфигураторе
// ширина окна не меняется. Оперируем только высотой
МинимальнаяВысотаФормы = 370; // меньше этой высоты не ставлю т.к. там есть другие элементы
ВысотаСКомпонентой = ЭлементыФормы.КомпонентаКамеры.Высота + 36;
ЭтаФорма.Высота = ?(ВысотаСКомпонентой>МинимальнаяВысотаФормы, ВысотаСКомпонентой, МинимальнаяВысотаФормы);
КонецПроцедуры
ПоказатьПробовал вот такую инструкцию... не помогло
Для х64- Если после регистрации библиотеки все же появляется ошибка в 1с х64 "Класс не зарегистрирован", необходимо зарегистрировать компоненту вручную:
1. Администрирование - Службы компонентов – Компьютеры – Мой компьютер – Приложения COM+ - Создать приложение – Создать новое приложение – вводим имя «WebCamProj1»(переключатель «Серверное приложение») – Указанный пользователь (Администратор)
2. В появившейся ветке WebCamProj1 – подветка Компоненты – создание нового компонента – Импорт уже зарегистрированных компонентов. - Ставим галку "32 разряда" и выбираем из списка - "WebCamProj1.WebCamX"
3. Правой кнопкой по ветке V82COMConnector – Свойства – Безопасность – Снял галку «Принудительная проверка доступа для приложений» - Поставил галку «Применить политику программных ограничений» - Уровень ограничений «Неограниченный»
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
№ 84693
Создание 28.04.11 11:54
Обновление 02.12.13 09:58
Просмотры 64182
Загрузки 922
Рейтинг
167
Комментарии 147
Код открыт Не указано
Рубрики Разработка внешних компонент
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.3
Конфигурация Конфигурации 1cv8
Операционная система Windows
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)