Native ВК для работы с веб камерой

Внешняя компонента для работы с web-камерой. Написана на Delphi и работает по технологии Native API. Компонента позволяет взаимодействовать c web-камерой посредством avicap.dll. Работает в толстом, тонком и веб клиенте(через IE).

Состав архива

[Сборка CAB для IE] — инструмент для построения CAB архива расширения для Internet Explorer;

1Cv8.cf — пример работы с компонентой;

Delphi7Source.zip — архив с исходными текстами компоненты;

pacage.zip — архив с компонентой для загузки в макет 1С.

Использование компоненты

Подключение и установка компоненты производится стандартными методами, описанными в синтакс помощнике.

Компонента = Новый(«AddIn.Компонента.ExecExtention»);

Получение изображения

Получение изображения производится вызовом метода ПолучитьБМП(КодКамеры).

ЗакодированноеИзображение = Компонента.ПолучитьБМП(1);

Параметр КодКамеры — это индекс камеры в системе. Подробнее об этом можно узнать в документации к avicap.dll. Если у вас в системе только одна веб камера оставьте 1.

Поскольку Native API позволяет передавать только простые типы данных (число, строка, булево), передача изображения из компоненты в 1С происходит в виде строки Base64. Соответственно после получения изображения его необходимо сначала преобразовать в двоичные данные.

ДвоичныеДанные = Base64Значение(ЗакодированноеИзображение); // Получаем двоичные данные.

Создаем картинку следующим образом

Фотография = Новый Картинка(ДвоичныеДанные, Ложь); // Создаем картинку

П. С.

Компонента не является готовым решением и лишь иллюстрирует методы взаимодействия с камерой.

За основу взята разработка //infostart.ru/public/88060/.

29 Comments

Diversus 06.04.2013 at 12:29

Поскольку Native API позволяет передавать только простые типы данных(число, строка, булево), передача изображения из компоненты в 1С происходит в виде строки Base64.

Вы не правы! Возвращать можно сразу двоичные данные.

Вот работающий пример возвращающий скриншот в формате JPEG с типом ДвоичныеДанные:

function TGraphicsNative.GetScreenShotFunc(RetValue: PV8Variant;
Params: PV8ParamArray; const ParamCount: Integer;
var v8: TV8AddInDefBase): Boolean;
Var
Bitmap: TBitmap;
jpeg: TJPEGImage;
Stream: TMemoryStream;
DC: HDC;
begin
Bitmap := TBitmap.Create;
jpeg := TJPEGImage.Create;
Stream := TMemoryStream.Create;
try

Bitmap.Height := Screen.Height;
Bitmap.Width := Screen.Width;
DC := GetDC(0);
Bitblt(Bitmap.Canvas.Handle, 0, 0, Screen.Width, Screen.Height, DC, 0,
0, SRCCOPY);
ReleaseDC(0, DC);

jpeg.Assign(Bitmap);
jpeg.CompressionQuality := 80; // Качество JPEG

jpeg.SaveToStream(Stream);
Stream.Position := 0;
V8SetBlob(RetValue, Stream.Memory, Stream.Size); //<< Возвращаем JPEG с типом ДвоичныеДанные

finally

// Очищаем память.
Stream.Free;
jpeg.Free;
Bitmap.Free;

end;

Result := true;

end;

Показать

Reply ↓

nextkmv 06.04.2013 at 21:47

Спасибо, не знал!

Reply ↓
Diversus 07.04.2013 at 21:28

(2) Да не за что… Сам промучился с этим долго, пока путем проб и ошибок не получилось.

Reply ↓
nextkmv 08.04.2013 at 17:14

Очень мало документации, особенно по интеграции в браузеры. Я к сожалению не смог найти информации по внедрению в Chrome, а в FF у меня внедрить так и не получилось. Компонента устаканивалась но при запуске FF говорил что расширение невозможно запустить.

Reply ↓
CheBurator 03.11.2013 at 02:32

Можно ли ВК использовать в 7.7…?

Reply ↓
nextkmv 04.11.2013 at 08:38

Нет ВК написана на native API, которая появилась в 8.2. Но для семёрки я где то видел готовую обработку на инфостарте.

Reply ↓
vitalya24 05.04.2014 at 18:16

клево, супер, я плюсанул. Только вопрос, только у меня не показывается предпросмотр перед тем как сделать снимок или у всех?

Reply ↓
nextkmv 09.04.2014 at 09:20

(7) vitalya24, Пред просмотр заложен в ВК для удобства, но вы можете переписать ее исходный код прилагается.

Reply ↓
Konstatine 12.08.2014 at 07:23

Спасибо! Огромнейшее! Под тонкий клиент лучшее решение!

Reply ↓
nextkmv 20.08.2014 at 11:03

Пожалуйста. Правда за время работы выявились некоторые недочеты, в частности компонента корректно работает только если есть одно устройство захвата в системе. Если в системе есть еще устройства, сканер например, то для нормальной работы их приходиться отключать в диспетчере устройств. В планах переписать компоненту с использованием библиотеки opencv на C++. Но это как только время появится.

Reply ↓
Key-Zed 08.09.2014 at 12:54

А как сделать Resize снимка. Ну очень надо.

Reply ↓
nextkmv 08.09.2014 at 14:25

Логичнее обработку изображения произвести во внешней компоненте, но такого функционала сейчас в ней нет. В 1С штатных механизмов для изменения размеров тоже нет, так что тут придется изобрести определенный велосипед. Я учту пожелания и как дойдут руки до новой версии учту эти пожелания но когда это будет сказать не могу.

Reply ↓
Konstatine 30.01.2015 at 09:39

Добрый день! Посдкажите 2 вопроса: 1) компонента преобразует двоичные данные в картинку. А как задать нужное разрешение картинки? 2) Вы пишите, что эта обработка будет работать в IE. Пожалуйста, распишите подробней процесс настройки в браузере, никак разобраться не могу..

Reply ↓
nextkmv 30.01.2015 at 14:47

Добрый день!

1) Компонента преобразует картинку в Base64 строку а затем 1С преобразует строку в картинку обратно. Разрешение при этом всегда равно разрешению камеры. Встроенного механизма изменения размера нет. Но вы можете самостоятельно реализовать данный функционал в компоненте, исходный код у вас есть в архиве Delphi7Source.zip.

2) Откройте тестовую конфигурацию в режиме веб клиента в браузере IE. При первом вызове компоненты платформа установит ее в браузер. В тестовой конфигурации вы можете посмотреть как происходит установка компоненты.

Reply ↓
Konstatine 30.01.2015 at 16:42

Спасибо!

Reply ↓
Konstatine 30.01.2015 at 20:48

По поводу 2 вопроса..открыл конфигурацию в браузере, при открытии обработки программа спросила установить компоненту? После нажатия ДА выходит сообщение: «Установка внешней компоненты не выполнена. В процессе установки произошла ошибка.» Подскажите с чем это может быть связано? Или может можно как-то вручную установить эту компоненту? Благодарю.

Reply ↓
nextkmv 31.01.2015 at 14:55

Трудно сказать но я думаю что проблема скорее всего в настройках безопасности в IE. Нужно разрешить в настройках безопасности IE использование внешних компонент в том числе Activex.

Так же обращаю ваше внимание что компонента не является готовым решением а лишь демонстрирует механизм работы с камерой из Delphi(через вызовы WinAPI) и взаимодействие с 1С по технологии Native API, так же она не тестировалась на работу со всеми версиями платформы 1С и браузера IE. И используете вы ее на свой страх и риск.

Reply ↓
Konstatine 19.02.2015 at 08:10

Подскажите, удавалось ли Вам установить компоненту в браузере? Если да, то какая у Вас версия IE? Настройки безопасности на самом низком уровне, но установить не получается. Спасибо.

Reply ↓
Konstatine 19.02.2015 at 16:03

…или может ее можно установить вручную (т.е. скачать, распаковать)?

Reply ↓
Prooa 26.02.2015 at 05:32

(19) Интересует этот же вопрос.

Reply ↓
Konstatine 04.03.2015 at 08:54

(17) nextkmv, подскажите, вопрос так и не решился.

Reply ↓
bayce 27.07.2015 at 23:39

Компонента хорошая.

Но если бы можно улучшить ее.

Есть компонента с хорошим функционалом, но к сожалению работает не стабильно.

http://infostart.ru/public/341805/#comm

Reply ↓
nextkmv 29.07.2015 at 10:02

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

Я бы добавил следующие возможности:

— Возможность настройки разрешения снимка;

— Возможность снимать видео;

— Возможность подключения проффесиональных цифровых камер для съемки номенклатуры;

— Возможность быстрой съемки, в один клик;

— Работа в толстом, тонком, web клиенте(укажите какие браузеры востребованы, так как для каждого требуется своя сборка), возможно мобильная версия компоненты(фотографируем на телефон выгружаем в основную ИБ);

— Возможно нужен функционал распознования изображений, например QR кода на коробках.

Пишите свои предложения, желательно в порядке приоритетности реализации.

Reply ↓
igorekpanchenko 29.07.2015 at 10:40

Reply ↓
Key-Zed 21.08.2015 at 13:25

(23) nextkmv, Дерзай, очень жду.

К списку предложений привинтить работу со сканером.

Reply ↓
Konstatine 19.09.2015 at 17:22

Подскажите пожалуйста такой вопрос:

Внезапно на нескольких компьютерах начала выходить ошибка: «Не найден файл внешней компоненты».

Помогает перезагрузка. С чем такое может быть связано? Куда копать?

Саму внешнюю компоненту еще раз у вас скачал и заменил макет, но не помогло.

Благодарен за любой дельный совет.

Reply ↓
nextkmv 20.09.2015 at 13:51

(26) Konstatine, странная ситуация. Попробуйте обновить платформу 1С.

Reply ↓
anig99 30.11.2015 at 10:58

Спасибо! Работает даже на XP под 8.3

Reply ↓
user5300 21.08.2019 at 10:16

не работает… Черный экран и не возвращает картинку снимка …

Reply ↓

Native ВК для работы с веб камерой

Related Posts

29 Comments

Leave a Comment Отменить ответ