Искал нормальную компоненту без .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 руб. |
См. также
Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Платные (руб)
Позволяет автоматизировать работу с картинками. С помощью компоненты можно измерять размер изображений, поворачивать их, наносить водяные знаки, конвертировать из одного формата в другой. Будет очень полезна для интернет-магазинов и всех, кому постоянно требуется работать с различными графическими форматами. Выполнена по технологии NativeAPI. Работает с форматами: jpg (jpeg), png, bmp, gif, tif
3600 руб.
02.09.2010 77788 73 257
Разработка внешних компонент Программист Платформа 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 29081 139 100
Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Платные (руб)
Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome
1500 руб.
17.09.2018 37132 115 128
Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия 1С:Управление торговлей 11 Платные (руб)
Внешняя компонента для конвертации PDF файлов в картинки без использования дополнительных программ. Работает на сервере и в тонком клиенте.
2400 руб.
25.06.2024 1317 3 4
Разработка внешних компонент Системный администратор Программист Стажер Бесплатно (free)
Библиотека для работы с базами SQLite из 1С на основе внешней компоненты. Для Linux и Windows, бесплатно и с открытым исходным кодом!
14.01.2025 2639 bayselonarrend 14
Разработка внешних компонент Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Бесплатно (free)
В статье описывается приложение-конструктор внешних компонент (native API). Конструктор упрощает процесс разработки за счет удобного добавления всех нужных функций и процедур в графическом режиме, с указанием их параметров и типов параметров. На выходе приложение генерирует готовый код на С++ и Rust и позволяет сразу приступить к реализации, без настройки API компоненты вручную.
04.12.2024 5401 kovalevdmv 26
Разработка внешних компонент Программист Платформа 1С v8.3 Бесплатно (free)
А давайте запилим 8.3.26 до релиза, или оповещение с сервера...
19.02.2024 6602 starik-2005 38
Разработка внешних компонент Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 Бесплатно (free)
Некоторые практические аспекты создания внешних компонент на языке С++ для платформы 1С 8.3++.
26.01.2024 7841 starik-2005 40
Инициализация:
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
Просмотры 65391
Загрузки 926
Рейтинг
167
Комментарии 147
Код открыт Не указано
Рубрики Разработка внешних компонент
Кому Для всех
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.3
Конфигурация 1C:Бухгалтерия
Операционная система Windows
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
