Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 901
Нашел пример работы средствами DirectShow, а пощупать нечем.

Есть ли у кого-нибудь возможность переложить на VBA?

Спасибо.

Источник: http://www.vbforums.com/showthread.php?708081-VB6-DirectShow-WebCam-Minimal-Code
В прицепе архив с VB6 проектом.

К сообщению приложен файл (DS Webcam Snap 3.zip - 16Kb) cкачать
5 сен 19, 00:28    [21964092]     Ответить | Цитировать Сообщить модератору
 Re: Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
vmag
Member

Откуда: MP
Сообщений: 3235
Predeclared,

Привет. По твоему вопросу муторно, желательно иметь на компе v6 рабочий...
Так то можно в блокноте пооткрывать все файлы прикинуть что к чему и собрать франкенштейна, но нету времени...
Глянь вот это в атаче...
Ноги растут отсюда http://www.cyberforum.ru/vba/thread1136744.html пост РЕШЕНИЕ
Проверял, работает (хоть и кривенько ибо эксель не ракета) на 32 разрядах w7 и 2003 под usb вэбку, по идее будет работать на любом офисе 32.

Запускаешь файл стартует макрос (можно запустить и через макросы принудительно), у меня камера нашлась в обоих окнах, жмешь старт, эксель в своем каталоге пишет bmp шки в режиме онлайн (из-за этого и тормоза) жмешь стоп в файле последняя бмп - шка ну как бэ это прынцип...

К сообщению приложен файл (Video.xls - 59Kb) cкачать
5 сен 19, 14:15    [21964591]     Ответить | Цитировать Сообщить модератору
 Re: Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 901
vmag,

Спасибо.

Аналогичное решение у меня давно пощупано и реализовано.
Как справедливо заметил ЦЦа, такое решение устарело, как какашки мамонта.

я посмотрел конечно, увидел там мало-мало.
До DSPreview.ctl блокнотом не достучаться. :)

Попробую вечером студию на виртуалку поставить, но из виртуалки вэбкамеру не вижу.
То ли руки кривые, то ли лыжи не едутъ. :)
5 сен 19, 14:59    [21964638]     Ответить | Цитировать Сообщить модератору
 Re: Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
Панург
Member

Откуда: настоящему индейцу завсегда везде ништяк
Сообщений: 4339
Predeclared, посмотрел по диагонали. Мне кажется или там не хватает, как минимум, пары библиотек?
5 сен 19, 18:56    [21964878]     Ответить | Цитировать Сообщить модератору
 Re: Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 901
Панург,

Я сейчас первый пример ковыряю. Там без UserControl-а.
Да, две библиотеки из стандартного набора нужно подключить.
Я их из DSMini1.vbp высмотрел.
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\Windows\system32\stdole2.tlb#OLE Automation
Reference=*\G{56A868B0-0AD4-11CE-B03A-0020AF0BA770}#1.0#0#quartz.dll#ActiveMovie control type library

Честно говоря, не ожидал что там такой геморрой наворочен.
А может мне просто непривычно? :)
5 сен 19, 20:47    [21964925]     Ответить | Цитировать Сообщить модератору
 Re: Переложить пример работы с вебкамерой с VB6 на VBA Access  [new]
Predeclared
Member

Откуда: And God I know I'm one
Сообщений: 901
Трэш и угар.
Эта зараза не распознает обе мои камеры как пригодные. :(
5 сен 19, 22:27    [21964969]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить