《vb用API函数调用摄像头》由会员分享，可在线阅读，更多相关《vb用API函数调用摄像头（3页珍藏版）》请在装配图网上搜索。
1、摄像头调控1、首先创建一个标准EXE工程2、在窗体代码中加入如下必需的API及一个拍照的自定义函数PrivateDeclareFunctioncapCreateCaptureWindowLibavicap32.dll_AliascapCreateCaptureWindowA(_ByVallpszWindowNameAsString,_ByValdwStyleAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhWndParentAsLong,_ByValnIDAsLong)AsLongP
2、rivateConstWS_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_PREVIEWRATE=(WM_CAP_START+52)PrivateConstWM_CAP_SET_OVERLAY=(W
3、M_CAP_START+51)PrivateConstWM_CAP_SET_PREVIEW=(WM_CAP_START+50)PrivateConstWM_CAP_DRIVER_DISCONNECT=(WM_CAP_START+11)PrivatePreview_HandleAsLongPrivateDeclareFunctionSendMessageLibuser32_AliasSendMessageA(_ByValhwndAsLong,_ByValwMsgAsLong,_ByValwParamAsLong,_lParamAsAny)AsLongPrivateFunctionCaptureP
4、icture(nCaptureHandleAsLong)AsStdPictureClipboard.ClearSendMessagenCaptureHandle,WM_CAP_EDIT_COPY,0,0SetCapturePicture=Clipboard.GetDataEndFunction3、在窗体上加入一个Picturebox和两个button,一个caption为拍照，一个为保存4、给窗体的Load加如下代码Preview_Handle=capCreateCaptureWindow(Video,WS_CHILD+WS_VISIBLE,2,2,220,156,Me.hwnd,1)Send
5、MessagePreview_Handle,WM_CAP_DRIVER_CONNECT,0,0SendMessagePreview_Handle,WM_CAP_SET_PREVIEWRATE,1,0SendMessagePreview_Handle,WM_CAP_SET_PREVIEW,1,05、双击拍照按钮Picture1.Picture=CapturePicture(Preview_Handle)6、双击保存按钮SavePicturePicture1.Picture,c:a.bmp7、在窗体的unload事件中加入如下代码SendMessagePreview_Handle,WM_CAP_D
6、RIVER_DISCONNECT,0,08、运行程序，调试全部程序清单：PrivateDeclareFunctioncapCreateCaptureWindowLibavicap32.dll_AliascapCreateCaptureWindowA(_ByVallpszWindowNameAsString,_ByValdwStyleAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhWndParentAsLong,_ByValnIDAsLong)AsLongPrivateConstWS
7、_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_PREVIEWRATE=(WM_CAP_START+52)PrivateConstWM_CAP_SET_OVERLAY=(WM_CAP_START+5
8、1)PrivateConstWM_CAP_SET_PREVIEW=(WM_CAP_START+50)PrivateConstWM_CAP_DRIVER_DISCONNECT=(WM_CAP_START+11)PrivatePreview_HandleAsLongPrivateDeclareFunctionSendMessageLibuser32_AliasSendMessageA(_ByValhwndAsLong,_ByValwMsgAsLong,_ByValwParamAsLong,_lParamAsAny)AsLongPrivateFunctionCapturePicture(nCaptu
9、reHandleAsLong)AsStdPictureClipboard.ClearSendMessagenCaptureHandle,WM_CAP_EDIT_COPY,0,0SetCapturePicture=Clipboard.GetDataEndFunctionPrivateSubCommand1_Click()SavePicturePicture1.Picture,c:a.bmpEndSubPrivateSubCommand2_Click()Picture1.Picture=CapturePicture(Preview_Handle)EndSubPrivateSubForm_Load(
10、)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,0EndSubPrivateSubForm_Unload(CancelAsInteger)SendMessagePreview_Handle,WM_CAP_DRIVER_DISCONNECT,0,0EndSub
vb用API函数调用摄像头
