Фотография с камеры через DirectX

20.02.20

Разработка - Разработка внешних компонент

Компонента для получения фотографии с WEB-камеры с использованием DirectX

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
dsWebCam.zip .zip 379,18Kb ver:2.2.1.8 21	21	4 200 руб. Купить	5 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

Часто встречал на сайте компоненты для получения изображения с камеры.

Но основная часть использует для подключения к камере виндовую библиотеку AVICAP.DLL, которая в последних версиях Windows работает далеко не лучшим образом (если вообще работает). Лично у меня частенько был видел только зелёный экран.

Решил переписать получение фотки с использованием DirectX.

Использование в аттаче.

---

2017.02.01

Доделал, чтобы возвращало сразу двоичные данные - больше не надо что-то кодировать после получения.

Также добавлен метод для наложения водяного знака (см. использование).

Вступайте в нашу телеграмм-группу Инфостарт

компонента камера водяной знак watermark

+5 –

См. также

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

5084 руб.

12.05.2020 34677 147 100

103

Внешняя нативная компонента xls21c для чтения XLS/XLSX файлов

Разработка внешних компонент Программист 1С:Предприятие 8 Бесплатно (free)

Нативная внешняя компонента для 1С 8 для чтения файлов Excel без установленного Excel и делает это быстро, файл 68МБ загружается в таблицу значений ~1 секунду. Компонента поддерживает чтение двух форматов: Excel 2007+ и Excel 97-2003 Формат файла определяется автоматически по сигнатуре (первые 8 байт файла), а не по расширению. Позволяет открывать XLS и XLSX файлы и получать содержимое листов в виде ТаблицыЗначений или JSON-массива.

03.07.2026 1876 skyadmin 31

BPMN в 1С: Подключаем bpmn-js через WebKit

Разработка внешних компонент Программист 1С 8.3 Бесплатно (free)

В современных корпоративных решениях на платформе 1С:Предприятие 8.3 всё чаще возникает потребность в визуальном моделировании и автоматизации бизнес-процессов с использованием нотации BPMN 2.0. Стандартные средства платформы не предоставляют полноценного редактора BPMN, однако интеграция открытой библиотеки bpmn-js позволяет реализовать интерактивное моделирование бизнес-процессов непосредственно в 1С. В статье рассмотрены архитектура решения, пошаговая инструкция по сборке библиотеки из исходников для WebKit, а также примеры программного взаимодействия между 1С и JavaScript.

03.04.2026 3800 SultanovStas 8

NativeAPI + Python: простой путь к расширению 1С

Разработка внешних компонент Программист 1С 8.3 Россия Бесплатно (free)

Создать NativeAPI-компоненту для Python-скриптов? Это просто!

20.10.2025 10543 IlyaKuznetsov 10

SQLite в 1С

Разработка внешних компонент Системный администратор Программист Стажер Бесплатно (free)

Библиотека для работы с базами SQLite из 1С на основе внешней компоненты. Для Linux и Windows, бесплатно и с открытым исходным кодом!

14.01.2025 7819 bayselonarrend 17

Конструктор внешних компонент 1C (native API)

Разработка внешних компонент Программист 1С:Предприятие 8 Россия Бесплатно (free)

В статье описывается приложение-конструктор внешних компонент (native API). Конструктор упрощает процесс разработки за счет удобного добавления всех нужных функций и процедур в графическом режиме, с указанием их параметров и типов параметров. На выходе приложение генерирует готовый код на С++ и Rust и позволяет сразу приступить к реализации, без настройки API компоненты вручную.

04.12.2024 13327 kovalevdmv 29

Внешняя компонента 1С и С++. Продолжаем разговор.

Разработка внешних компонент Программист 1С:Предприятие 8 Бесплатно (free)

А давайте запилим 8.3.26 до релиза, или оповещение с сервера...

19.02.2024 12870 starik-2005 39

Внешние компоненты 1С и язык C++

Разработка внешних компонент Механизмы платформы 1С Программист Стажер 1С:Предприятие 8 Бесплатно (free)

Некоторые практические аспекты создания внешних компонент на языке С++ для платформы 1С 8.3++.

26.01.2024 13041 starik-2005 40

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. premierex 208 05.11.16 19:32 Сейчас в теме

(0) Автор, поправьте, пожалуйста, в названии понятие "вёб" на одно из общепринятых понятий: веб, вэб (или используйте его англоязычное написание /web/). Честно говоря, непривычно как-то. А так - тема интересная. Direct-X (DirectShow - это как раз тот набор компонентов, позволяющий работать с видео-потоками) - на данный момент, как мне кажется, самый функциональный набор решений для работы с ними в OS Windows.
Цена компоненты несколько завышена (imho). Есть более функциональные компоненты для работы с web-камерами, размещёнными на infostart.ru.

2. 7OH 90 05.11.16 20:47 Сейчас в теме

(1) premier, сейчас поправлю и описание и цену понижу.

Пример кода
Функция КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор) // Функция принимает изображение в base64 формата BMP. ДвоичныеДанные = Base64Значение(стрКартинка); // Получаем двоичные данные. мКартинка = Новый Картинка(ДвоичныеДанные, Ложь); // Создаем картинку мКартинкаСжатая = мКартинка.Преобразовать(ФорматКартинки.PNG); // Преобразование в PNG но оно ни как не влияет мАдресИзображения = ПоместитьВоВременноеХранилище(мКартинкаСжатая, УникальныйИдентификатор); // Поместить ссылку в реквизит формы Возврат мАдресИзображения; КонецФункции ..... //Получение данных резПодключения = ПодключитьВнешнююКомпоненту(АдресМакетКамера, "Компоненточка", ТипВнешнейКомпоненты.Native); Компонента = Новый("AddIn.Компоненточка.dsWebCam"); ВерсияДрайвера = Компонента.Версия; //Список камер возвращается строкой через разделитель строки рез = Компонента.СписокКамер(); муСтр = Новый ТекстовыйДокумент; муСтр.УстановитьТекст(рез); dsWebCam.ИмяКамеры = муСтр.ПолучитьСтроку( 0 ); dsWebCam.Старт(); Если dsWebCam.Успех Тогда стрКартинка = dsWebCam.стрКартинка; Если Не стрКартинка = Неопределено Тогда // Вызовем процедуру преобразующую base64 в картинку PNG АдресWebКартинкиХ = КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор); КонецЕсли; КонецЕсли; Показать

Пример кода

Функция КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор)
    
    // Функция принимает изображение в base64 формата BMP.
    ДвоичныеДанные        = Base64Значение(стрКартинка); // Получаем двоичные данные.
    мКартинка             = Новый Картинка(ДвоичныеДанные, Ложь);  // Создаем картинку
    мКартинкаСжатая     = мКартинка.Преобразовать(ФорматКартинки.PNG); // Преобразование в PNG но оно ни как не влияет
    мАдресИзображения    = ПоместитьВоВременноеХранилище(мКартинкаСжатая, УникальныйИдентификатор); // Поместить ссылку в реквизит формы
    
    Возврат мАдресИзображения;
    
КонецФункции

.....

//Получение данных

резПодключения = ПодключитьВнешнююКомпоненту(АдресМакетКамера, "Компоненточка", ТипВнешнейКомпоненты.Native);
Компонента = Новый("AddIn.Компоненточка.dsWebCam");
ВерсияДрайвера    = Компонента.Версия;

//Список камер возвращается строкой через разделитель строки

рез = Компонента.СписокКамер();

муСтр = Новый ТекстовыйДокумент;
муСтр.УстановитьТекст(рез);

dsWebCam.ИмяКамеры = муСтр.ПолучитьСтроку( 0 );           
dsWebCam.Старт();
    
Если dsWebCam.Успех Тогда
        
      стрКартинка = dsWebCam.стрКартинка;
        
       Если Не стрКартинка = Неопределено Тогда
            
              // Вызовем процедуру преобразующую base64 в картинку PNG
              АдресWebКартинкиХ            = КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор);
         
       КонецЕсли;
        
КонецЕсли;

Показать

11. D_E_S131 5 20.12.18 14:57 Сейчас в теме

А что в примере (2) за переменная (или реквизит формы) "dsWebCam"?

12. 7OH 90 25.12.18 02:04 Сейчас в теме

(11) верно подметили - там должно быть Компонента

3. 7OH 90 01.02.17 17:18 Сейчас в теме

Добавлен метод наложения водяного знака.

СтрокаОригинал = Base64Строка(Данные1.ПолучитьДвоичныеДанные());
СтрокаВодяной   = Base64Строка(Данные2.ПолучитьДвоичныеДанные());
		
Положение = 5; // 1 - 9 
Прозрачность = 80; //1-100
двДанныеРезультат = dsWebCam.ДобавитьВодянойЗнак(СтрокаОригинал, СтрокаВодяной, Положение, Прозрачность);

Показать

4. user702269_vabuyak 28.02.17 16:59 Сейчас в теме

ребята на 1с 8.3 и Server 2012 R2 работать будет?

5. 7OH 90 28.02.17 23:14 Сейчас в теме

У нас 2012 и 8.3.9, но это на сервере - всё работает.
На клиентах - от 7-ки до 10-ки.
На ХР тоже проблем нет.

6. Tanenok 05.05.17 14:46 Сейчас в теме

Подойдет для УТ 11?

7. 7OH 90 05.05.17 21:20 Сейчас в теме

(6) Да, конечно.
У нас УТ 3.1.2 (Украина - аналог УТ 11).
Нативные компоненты появились ещё в 8.2, так что должно работать в большинстве конфигураций.

8. пользователь 08.05.17 10:36

Сообщение было скрыто модератором.

...

9. LtNas 09.05.17 13:59 Сейчас в теме

Я конечно дико извиняюсь, но где описание??? (см.использование) ???? В аттаче только dll и manifest

10. 7OH 90 09.05.17 20:26 Сейчас в теме

(9) пост 2 и 3.
В шапку код не пропустили без спойлера, а спойлер туда не ставится - пришлось отдельным постом делать.

13. nsirotkin@mail.ru 76 05.06.19 09:58 Сейчас в теме

Скачал компоненту. Окно с видео открывается, но в результате dsWebCam.Успех=Ложь Win7Sp1 (1C 8.3.14.1630), версия dll 2.2.1.6.
Что еще можно посмотреть/сделать?

ps: Тестовую обработку было бы полезно приложить в архив для скачивания... Версии x64 нет/не будет?
upd: убрал макет с компонентой

Прикрепленные файлы:

ТестWebКамера3.epf

14. 7OH 90 05.06.19 15:14 Сейчас в теме

(13) в вашей обработке немного можно подправить код
Функция КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор)
в стрКартинка уже двоичные данные приходят (если нет - постучите в личку).
--
В целом проверил - работает.
directX установлен ?

15. nsirotkin@mail.ru 76 06.06.19 05:07 Сейчас в теме

(14) С новой компонентой (2.2.1.8) работает нормально. Спасибо.

16. ИНТЕГРА 27 17.10.19 17:43 Сейчас в теме

(14)

е приходят (если нет - постучите в личку)

Мне не приходят )

После вызова: dsWebCam.Старт(), открывается видео-окно, в нем нажимаю "сфотографировать" и далее по условию не проходит (Если dsWebCam.Успех Тогда ... ):
dsWebCam.Успех == Ложь

Подскажите в чем может быть проблема?

PS:
32бит, 8.3.12.1529. На более новых платформах не тестировал.
виртуальне веб камеры, вечером дома попробую на "железной" - отпишусь.

17. 7OH 90 17.10.19 18:56 Сейчас в теме

(16) не в курсе , что это за камеры.
Успеха нет видимо потому, что не выходит вывод с этой камеры из BMP в JPG запихнуть.
Опять же - с обычными камерами работает.
С пробросом в РДП средствами винды тоже работает.
От версии 1С не зависит - работает и на 8.3.15.1700.
Тут что-то специфическое в виртуальности.

18. ИНТЕГРА 27 17.10.19 22:15 Сейчас в теме

(17) проверил на железной камере, на другой конфигурации ПК - результат тот-же :(
Видео с камеры транслируется. Но в строку ничего не приходит:

&НаКлиенте
Функция ПодключитьКамеру(ID) Экспорт
    Если Не ПроинициализироватьКомпоненту() Тогда
        Возврат НСтр("ru= 'Компонента не установлена'");
    КонецЕсли;
	dsWebCam.ИмяКамеры = ID;
	dsWebCam.Старт();
	
	Если dsWebCam.Успех Тогда
        
      стрКартинка = dsWebCam.стрКартинка;
      сообщить(dsWebCam.стрКартинка);  
      Если Не стрКартинка = Неопределено Тогда	            
          АдресКартинки = КартинкаИзСтроки(стрКартинка, УникальныйИдентификатор);	         
	  КонецЕсли;
  иначе
	  сообщить("Ничего не пришло") /// *** валится сюда *** ///
   КонецЕсли;
	   
КонецФункции

Показать

Возможно кокой-то "Дельфийской" компоненты не хватает. Конвертация BMP->JPG каким методом происходит? Эксепшены посмотреть нигде нельзя в логах каких-нибудь?

Прикрепленные файлы:

19. ИНТЕГРА 27 17.10.19 23:36 Сейчас в теме

(18)Автор прислал новую версию - все получилось. Спасибо ему за это!
(обещал обновить в публикации)

20. ratter 6 20.02.20 07:59 Сейчас в теме

Дорогой автор, обновите, пожалуйста, здесь компоненту.
У меня в точности проблема как в (13) .

21. 7OH 90 20.02.20 10:22 Сейчас в теме

(20) Сделано

22. qwinter 686 15.01.21 14:26 Сейчас в теме

компонента умеет сохранять видео?

23. 7OH 90 15.01.21 15:11 Сейчас в теме

(22) нет.
не было необходимости.
Основной посыл - текст QR, ну и как доп функционал - сохранение фото с этими QR.
Видео то зачем ?

24. comptr 57 21.07.21 21:18 Сейчас в теме

Будет ли работать компонента на x64 платформе?

25. 7OH 90 21.07.21 23:07 Сейчас в теме

(24) походу нет.
Для 64 не пробовал силы ещё

Для отправки сообщения требуется регистрация/авторизация

Автор:

Семён Павлюков (7OH)

Рейтинг: 90

Вы можете заказать платную консультацию или разработку у автора. Будет создан приватный заказ на «Бирже заказов» для автора.

Публикация:

№ 559716

Создание 04.11.16 23:21

Обновление 20.02.20 10:21

Статистика:

Просмотры 15066

Загрузки 21

Рейтинг 5

Комментарии 24

Характеристики:

Код открыт Нет

Рубрики Разработка внешних компонент

Кому Программист

Тип файла Архив с данными

Платформа 1С:Предприятие 8

Конфигурация Универсальные

Операционная система Windows

Страна Не имеет значения

Отрасль Не имеет значения

Налоги Не имеет значения

Вид учета Не имеет значения

Доступ к файлу Абонемент ($m)

Фотография с камеры через DirectX

Файлы

См. также

Журнал

База знаний

Лаборатория

Анализ & Управление

Сопровождение 1С

Корпоративные решения

Обучение

Маркетплейс

Проектный офис

Мероприятия

Видеозаписи

Биржа заказов

Форум

Мерч

О компании