VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像.doc

VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像 2012-04-19??weikong66??文章来源??阅?2583??转?81 转藏到我的图书馆 微信分享： VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像 2010-10-10 0:36 当前位置：首页VB 小程序 实现USB摄像头视频图像的监控、截图、录像 54. 实现USB摄像头视频图像的监控、截图、录像 　　本程序是“摄像头视频监控”的改进，仅用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。保存的视频文件可以用媒体播放机（Windows Media Player）、 暴风影音等软件进行播放，轻松实现家庭录像制作。　　利用电脑配备的 USB 摄像头进行视频控制，要用到两个 API 函数：capCreateCaptureWindow 和 SendMessage。　　capCreateCaptureWindow 的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。此函数的 VB 声明：?????? Private Declare Function capCreateCaptureWindow Lib avicap32.dll Alias capCreateCaptureWindowA (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As LongDim ctCapWin As Long　　各参数意义如下：??????lpszWindowName?视频窗口的窗口标题??????dwStyle?窗口模式，设置值可用下面数值，也可组合使用：??????????? WS_Child：视频窗口是子窗口，位于应用程序主窗口内。否则是独立的窗口。??????????? WS_Visible：视频窗口可见??????????? WS_Caption：视频窗口有标题栏??????????? WS_ThickFrame：视频窗口有边框??????X?视频窗口位置x坐标??????Y?视频窗口位置y坐标??????nWidth???? 视频窗口宽度??????nHeight???? 视频窗口高度??????hwndParent?创建视频窗口的主窗口，设置为：Me.hWnd??????nID?视频ID　　视频窗口创建后，剩下的事情就是用 SendMessage 向该窗口发送各种消息，实现对摄像头的控制。 以下是完整代码，在 VB6 和 WindowsXP 下调试通过：在窗体放置4个控件：Command1、Command2、Command3、Command4程序调试时要注意：终止程序要用运行中的 Form1 窗口关闭。不要使用 VB 主窗口的菜单命令或 VB 工具栏上的关闭按钮，这样无法关闭打开的视频窗口，导致 VB 无响应。如果 VB 无响应，只有用系统任务管理器才能终止 VB 进程，调试过程中所做的修改将丢失。本人原创，转载请注明来源：/100bd/blog/item/52c7978a9b3cdf719f2fb4a5.htmlPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Declare Function capCreateCaptureWindow Lib avicap32.dll Alias capCreateCaptureWindowA (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As LongDim ctCapWin As Long, ctAviPath As String, ctPicPath As String, ctConnect As Bo