基于DirectShow的VBA摄像头拍照程序

yangyangzhifeng · 发表于 2014-4-12 15:11

用Dshow实现的简单摄像头程序，由于Dshow对VB的支持不友好，
现在只能实现预定格式的视频流，支持截图保存为Bmp,Jpg,Gif
和Png,另外还支持直接截图到Activesheet(利用剪贴板)，由于
Dshow在VB6不支持用类别过滤Filter,找出摄像头，现在我用在
Filter的名字中找“cam”关键字来过滤，不可靠，所以当过滤
后找不到摄像头，请不要过滤在试试看！
代码来源于网络，我进行了必要的修改和拼接，源码公开！

directshow.7z (82.13 KB, 下载次数: 872)

liucqa · 发表于 2014-4-13 22:19

本帖最后由 liucqa 于 2014-4-13 22:37 编辑

vb对DirectX的支持一般，凑合能用，实现复杂要求就不方便了，代码太复杂。
一些资料
http://download.csdn.net/detail/zhyzhsh/1458522
http://download.csdn.net/detail/zhyzhsh/1458528

http://tieba.baidu.com/p/157125256
http://blog.sina.com.cn/s/blog_62d4d66c01013mms.html

C#

http://club.excelhome.net/thread-1084267-1-1.html

支持一下！

yangyangzhifeng · 发表于 2014-4-13 22:29

本帖最后由 yangyangzhifeng 于 2014-4-13 22:37 编辑

liucqa 发表于 2014-4-13 22:19
vb对DirectX的支持确实不太好，凑合能用，实现复杂要求就不方便了。

支持一下！

有第3方免费支持库，FSFWrap.dll,包装了quartz.dll中C++的接口函数，可以实现比较复杂要求（视频大小控制，摄像头枚举，视频属性等），并且不需要.Net Framework支持，vba就可以了。

liucqa · 发表于 2014-4-13 22:49

本帖最后由 liucqa 于 2014-4-13 22:51 编辑

yangyangzhifeng 发表于 2014-4-13 22:29
有第3方免费支持库，FSFWrap.dll,包装了quartz.dll中C++的接口函数，可以实现比较复杂要求（视频大小控制 ...

FSFWrap好像有点老，不过应该能显示属性页了吧，我没用过

Capstill.zip (86.74 KB, 下载次数: 229)

FSFWrap.zip (69.97 KB, 下载次数: 316)

yangyangzhifeng · 发表于 2014-4-13 23:12

此版可以支持过滤摄像头List,打开视频源属性页，但请下载楼上的FSFWrao.zip文件，解压后在系统注册

directshow2.7z (77.37 KB, 下载次数: 402)

VBA万岁 · 发表于 2014-4-26 15:30

收藏了，谢谢分享！

ammyc · 发表于 2014-6-2 13:36

好好学习，天天向上

百度不到去谷歌 · 发表于 2014-6-2 18:18

本帖最后由百度不到去谷歌于 2014-6-2 18:19 编辑

编程语言都有自己擅长的领域显然你用的是vba极其不擅长的功能  显然图像领域是C++专场很多图像驱动只为C++写了接口
你既然会vba 即使用vb去做这类东西也方便得多了
想起了一个故事  乌鸦喝水
小乌鸦看到一瓶水水位低了够不着于是乌鸦去找石子把水填高
当它费尽力气准备叼最后一颗石头的时候却发现叼石头的旁边就是一条河啊！！

foxmky · 发表于 2015-1-24 10:33

站个位，改天详细学学

lwjxp · 发表于 2015-2-6 11:55

yangyangzhifeng 发表于 2014-4-13 23:12
此版可以支持过滤摄像头List,打开视频源属性页，但请下载楼上的FSFWrao.zip文件，解压后在系统注册

这个出现这个错误。
xp+excel2003，dll库已注册

用第1版则可以

		自动登录	找回密码
密码			免费注册

[分享] 基于DirectShow的VBA摄像头拍照程序

评分