资源描述：
《Delphi编程控制摄像头.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Delphi编程控制摄像头你的电脑有没有摄像头？看到别人用QQ玩视屏你会不会去想怎么实现的？这里介绍使用DELPHI使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程，假如再加上你的网络编程水平，实现一个视屏聊天就不成什么问题了。看看下面代码的代码：constWM_CAP_START=WM_US...你的电脑有没有摄像头？看到别人用QQ玩视屏你会不会去想怎么实现的？这里介绍使用DELPHI使用MS的AVICAP32.DLL就可轻松的实现对摄像头编程，假如再加上你的网络编程水平，实现一个视屏聊
2、天就不成什么问题了。看看下面代码的代码：constWM_CAP_START=WM_USER;constWM_CAP_STOP=WM_CAP_START68;constWM_CAP_DRIVER_CONNECT=WM_CAP_START10;constWM_CAP_DRIVER_DISCONNECT=WM_CAP_START11;constWM_CAP_SAVEDIB=WM_CAP_START25;constWM_CAP_GRAB_FRAME=WM_CAP_START60;constWM_CAP_SEQ
3、UENCE=WM_CAP_START62;constWM_CAP_FILE_SET_CAPTURE_FILEA=WM_CAP_START20;constWM_CAP_SEQUENCE_NOFILE=WM_CAP_START63constWM_CAP_SET_OVERLAY=WM_CAP_START51constWM_CAP_SET_PREVIEW=WM_CAP_START50constWM_CAP_SET_CALLBACK_VIDEOSTREAM=WM_CAP_START6;constWM_CAP_S
4、ET_CALLBACK_ERROR=WM_CAP_START2;constWM_CAP_SET_CALLBACK_STATUSA=WM_CAP_START3;constWM_CAP_SET_CALLBACK_FRAME=WM_CAP_START5;constWM_CAP_SET_SCALE=WM_CAP_START53constWM_CAP_SET_PREVIEWRATE=WM_CAP_START52functioncapCreateCaptureWindowA(lpszWindowName:PCHA
5、R;dwStyle:longint;x:integer;y:integer;nWidth:integer;nHeight:integer;ParentWin:HWND;nId:integer):HWND;STDCALLEXTERNAL‘AVICAP32.DLL‘;上面的代码就是我们主要用到的一个函数和常量的定义。好了，打开你的Delphi，新建一个工程，将上面的定义加上吧。新建一个窗口，放个Panel上去，添加一个按钮，Caption设置为"开始"这里需要定义一个全局变量，varhWndC:THand
6、le;开始按钮代码如下：beginhWndC:=capCreateCaptureWindowA(‘MyOwnCaptureWindow‘,WS_CHILDorWS_VISIBLE,Panel1.Left,Panel1.Top,Panel1.Width,Panel1.Height,Form1.Handle,0);hWndC:=capCreateCaptureWindowA(‘MyOwnCaptureWindow‘,WS_CHILDorWS_VISIBLE,Panel1.Left,Panel1.Top,P
7、anel1.Width,Panel1.Height,Form1.Handle,0);ifhWndC<>0thenbeginSendMessage(hWndC,WM_CAP_SET_CALLBACK_VIDEOSTREAM,0,0);SendMessage(hWndC,WM_CAP_SET_CALLBACK_ERROR,0,0);SendMessage(hWndC,WM_CAP_SET_CALLBACK_STATUSA,0,0);SendMessage(hWndC,WM_CAP_DRIVER
8、_CONNECT,0,0);SendMessage(hWndC,WM_CAP_SET_SCALE,1,0);SendMessage(hWndC,WM_CAP_SET_PREVIEWRATE,66,0);SendMessage(hWndC,WM_CAP_SET_OVERLAY,1,0);SendMessage(hWndC,WM_CAP_SET_PREVIEW,1,0);end;按F9运行一下，怎么样，是不是可以看到摄像头的视屏了？那怎么停下来？再加个按钮c
