vb用API函数调用摄像头

vb用API函数调用摄像头

ID:38583372

大小:33.00 KB

页数:4页

时间:2019-06-15

vb用API函数调用摄像头_第1页
vb用API函数调用摄像头_第2页
vb用API函数调用摄像头_第3页
vb用API函数调用摄像头_第4页
资源描述:

《vb用API函数调用摄像头》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、摄像头调控1、首先创建一个标准EXE工程2、在窗体代码中加入如下必需的API及一个拍照的自定义函数PrivateDeclareFunctioncapCreateCaptureWindowLib"avicap32.dll"_Alias"capCreateCaptureWindowA"(_ByVallpszWindowNameAsString,_ByValdwStyleAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhWndParentA

2、sLong,_ByValnIDAsLong)AsLongPrivateConstWS_CHILD=&H40000000PrivateConstWS_VISIBLE=&H10000000PrivateConstWM_USER=&H400PrivateConstWM_CAP_START=&H400PrivateConstWM_CAP_EDIT_COPY=(WM_CAP_START+30)PrivateConstWM_CAP_DRIVER_CONNECT=(WM_CAP_START+10)PrivateConstWM_CAP_SET_PREVIEWR

3、ATE=(WM_CAP_START+52)PrivateConstWM_CAP_SET_OVERLAY=(WM_CAP_START+51)PrivateConstWM_CAP_SET_PREVIEW=(WM_CAP_START+50)PrivateConstWM_CAP_DRIVER_DISCONNECT=(WM_CAP_START+11)PrivatePreview_HandleAsLongPrivateDeclareFunctionSendMessageLib"user32"_Alias"SendMessageA"(_ByValhwndAs

4、Long,_ByValwMsgAsLong,_ByValwParamAsLong,_lParamAsAny)AsLongPrivateFunctionCapturePicture(nCaptureHandleAsLong)AsStdPictureClipboard.ClearSendMessagenCaptureHandle,WM_CAP_EDIT_COPY,0,0SetCapturePicture=Clipboard.GetDataEndFunction3、在窗体上加入一个Picturebox和两个button,一个caption为拍照,一个

5、为保存4、给窗体的Load加如下代码Preview_Handle=capCreateCaptureWindow("Video",WS_CHILD+WS_VISIBLE,2,2,220,156,Me.hwnd,1)SendMessagePreview_Handle,WM_CAP_DRIVER_CONNECT,0,0SendMessagePreview_Handle,WM_CAP_SET_PREVIEWRATE,1,0SendMessagePreview_Handle,WM_CAP_SET_PREVIEW,1,05、双击拍照按钮Picture1.P

6、icture=CapturePicture(Preview_Handle)6、双击保存按钮SavePicturePicture1.Picture,"c:a.bmp"7、在窗体的unload事件中加入如下代码SendMessagePreview_Handle,WM_CAP_DRIVER_DISCONNECT,0,08、运行程序,调试全部程序清单:PrivateDeclareFunctioncapCreateCaptureWindowLib"avicap32.dll"_Alias"capCreateCaptureWindowA"(_ByVallp

7、szWindowNameAsString,_ByValdwStyleAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhWndParentAsLong,_ByValnIDAsLong)AsLongPrivateConstWS_CHILD=&H40000000PrivateConstWS_VISIBLE=&H10000000PrivateConstWM_USER=&H400PrivateConstWM_CAP_START=&H400Pri

8、vateConstWM_CAP_EDIT_COPY=(WM_CAP_START+30)PrivateConstWM_CAP_DRIVER_CONNEC

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。