ActiveX компонента WebCamX для работы с веб-камерой!

Опубликовал Сергей Садыхов (SerG_121) в раздел Программирование - Внешние компоненты

Искал нормальную компоненту без .NET для работы с Web-камерой, нашел одну, но она платная.
Тогда я решил сделать свою ActiveX.
Моя компонента умеет:
1. - Получать изображение с камеры.
2. - Писать видео с камеры в файл, в формате (*.asf).
3. - Делать снимок с камеры и сохранять в файл, в форматах (*.bmp; *.jpg; *.png).
4.- Умеет проигрывать видео.

Для начало работы необходимо зарегистрировать компоненту в системе. Например:
regsvr32 "Полный путь к файлу WebCamX.ocx"

Так же имеется обработка пример для 1с8.2. В этой обработке показано как можно работать с этой компонентой.
Желаю удачи! Не забываем ставить плюсы и коментить :)

Искал нормальную компоненту без .NET для работы с Web-камерой, нашел одну, но она платная.
Тогда я решил сделать свою ActiveX.
Моя компонента умеет:
1. - Получать изображение с камеры.
2. - Писать видео с камеры в файл, в формате (*.asf).
3. - Делать снимок с камеры и сохранять в файл, в форматах (*.bmp; *.jpg; *.png).
4.- Умеет проигрывать видео.

Для начало работы необходимо зарегистрировать компоненту в системе. Например:
regsvr32 "Полный путь к файлу WebCamX.ocx"

Так же имеется обработка пример для 1с8.2. В этой обработке показано как можно работать с этой компонентой.
Желаю удачи! Не забываем ставить плюсы и коментить :)

Скачать файлы

Наименование Файл Версия Размер
WebCamX.rar
.rar 298,03Kb
02.12.13
594
.rar 298,03Kb 594 Скачать
WebCamX2.rar
.rar 303,56Kb
02.12.13
176
.rar 303,56Kb 176 Скачать

См. также

Комментарии
1. Алексей Константинов (alexk-is) 6098 28.04.11 12:11 Сейчас в теме
(0) На такой маленький текст 10 ошибок :(
2. Сергей Садыхов (SerG_121) 431 28.04.11 12:16 Сейчас в теме
(1) :D Да, невнимательный и в торопях писал!Все исправил можно перечитать )))
3. Ваня (zk96) 28.04.11 14:53 Сейчас в теме
Интересно. Попробую прикрутить к 7.7
4. Сергей Садыхов (SerG_121) 431 28.04.11 15:00 Сейчас в теме
(3)Дерзай, должно получиться! :)
5. Виктор Шестаков (wolder) 100 28.04.11 16:08 Сейчас в теме
Ещё бы транслирование on-line для других пользователей было. Вот было бы здорово! :)
6. Сергей Садыхов (SerG_121) 431 28.04.11 16:13 Сейчас в теме
(5)Покупай ip Камеру и можно транслировать и управлять ею :)
7. Александр Медведев (anig99) 2500 28.04.11 16:15 Сейчас в теме
(5) http://rumlin.narod.ru/WME.htm - вот что-то подобное на машине с камерой (без участия 1с), на клиентских машинах просто проигрывать видео в 1с (через эту компоненту или через тот же miracle)
8. Александр Медведев (anig99) 2500 28.04.11 16:23 Сейчас в теме
(6) я вот тоже себе домой хочу wifi ip камеру...
9. Сергей Садыхов (SerG_121) 431 28.04.11 16:24 Сейчас в теме
10. Олег Пономаренко (O-Planet) 6661 28.04.11 21:07 Сейчас в теме
А на чем это? А код как посмотреть? Точнее, нет: как можно заинтересовать автора, чтобы посмотреть код? :) Сигнал с камеры через winapi функции ловится?
11. Сергей Садыхов (SerG_121) 431 28.04.11 21:38 Сейчас в теме
12. Олег Пономаренко (O-Planet) 6661 28.04.11 21:53 Сейчас в теме
(11) Хочу использовать в своей разработке одной, но нужно доработать функционал.
13. Сергей Садыхов (SerG_121) 431 28.04.11 21:58 Сейчас в теме
(12)В инете полно примеров реализации сигнала с камеры через WinAPI!!!!
14. Андрей Мухин (Muhin555) 12 28.04.11 22:47 Сейчас в теме
В 8.1 работает!!! Проверено!!!
Прикрепленные файлы:
CamX81.epf
15. Ваня (zk96) 29.04.11 01:29 Сейчас в теме
Класс! В 7.7 прекрасно работает(с использованием 1С++). Спасибо. Прикольно получилось.
Теперь осталось придумать для чего его испоьзовать :D
16. Сергей Садыхов (SerG_121) 431 29.04.11 01:31 Сейчас в теме
17. Александр Медведев (anig99) 2500 29.04.11 09:05 Сейчас в теме
(15) фотография посетителей для СКУД системы, фотографии для пропусков, фотографии для справочника физ.лица
18. Александр Зубцов (iov) 359 29.04.11 09:39 Сейчас в теме
(18) или регистрации факта передачи товара например или фото покупателя в кассе или фото буха при схождении "благодатного" баланса.

P.S. надо религию придумать с тезисами типа "Нерасходящийся баланс" и "Милость налоговая по отношению к мученикам-бухгалтерам". И налоги потом не платить и на государство плевать.
19. sound sound (sound) 520 30.04.11 15:50 Сейчас в теме
Набросал обработку для сохранения в справочник "Физические лица"
Прикрепленные файлы:
ФотоФизЛиц.epf
20. Алексей Роза (DoctorRoza) 30.04.11 20:29 Сейчас в теме
У меня вылетает ошибка .. 8.2
Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
.......................
ПолноеИмяФайла = РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);

{Обработка.CamX.Форма.Форма.Форма(14,19)}: Переменная не определена (РаботаСФайлами)
ПолноеИмяФайла = <<?>>РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);

Что не так? Компонента зарегистрирована!
21. Сергей Садыхов (SerG_121) 431 01.05.11 08:04 Сейчас в теме
(20)В модуле (РаботаСФайлами) не находит функцию (УдалитьЗапрещенныеСимволыИмени), или просто нет модуля . можно просто убрать эту строку:
"ПолноеИмяФайла = РаботаСФайлами.УдалитьЗапрещенныеСимволыИмени(ПолноеИмяФайла);" и все будет работать. Вот держи, уже с убранной строкой!
Прикрепленные файлы:
CAMX.epf
22. Сергей Садыхов (SerG_121) 431 01.05.11 08:11 Сейчас в теме
(19) Похвально :), уже свои обработки выкладывают с применением моей компоненты :)
23. sound sound (sound) 520 01.05.11 08:43 Сейчас в теме
(22) это даже не свои, просто переделанная обработка в (0) + мысли из (17), а уж техники то нам не занимать :)
СвитайлоВладимир; +1 Ответить 1
24. Сергей Садыхов (SerG_121) 431 01.05.11 09:42 Сейчас в теме
25. sound sound (sound) 520 03.05.11 09:39 Сейчас в теме
(24) думаю, можно даже (19) в (0) прилепить в качестве примера, не делать же отдельную публикация из-за 3-х строк кода :), а так хоть возможно польза кому-то будет.
26. sound sound (sound) 520 03.05.11 09:40 Сейчас в теме
А кстати оно в png умеет сразу сохранять?
27. Сергей Садыхов (SerG_121) 431 03.05.11 11:20 Сейчас в теме
(26)Как сразу? Устанавливаешь параметры в функции и сохраняешь.
Например:
//SaveBitmapToFile(Путьсохфайла, 1-BMP 2-JPG 3-PNG, качество JPG(0-100) сжатие у PNG(0-9))
ЭлементыФормы.WebCam.SaveBitmapToFile("C:\Снимок.png", 3, 9);
28. sound sound (sound) 520 03.05.11 11:24 Сейчас в теме
Чо-то я не нашел в описании такого :) Или это в примере было? В общем описание бы подправить чтоли
29. Сергей Садыхов (SerG_121) 431 03.05.11 12:07 Сейчас в теме
(28)Есть в обработке примере )
30. sound sound (sound) 520 03.05.11 12:11 Сейчас в теме
(29) не, так не канает, а если я хочу сам что-то написать? Нельзя так руки связывать :)
31. Сергей Садыхов (SerG_121) 431 03.05.11 12:41 Сейчас в теме
(30)Что-то я тебя не пойму! Что не канает?
32. sound sound (sound) 520 03.05.11 13:28 Сейчас в теме
(31) понимаешь хочется ведь не лазить по исходникам, чтобы понять как оно работает, а чтоб была readme, и чтоб там было написано:
SaveBitmapToFile и описания всех параметров и как оно работает
33. Meatgrinder (4rtehouse) 04.05.11 12:15 Сейчас в теме
Еще вебкамерой можно управлять через WIA (Windows Image Acquisition), если поддержка (у камеры) есть. У меня работает примерно так:

Инициализация:
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(ФотоФайл);
Varies; Elisy; +2 Ответить 1
34. Сергей Садыхов (SerG_121) 431 04.05.11 15:56 Сейчас в теме
(33)Можно и так ) А можно и вот так ) я так раньше делал ))) но захотелось большего )

Процедура КнопкаВыполнитьНажатие(Кнопка)
Попытка
УдалитьФайлы("c:\Documents and Settings\All Users\Application Data\Microsoft\WIA");
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
Image = Новый COMОбъект("WIA.ImageFile");
DevManager = Новый COMОбъект("WIA.CommonDialog");
Попытка
Image = DevManager.ShowAcquireImage();
ИмяФайла = ПолучитьИмяВременногоФайла();
Image.SaveFile(ИмяФайла);
Кар=Новый Картинка(ИмяФайла);
ЭлементыФормы.ПолеКартинки1.Картинка=Кар;
Исключение
//
КонецПопытки;
КонецПроцедуры
Прикрепленные файлы:
WebCamera.rar
Светлый ум; +1 Ответить 2
35. Meatgrinder (4rtehouse) 04.05.11 16:19 Сейчас в теме
(34) в моем примере инициализация проходит при открытии документа. ActiveX подключается с помощью 1c++. прямо в документе идёт предпросмотр видео с камеры. при нажатии кнопки, фото сохраняется
36. Дмитрий Шерстобитов (DitriX) 2365 04.05.11 22:15 Сейчас в теме
Как бы еще к IP камерам прикрутить это счастье, было бы шикарно...
37. Сергей Садыхов (SerG_121) 431 04.05.11 22:39 Сейчас в теме
(36)Извини, но IP камеры у меня нету! Если была то давно бы уже написал компоненту ))
38. Forward Fader (Performer) 70 05.05.11 06:42 Сейчас в теме
А разрешение фото менять можно?
39. Forward Fader (Performer) 70 05.05.11 06:52 Сейчас в теме
На Win7 не регистрируется компонента
40. Сергей Садыхов (SerG_121) 431 06.05.11 06:52 Сейчас в теме
(39) поставь в свойствах файла для C:\windows\system32\regsvr32.exe, эмуляция запуска под winXP. И все нормально зарегистрируется.
41. Сергей Садыхов (SerG_121) 431 06.05.11 06:53 Сейчас в теме
42. Ваня (zk96) 07.05.11 11:29 Сейчас в теме
(39) У меня под Win 7 нормально зарегестрировалось. Сделал bat-файл, в нем прописал ПОЛНЫЙ путь к компоненте и запустил от имени администратора (по правой кнопке мыши). Все работает. Напиши как регистрируешь?
43. Наталья Новикова (Tato4ka) 22.05.11 12:00 Сейчас в теме
Подскажите, если подключу компоненту к компу в котором Розница, Веб-камеру, я смогу удаленно наблюдать через интернет за торговым залом? Или нет? Если нет то что для этого надо? Если надо допилить компоненту то буду выступать в роли заказчика, с оплатой соотвественно.
44. Сергей Садыхов (SerG_121) 431 23.05.11 11:41 Сейчас в теме
(43)Пишите в личку, договоримся!
45. kuppidon kuppidon (kuppidon) 26.05.11 17:57 Сейчас в теме
Image = Новый COMОбъект("WIA.ImageFile");
DevManager = Новый COMОбъект("WIA.CommonDialog");
Попытка
Image = DevManager.ShowAcquireImage();
ИмяФайла = ПолучитьИмяВременногоФайла();
Image.SaveFile(ИмяФайла);

Как камеру в даном случае подключить? А то сканер цепляется.
46. Сергей Садыхов (SerG_121) 431 27.05.11 02:44 Сейчас в теме
(45)Воспользоваться моей ActiveX компонентой :)
47. kuppidon kuppidon (kuppidon) 27.05.11 09:24 Сейчас в теме
в управляемом приложении нет возможности создать элементы типа АктивИкс :(
48. Эмиль Фахреев (Kobra_RU) 168 30.05.11 12:12 Сейчас в теме
kuppidon пишет:

в управляемом приложении нет возможности создать элементы типа АктивИкс

Есть...
http://devtrainingforum.v8.1c.ru/forum/thread.jsp?id=557640
49. Василий Журавлев (linsa) 43 09.06.11 22:52 Сейчас в теме
Возможность-то есть... только снимок в файл сохранить таким образом не получается. А ведь запись видео и создание снимков и есть то, ради чего нужна эта компонента. Не любоваться же самим собой хорошим? )))
50. Александр Медведев (anig99) 2500 09.06.11 23:07 Сейчас в теме
(49)
Image = Новый COMОбъект("WIA.ImageFile");
DevManager = Новый COMОбъект("WIA.CommonDialog");
Попытка
Image = DevManager.ShowAcquireImage();
ИмяФайла = ПолучитьИмяВременногоФайла();
Image.SaveFile(ИмяФайла);

Не это?
51. Василий Журавлев (linsa) 43 09.06.11 23:22 Сейчас в теме
Я имею в виду штатные функции данной ActiveX-компоненты. Если ее подключать обходным путем (указан выше) в управляемой форме - сохранить снимок в файл - возможности не представляется.
Если есть обходной путь (скриншот области формы или что еще) - буду рад.
52. Александр Медведев (anig99) 2500 10.06.11 06:59 Сейчас в теме
(51) сразу не увидел. В 14 версии платформы вроде что-то намутили со скачкой ActiveX на машину пользователя.
53. Василий Журавлев (linsa) 43 10.06.11 23:32 Сейчас в теме
Так проблема не с установкой ActiveX, а с тем, что браузер не позволяет ей работать с файловой системой. Исходя из того, что типовая компонента "Расширения для работы с файлами" это умеет, считаю, что в принципе это возможно.
54. Александр Маляев (maljaev) 768 04.10.11 12:42 Сейчас в теме
У меня почему-то даже в 1С77 сохранять в файл не хочет. Пишет что метод не SaveBitmapToFile не найден. И в объект-браузере SaveBitmapToFile идет как свойство, а не как метод, в отличии скажем от Play. Видео показывает, сохранять не хочет.... У кого есть пример удачного сохранения картинки из 1С77?
55. Александр Маляев (maljaev) 768 04.10.11 13:59 Сейчас в теме
Удалось разрулить. У меня на форме объект WebBrowser, в нем HTML-страничка, на страничке два контрола <object> с содержимым WebCamX. Из тела страницы яваскриптом сохранение не хочет идти, видимо действительно есть какое-то ограничение по безопасности браузера. Путем долгих экспериментов удалось найти рабочий вариант, с сохранением из 1С77:

Результат=Браузер.Объект.document.webCam1.SaveBitmapToFile("c:\test1.jpg",2,80);
Результат=Браузер.Объект.document.webCam2.SaveBitmapToFile("c:\test2.jpg",2,80);
56. jdan (jdan) 5 07.10.11 05:02 Сейчас в теме
(46) SerG_121, Возможно ли прикрутить к WebcameraX управление из вебкамеры, т.е. на вебкамере есть кнопка чтобы при нажатии ее происходило событие, например сделать снимок?
57. Сергей Садыхов (SerG_121) 431 07.10.11 10:04 Сейчас в теме
(56)А что тебе мешает это сделать программно?
58. jdan (jdan) 5 07.10.11 10:21 Сейчас в теме
А как из 1с перехватить нажатие кнопки на вебкамере, я так думаю это только через драйвер вебкамеры возможно.
59. jdan (jdan) 5 07.10.11 10:37 Сейчас в теме
(57) SerG_121, А как из 1с перехватить нажатие кнопки на вебкамере, я так думаю это только через драйвер вебкамеры возможно.
60. Сергей Садыхов (SerG_121) 431 07.10.11 11:07 Сейчас в теме
(59)да только через драйвер
61. jdan (jdan) 5 07.10.11 11:26 Сейчас в теме
(60) SerG_121, А через WIA.ImageFile в 1с можно перехватить нажатие кнопки на вебкамере?
62. Александр Маляев (maljaev) 768 07.10.11 11:40 Сейчас в теме
У меня вот камеры почему-то по WIA не перехватываются, возможно не поддерживаются, а возможно заморочки Win7. К тому же если камера уже отображается в ActiveX, то вряд ли ты ее чем-то еще перехватишь.
63. Yevgen Yuschenko (yus12) 14.10.11 15:00 Сейчас в теме
Может кто то знает какие веб камеры еще поддерживаю WIA, так как у меня управляемое приложение нормальных способов кроме использования WIA я не нашел
64. Yevgen Yuschenko (yus12) 14.10.11 15:24 Сейчас в теме
maljaev пишет:
т(с испо

maljaev пишет:
Удалось разрулить. У меня на форме объект WebBrowser, в нем HTML-страничка, на страничке два контрола <object> с содержимым WebCamX. Из тела страницы яваскриптом сохранение не хочет идти, видимо действительно есть какое-то ограничение по безопасности браузера. Путем долгих экспериментов удалось найти рабочий вариант, с сохранением из 1С77:

Результат=Браузер.Объект.document.webCam1.SaveBitmapToFile("c:\test1.jpg",2,80);
Результат=Браузер.Объект.document.webCam2.SaveBitmapToFile("c:\test2.jpg",2,80);

А можно пример у вас взять для управляемого приложения, очень надо.
65. Александр Маляев (maljaev) 768 16.10.11 21:07 Сейчас в теме
У меня нет примера для управляемого приложения. Писал под 1С77, обошелся использованием этого ActiveX, но пришлось дополнительно в свойствах обозревателя (IE) разрешить использование ActiveX без запросов и блокировок, тем самым снизив уровень безопасности браузера. В данном случае было допустимо.

В HTML-документе вставил типа:
<object id="webCam" classid="clsid:86EBC08A-0E46-4EC8-A702-0AA0BE57D8EE" style="width:320px; height:240px;"></object>

В коде 1С:
Результат=Браузер.Объект.document.webCam.SaveBitmapToFile(КаталогФормы+"snapshot\"+Формат(Док.ДатаДок,"ДДДММГГГГ")+"\"+Док.НомерДок+".jpg",2,80);

Думаю, что для режима управляемого приложения, если рассчитывать на массовое использование без изменения настроек браузера, будет правильнее использовать решение на Flash. Я пробовал, получалось всё замечательно, но локальное сохранение работает долго, для быстрого - необходимо формировать POST-запрос к веб-серверу с передачей "сырого" изображения, и уже в серверной части производить сохранение. Я брал пример отсюда http://www.xarg.org/project/jquery-webcam-plugin но переделывал его для использования без фрэймворка Jquery, а кроме того менял и перекомпилировал SWF для сохранения в разрешении 640х480 (по умолчанию 320х240).
66. Yevgen Yuschenko (yus12) 16.10.11 22:31 Сейчас в теме
Спасибо вам огромное, буду использовать веб браузер, будет использоваться не на производстве, поэтому опасности нет :)
67. Denis Zuev (Varies) 24.10.11 12:12 Сейчас в теме
Это конечно хорошая попытка, но как писали выше работать с чем угодно (сканер, камера, веб-камера) довольно просто через WIA, и не нужно регистрировать дополнительные компоненты ActivX.
68. Yevgen Yuschenko (yus12) 24.10.11 14:59 Сейчас в теме
Varies пишет:

Это конечно хорошая попытка, но как писали выше работать с чем угодно (сканер, камера, веб-камера) довольно просто через WIA, и не нужно регистрировать дополнительные компоненты ActivX.


Пробывал я, но увы новые веб камеры уже не имеют WIA. Вот у меня к примеру встроеная веб-камера, и вот только через эту компоненту мне удалось ее подключить. Кому интересно могу дать пример обработки на управляемой форме.
69. sergey sergey (46ssv) 10.11.11 10:06 Сейчас в теме
Вопрос на засыпку...1с 8.2 веб-клиент...натолкните на мысль как организовать получение снимка с веб-камеры???
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(ВременныйФайл);
70. Кэрин Веселенькая (hnya) 18.11.11 14:13 Сейчас в теме
Спасибо большое, даже не могла представить, что можно совместить работу 1с с веб-камерой!
71. Serg Lavr (Seron) 28.11.11 12:13 Сейчас в теме
Добрый день.
Скажите пожалуйста можно ли протестировать Вашу обработку ActiveX компонента WebCamX для работы с веб-камерой", возможности скачать у меня к сожалению пока нету, если возможно и вас не затруднит выслать обработку мне на почту: seron@inbox.ru
Спасибо, буду очень благодарен
72. Михаил Кащенко (mick_777) 01.12.11 14:52 Сейчас в теме
Я снял видео с помощью компоненты, нажал проиграть - и потом хотел сделать снимок
выдало ошибку.

Возможно ли:
1. делать перемотку видео файла вперед назад
2. делать снимки с отснятого видео

Если да - то подскажите как это сделать
73. mirco brons (mirco) 70 01.12.11 18:07 Сейчас в теме
(69)
Я делал для управляемых форм...еще год назад. Причем на самоисной компоненте. Если найду - подскажу.
74. Andrey Semenov (aprol) 02.12.11 10:45 Сейчас в теме
(69) нашлось решение проблемы?ибо у меня что то похожее: Win7,камера(встроенная) включена, но Device.DeviceInfos.Count = 0 . не могу найти косяк(
75. EfiopReal (Созинов) 29.12.11 14:26 Сейчас в теме
Обработке +, т.к. в моем случае помогла.
76. Алексей КотМурзик (KotMurza) 26.03.12 00:54 Сейчас в теме
(54) maljaev,
У меня почему-то даже в 1С77 сохранять в файл не хочет. Пишет что метод не SaveBitmapToFile не найден. И в объект-браузере SaveBitmapToFile идет как свойство, а не как метод, в отличии скажем от Play... У кого есть пример удачного сохранения картинки из 1С77?
[+] [−]

У меня аналогичная проблема.
Только нет никаких Веб-браузеров, тупое заявление, что метод SaveBitmapToFile не найден.

	WebCam=СоздатьОбъект("WebCamProj1.WebCamX");
        WebCam.SetDevice(0);
        WebCam.SaveBitmapToFile("d:\WebCam.jpg", 2, 30); 
77. Алексей КотМурзик (KotMurza) 26.03.12 18:55 Сейчас в теме
Победил.

Процедура ПослеОткрытия()
	ВебКамера = СоздатьОбъект("АктивИкс"); 
	
	ВебКамера.УстановитьАтрибут(Форма, "АктХ"); 
	ВебКамера.СоздатьЭУ("WebCamProj1.WebCamX"); 
	ВебКамера.УстановитьФокус(); 
	
    ВебКамера.Объект.SetDevice(0);
    ВебКамера.Объект.Play();
	
КонецПроцедуры


Процедура Снимок()  
  ИмяФайла = "d:\WebCam.jpg"; 
  Попытка
     Ок=ВебКамера.Объект.SaveBitmapToFile(ИмяФайла, 2, 30); 	//(Путьсохфайла, 1-BMP 2-JPG 3-PNG, качество JPG(0-100) PNG(0-9))
  Исключение 
     Сообщить(ОписаниеОшибки());
  КонецПопытки;  
КонецПроцедуры



Процедура ПриЗакрытии()
    ВебКамера.Объект.Stop();
    ВебКамера.Уничтожить();
КонецПроцедуры 
...Показать Скрыть
78. Михаил Гомбоев (yoyoman) 20.04.12 08:44 Сейчас в теме
А чем отличается от обработки Душелова?
79. Михаил Гомбоев (yoyoman) 20.04.12 08:54 Сейчас в теме
ааа незавимо от .net все понятно
80. delavar 25.06.12 16:18 Сейчас в теме
Интересует расширение возможностей компоненты WebCamx, а именно сохранение в файл снимка с различным разрешением. Готов обсудить условия доработки - ton-a@yandex.ru
81. Сергей Садыхов (SerG_121) 431 26.06.12 07:39 Сейчас в теме
(80)Мне кажется что три типа файла достаточно для дальнейшей обработки снимка!
82. delavar 26.06.12 10:18 Сейчас в теме
мне не тип файла важен, а разрешение картинки- по умолчанию 640 на 480 и никак не изменить это
83. Игор Мудрицкий (Zas1402) 19.09.12 11:25 Сейчас в теме
На такой маленький текст 10 ошибок smile:(

ну не придерайтесь
84. arjuna (arjuna) 21.01.13 18:34 Сейчас в теме
Возможно ли наложение произвольного текста на видео поток?
85. Сергей Садыхов (SerG_121) 431 24.01.13 07:58 Сейчас в теме
(84)Да, возможно! Но только при помощи другой компоненты!
Прикрепленные файлы:
VideoGraberX.rar
Светлый ум; ice-net; NAKIS; arjuna; maljaev; +5 Ответить 2
86. arjuna (arjuna) 24.01.13 18:21 Сейчас в теме
(85) SerG_121, Кинте мне пожалуйста тестовое письмо на емайл fortlabs(sobaka)yandex.ru, есть предложение.
87. Alexandr Kuritsyn (hibico) 213 31.01.13 10:23 Сейчас в теме
Спасибо.
То что доктор прописал.
88. ddemon ddemon (ddemon) 13 23.02.13 09:38 Сейчас в теме
(85) SerG_121, компонента интересная! но под управляемой формой показывает только видео. фото сделать не получается, выдает ошибку Метод не найден "SaveBitmapToFile", с чем может быть связано? Не пробывали ее сами под управляемой формой?

еще вопрос а у компоненеты VideoGraberX есть возможность сохранение фото?(85) SerG_121,
89. ddemon ddemon (ddemon) 13 23.02.13 15:30 Сейчас в теме
Спасибо, вопрос стал не актуален. Нашел сам решение.
91. olo lo (olo_lo4) 12.04.13 18:55 Сейчас в теме
скажите а возможно ли каким то образом распознавать видео-картинку ?
92. Александр Маляев (maljaev) 768 12.04.13 19:10 Сейчас в теме
(91) olo_lo4, разумеется, ведь 1С как раз создана для захвата, анализа и обработки изображений и видео. Можно номер авто заляпанный грязью распознать, можно посчитать сколько людей в толпе, можно по фотографии найти человека среди посетителей - всё что угодно, притом средствами платформы.

А если серьезно - то такую задачу способны выполнять только весьма дорогие системы видеонаблюдения, да я и сам бы не поверил что такое возможно в принципе если бы не столкнулся с ними по работе.
93. Арутюн (harutyunb) 08.05.13 11:56 Сейчас в теме
Прошу Помочь, c IP камеры(Поддерживаемые протоколы IPv4/v6, HTTP, UPnP, DNS, NTP, RTSP, DHCP, TCP, UDP, IGMP, RTCP, ICMP, ARP) из потока http получить снимок и сохранить в файл при нажатии сохранить документ.
Нужна процедура.
Если есть у кого опыт, прошу отзываться, поток в 1с получаем, нужно сохранить картинку.
94. Юрий Л. (-Yura-) 17.06.13 19:07 Сейчас в теме
Дайте кто нибудь ссылку на скачивание, инфостарт не дает скачать. Буду благодарен
95. V P (Vovus) 3 28.06.13 18:22 Сейчас в теме
Почему то не удается зарегистрировать компоненту WIn Server 2008 r2 64 "Не найден указанный модуль!"
96. Арутюн (harutyunb) 23.07.13 10:01 Сейчас в теме
Это все работает только в usb камерами, а я хотел такое реализовать с ip камерами. в принципе удалось это сделать. использование программы devline эсли камера не выдает на сеть стандартный протокол видео, в принцыпе у них же есть и пример обработки для внедрения в 1с, если нету обращайтесь в компанию "КорневСофт"
97. Александр Маляев (maljaev) 768 23.07.13 10:55 Сейчас в теме
В общем-то работа с ip-камерами вообще никаких проблем не представляет. Любая контора (а не только КорневСофт), которая выпускает ip-камеры, реализует сразу интерфейс для работы с ними через браузер. Видеопоток с камеры транслируется в окно браузера через их activex. Соответственно зная интерфейс управления этим activex (обычно это несколько простых методов и свойств которые можно узнать в любом вьюере объектов) можно вставить его в форму 1С через WebBrowser ActiveX, и иметь живой поток. Также IP-камеры по сравнению с usb-веб-камерами имеют намного более развитые интерфейсы для работы с ними по различным протоколам и могут по команде извне предоставлять скриншоты, куски видео, данные архива записей и т.д. Также функционал снятия скриншота может быть реализован как один из методов activex.

С usb-веб-камерами возникает уйма проблем, я это всё прочувствовал на собственной шкуре когда внедрял один крупный проект на них. Во-первых качество изображения этих камер ужасное даже в условиях нормальной освещенности, нет защиты от воды/жары/холода - так как камеры предназначаются для работы в помещениях. Очень малое расстояние от ПК до камеры, при котором они работают стабильно и работают вообще. Нет защиты от пересвета - это блики от снега/льда/луж, прямой солнечный свет - опять же следствие их предназначения для помещений. Нет нормальных интерфейсов для управления камерами. Нет сменных объективов, нормальной фокусировки, зума, поворота и т.д.

С IP-камерами намного лучше, есть много моделей предназначенных для работы в жестких уличных условиях, в дорогих модели этих камер устранены все вышеперечисленные недостатки. Витая пара (или WiFi) дает возможность отнести их на любое расстояние от ПК. Разрешение IP-камер на данный момент - до 5 мегапикселей при 15 кадрах в секунду (причем практически реальных что подтверждается образцами видео), а значит можно спокойно рассмотреть номера на авто, лица и т.д. Кроме всего прочего есть инфракрасная подсветка, защита от пересветов, морозо- и жароустойчивость, автономность. Но и как говорится - любой каприз за ваши деньги. Относительно приличные IP-камеры начинаются от 10 т.р., но ИМХО возможности и удобство работы с ними стоят того для ряда проектов.

По аналогии с IP-камерами, многое из того же возможно реализовать с помощью обычных аналоговых камер, так как даже аналоговая камера на порядок лучше usb-камеры. Но для этого необходимо реализовать сначала сервер видеозахвата (обычно они уже имеются в фирмах где реализовано видеонаблюдение), а затем интерфейс работы с этим сервером из 1С. Но тут уже по полной аналогии с IP-камерами, так как разработчики ПО для видеонаблюдения предоставляют те же средства и функционал что и разработчики IP-камер, то есть имеется как минимум activex для работы с потоком через браузер.

Очень важной деталью реализации проектов с использованием камер чаще всего также является реализация взаимодействия с другими внешними устройствами. Например открыть шлагбаум или турникет из 1С, прочесть штрихкод с удаленного устройства, включить/выключить двигатель ворот, управлять освещенностью и т.д. Здесь на помощь приходят ряд несложных устройств, с некоторыми из которых вы можете познакомиться по ссылкам ниже. Некоторые из этих устройств я уже использовал в своих проектах. Но это уже другая тема для разговора.
http://tibbo.com/soi/hardware.html
http://usbsergdev.narod.ru/projects.html
98. Александр Маляев (maljaev) 768 23.07.13 11:00 Сейчас в теме
(95) Vovus, попробуй по этой методике, должно получиться: http://infostart.ru/public/69986/
99. Мышкин Олег (movlost) 23.11.13 22:37 Сейчас в теме
А есть у этой компоненты функция по изменению размера изображения? Например, чтобы снимок был не 640x480, а 800x600 или 480x640.
100. Alexey Ryzhov (travelekb) 29.11.13 21:20 Сейчас в теме
Меня тоже интересует вопрос изменения разрешения снимка. Хотелось бы иметь минимум 800х600. Как можно это реализовать?
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа