Искал нормальную компоненту без .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. В этой обработке показано как можно работать с этой компонентой.
Желаю удачи! Не забываем ставить плюсы и коментить :)
Скачать файл
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Наименование | По подписке [?] | Купить один файл | |
---|---|---|---|
WebCamX.rar
.rar 298,03Kb
650
|
650 | Скачать (1 SM) | Купить за 1 850 руб. |
WebCamX2.rar
.rar 303,56Kb
276
|
276 | Скачать (1 SM) | Купить за 1 850 руб. |
См. также
Разработка внешних компонент 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 и маркетинг Управленческий учет Платные (руб)
Медиадисплей покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Экран можно использовать в качестве графического меню-борда в кафе и видеовывески. В качестве устройства отображения можно использовать Android-планшеты, смарт-телевизоры с Android, мониторы или проекторы под управлением Windows или Linux-компьютера. Linux-версия успешно запускается на одноплатных компьютерах Raspberri Pi и Orange Pi. Настраивается ЛЮБОЙ ДИЗАЙН экрана при помощи встроенного графического редактора! Решение можно масштабировать от одного экрана до тысяч экранов с централизованным управлением.
18000 руб.
30.05.2017 54058 9 69
Разработка внешних компонент Программист Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление торговлей 11 Платные (руб)
Внешняя компонента для конвертации PDF файлов в картинки без использования дополнительных программ. Работает на сервере и в тонком клиенте.
2400 руб.
25.06.2024 1139 3 4
Разработка внешних компонент Телефония, SIP Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)
Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)
2400 руб.
04.05.2018 47325 124 66
Разработка внешних компонент Программист Платформа 1С v8.3 Платформа 1C v8.2 Платные (руб)
Внешняя компонента, позволяющая посылать команды и получать ответы по GraphQL протоколу из 1С.Может быть использована при интеграции. В 1С работает на стороне "клиента".
4600 руб.
27.06.2023 3614 3 0
Разработка внешних компонент Программист Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)
Позволяет автоматизировать работу с картинками. С помощью компоненты можно измерять размер изображений, поворачивать их, наносить водяные знаки, конвертировать из одного формата в другой. Будет очень полезна для интернет-магазинов и всех, кому постоянно требуется работать с различными графическими форматами. Выполнена по технологии NativeAPI. Работает с форматами: jpg (jpeg), png, bmp, gif, tif
3600 руб.
02.09.2010 77527 72 257
Разработка внешних компонент Программист Платформа 1С v8.3 Конфигурации 1cv8 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 Платные (руб)
Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).
3000 руб.
12.05.2020 28706 138 100
Разработка внешних компонент Системный администратор Программист Стажер Бесплатно (free)
Библиотека для работы с базами SQLite из 1С на основе внешней компоненты. Для Linux и Windows, бесплатно и с открытым исходным кодом!
14.01.2025 2113 bayselonarrend 14
Разработка внешних компонент Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Бесплатно (free)
В статье описывается приложение-конструктор внешних компонент (native API). Конструктор упрощает процесс разработки за счет удобного добавления всех нужных функций и процедур в графическом режиме, с указанием их параметров и типов параметров. На выходе приложение генерирует готовый код на С++ и Rust и позволяет сразу приступить к реализации, без настройки API компоненты вручную.
04.12.2024 4775 kovalevdmv 26
Инициализация:
Device = СоздатьОбъект("WIA.DeviceManager");
CamDevice = Device.DeviceInfos(1).Connect();
Video = СоздатьОбъект("АктивИкс");
Video.УстановитьАтрибут(Форма, "АктХ");
Video.СоздатьЭУ("WIA.VideoPreview");
Video.УстановитьФокус();
Фото:
Dev = Video.Объект.Device;
Item = Dev.ExecuteCommand("{AF933CAC-ACAD-11D2-A093-00C04F72DC3C}");
Image = Item.Transfer("{557CF401-1A04-11D3-9A73-0000F81EF32E}");
Image.SaveFile(ФотоФайл);
Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
УдалитьФайлы("c:\Documents and Settings\All Users\Application Data\Microsoft\WIA");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Image = Новый COMОбъект("WIA.ImageFile");
DevManager = Новый COMОбъект("WIA.CommonDialog");
Попытка
Image = DevManager.ShowAcquireImage();
ИмяФайла = ПолучитьИмяВременногоФайла();
Image.SaveFile(ИмяФайла);
Кар=Новый Картинка(ИмяФайла);
ЭлементыФормы.ПолеКартинки1.Картинка=Кар;
Исключение
//
КонецПопытки;
КонецПроцедуры
P.S.пробывал через WIA.Devicemanager - пишет что не видит ни одну камеру (камера на ноуте встроенная), ОС Windows 7.
пример кода -
ВременныйФайл = ПолучитьИмяВрФайла();
Device = Новый COMОбъект("WIA.DeviceManager");
Сообщить(Device);
DevCount = Device.DeviceInfos.Count;
Сообщить(DevCount);
Image = Новый COMОбъект("WIA.ImageFile"); //создаем объект "Изображения" в WIA для дальнейшей работы с ним
Сообщить(Image);
DevManager = Новый COMОбъект("WIA.CommonDialog"); //а это диалог сканирования
//DevManager.ShowSelectDevice(,Истина);
Если DevCount>1 Тогда
Image = DevManager.ShowAcquireImage(,,,,Истина); //записываем сканированное изображение
Иначе
Image = DevManager.ShowAcquireImage();
КонецЕсли;
IFP = Новый COMОбъект("WIA.ImageProcess"); //создаем фильтр для сохранения изображения
IFP.Filters.Add(IFP.FilterInfos("Convert").FilterID);
IFP1 = IFP.Filters(1);
Для К = 1 По IFP1.Properties.Count Цикл
Если IFP1.Properties(К).Name = "FormatID" Тогда
IFP1.Properties(К).Value = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"; //конвертируем в PNG
Прервать;
КонецЕсли;
КонецЦикла;
Image = IFP.Apply(Image); //применяем фильтр на изображение
Image.SaveFile(ВременныйФайл);
В windows 7 не хочет работать, библиотека регистрируется, но при вызове обработки пишет "{ВнешняяОбработка.CamX.Форма.Форма.Форма(3)}: Метод объекта не обнаружен (GetCountDivice)
Кол=ЭлементыФормы.WebCam.GetCountDivice();"
Такое ощущение, что не хватает какого-то драйвера, кто-нибудь встречался с таким?
P.S. надо религию придумать с тезисами типа "Нерасходящийся баланс" и "Милость налоговая по отношению к мученикам-бухгалтерам". И налоги потом не платить и на государство плевать.
Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
.......................
ПолноеИмяФайла = РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);
{Обработка.CamX.Форма.Форма.Форма(14,19)}: Переменная не определена (РаботаСФайлами)
ПолноеИмяФайла = <<?>>РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);
Что не так? Компонента зарегистрирована!
"ПолноеИмяФайла = РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);" и все будет работать. Вот держи, уже с убранной строкой!
DevManager = Новый COMОбъект("WIA.CommonDialog");
Попытка
Image = DevManager.ShowAcquireImage();
ИмяФайла = ПолучитьИмяВременногоФайла();
Image.SaveFile(ИмяФайла);
Как камеру в даном случае подключить? А то сканер цепляется.
в управляемом приложении нет возможности создать элементы типа АктивИкс
Есть...
Если есть обходной путь (скриншот области формы или что еще) - буду рад.
[+] [−]
У меня аналогичная проблема.
Только нет никаких Веб-браузеров, тупое заявление, что метод SaveBitmapToFile не найден.
WebCam=СоздатьОбъект("WebCamProj1.WebCamX");
WebCam.SetDevice(0);
WebCam.SaveBitmapToFile("d:\WebCam.jpg", 2, 30);
Результат=Браузер.Объект.document.webCam1.SaveBitmapToFile("c:\test1.jpg",2,80);
Результат=Браузер.Объект.document.webCam2.SaveBitmapToFile("c:\test2.jpg",2,80);
т(с испо
Удалось разрулить. У меня на форме объект WebBrowser, в нем HTML-страничка, на страничке два контрола <object> с содержимым WebCamX. Из тела страницы яваскриптом сохранение не хочет идти, видимо действительно есть какое-то ограничение по безопасности браузера. Путем долгих экспериментов удалось найти рабочий вариант, с сохранением из 1С77:
Результат=Браузер.Объект.document.webCam1.SaveBitmapToFile("c:\test1.jpg",2,80);
Результат=Браузер.Объект.document.webCam2.SaveBitmapToFile("c:\test2.jpg",2,80);
А можно пример у вас взять для управляемого приложения, очень надо.
В HTML-документе вставил типа:
<object id="webCam" classid="clsid:86EBC08A-0E46-4EC8-A702-0AA0BE57D8EE" style="width:320px; height:240px;"></object>
В коде 1С:
Думаю, что для режима управляемого приложения, если рассчитывать на массовое использование без изменения настроек браузера, будет правильнее использовать решение на Flash. Я пробовал, получалось всё замечательно, но локальное сохранение работает долго, для быстрого - необходимо формировать POST-запрос к веб-серверу с передачей "сырого" изображения, и уже в серверной части производить сохранение. Я брал пример отсюда
Это конечно хорошая попытка, но как писали выше работать с чем угодно (сканер, камера, веб-камера) довольно просто через WIA, и не нужно регистрировать дополнительные компоненты ActivX.
Пробывал я, но увы новые веб камеры уже не имеют WIA. Вот у меня к примеру встроеная веб-камера, и вот только через эту компоненту мне удалось ее подключить. Кому интересно могу дать пример обработки на управляемой форме.
Скажите пожалуйста можно ли протестировать Вашу обработку ActiveX компонента WebCamX для работы с веб-камерой", возможности скачать у меня к сожалению пока нету, если возможно и вас не затруднит выслать обработку мне на почту: seron@inbox.ru
Спасибо, буду очень благодарен
выдало ошибку.
Возможно ли:
1. делать перемотку видео файла вперед назад
2. делать снимки с отснятого видео
Если да - то подскажите как это сделать
Процедура ПослеОткрытия()
ВебКамера = СоздатьОбъект("АктивИкс");
ВебКамера.УстановитьАтрибут(Форма, "АктХ");
ВебКамера.СоздатьЭУ("WebCamProj1.WebCamX");
ВебКамера.УстановитьФокус();
ВебКамера.Объект.SetDevice(0);
ВебКамера.Объект.Play();
КонецПроцедуры
Процедура Снимок()
ИмяФайла = "d:\WebCam.jpg";
Попытка
Ок=ВебКамера.Объект.SaveBitmapToFile(ИмяФайла, 2, 30); //(Путьсохфайла, 1-BMP 2-JPG 3-PNG, качество JPG(0-100) PNG(0-9))
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Процедура ПриЗакрытии()
ВебКамера.Объект.Stop();
ВебКамера.Уничтожить();
КонецПроцедуры
Показатьеще вопрос а у компоненеты VideoGraberX есть возможность сохранение фото?(85)
А если серьезно - то такую задачу способны выполнять только весьма дорогие системы видеонаблюдения, да я и сам бы не поверил что такое возможно в принципе если бы не столкнулся с ними по работе.
Для получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
№ 84693
Создание 28.04.11 11:54
Обновление 02.12.13 09:58
Просмотры 65224
Загрузки 926
Рейтинг
167
Комментарии 147
Код открыт Не указано
Рубрики Разработка внешних компонент
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.3
Конфигурация Конфигурации 1cv8
Операционная система Windows
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)