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

20.02.20

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

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
dsWebCam.zip .zip 379,18Kb ver:2.2.1.8 21	21	Скачать (5 SM)	Купить за 3 050 руб.

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

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

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

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

---

2017.02.01

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

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

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

+5 –

См. также

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

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

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

3000 руб.

12.05.2020 29473 140 100

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Платные (руб)

Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome

1500 руб.

17.09.2018 37469 116 128

117

GGraphics - внешняя компонента для работы с картинками jpg (jpeg), png, bmp, gif, tif

Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Платные (руб)

Позволяет автоматизировать работу с картинками. С помощью компоненты можно измерять размер изображений, поворачивать их, наносить водяные знаки, конвертировать из одного формата в другой. Будет очень полезна для интернет-магазинов и всех, кому постоянно требуется работать с различными графическими форматами. Выполнена по технологии NativeAPI. Работает с форматами: jpg (jpeg), png, bmp, gif, tif

3600 руб.

02.09.2010 78295 73 280

191

Asterisk API: внешняя компонента для подключения 1С к телефонии

Разработка внешних компонент Телефония, SIP Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018 47932 125 66

SQLite в 1С

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

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

14.01.2025 3024 bayselonarrend 14

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

Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Бесплатно (free)

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

04.12.2024 5927 kovalevdmv 26

Imagius

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

Внешняя компонента для конвертации PDF файлов в картинки без использования дополнительных программ. Работает на сервере и в тонком клиенте.

2400 руб.

25.06.2024 1438 3 4

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

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

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

19.02.2024 6970 starik-2005 38

Комментарии

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

Свернуть все

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

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

2. 7OH 70 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 70 25.12.18 02:04 Сейчас в теме

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

3. 7OH 70 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 70 28.02.17 23:14 Сейчас в теме

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

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

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

7. 7OH 70 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 70 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 70 05.06.19 15:14 Сейчас в теме

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

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

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

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

(14)

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

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

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

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

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

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

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

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

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

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

Показать

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

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

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

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

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

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

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

(20) Сделано

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

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

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

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

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

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

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

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

Оставьте свое сообщение

E-mail:

Автор:

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

Рейтинг: 70

Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот

Публикация:

№ 559716

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

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

Статистика:

Просмотры 13857

Загрузки 21

Рейтинг 5

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

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

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

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

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

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

Платформа Платформа 1С v8.3

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

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

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

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

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

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

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