Delphi编程控制摄像头.pdf

Delphi 编程控制摄像头 你的电脑有没有摄像头？看到别人用 QQ 玩视屏你会不 会去想怎么实现的？ 这里介绍使用 DELPHI 使用 MS 的 AVICAP32.DLL 就可轻松的实现对摄像头编程， 假如再 加上你的网络编程水平，实现一个视屏聊天就不成什么问题 了。 看看下面代码的代码： constWM_CAP_START=WM_US... 你的电脑有没有摄像头？看到别人用 QQ 玩视屏你会不会去 想怎么实现的？ 这里介绍使用 DELPHI 使用 MS 的 AVICAP32.DLL 就可 轻松的实现对摄像头编程， 假如再加上你的网络编程水平，实现一个视屏聊天就不 成什么问题了。 看看下面代码的代码： constWM_CAP_START=WM_USER; constWM_CAP_STOP=WM_CAP_START 68; constWM_CAP_DRIVER_CONNECT=WM_CAP_START 10; constWM_CAP_DRIVER_DISCONNECT=WM_CAP_START 11; constWM_CAP_SA VEDIB=WM_CAP_START 25; constWM_CAP_GRAB_FRAME=WM_CAP_START 60; constWM_CAP_SEQUENCE=WM_CAP_START 62; constWM_CAP_FILE_SET_CAPTURE_FILEA=WM_CAP_S TART 20; constWM_CAP_SEQUENCE_NOFILE=WM_CAP_START 63 constWM_CAP_SET_OVERLAY=WM_CAP_START 51 constWM_CAP_SET_PREVIEW=WM_CAP_START 50 constWM_CAP_SET_CALLBACK_VIDEOSTREAM=WM_C AP_START 6; constWM_CAP_SET_CALLBACK_ERROR=WM_CAP_STA RT 2; constWM_CAP_SET_CALLBACK_STATUSA=WM_CAP_ST ART 3; constWM_CAP_SET_CALLBACK_FRAME=WM_CAP_STA RT 5; constWM_CAP_SET_SCALE=WM_CAP_START 53 constWM_CAP_SET_PREVIEWRATE=WM_CAP_START 52 functioncapCreateCaptureWindowA(lpszWindowName:PCHA R;dwStyle:longint;x:integer; y:integer;nWidth:integer;nHeight:integer;ParentWin:HWND; nId:integer):HWND;STDCALLEXTERNAL ‘AVICAP32.DLL ‘; 上面的代码就是我们主要用到的一个函数和常量的定 义。 好了，打开你的 Delphi ，新建一个工程，将上面的定义 加上吧。 新建一个窗口， 放个 Panel 上去，添加一个按钮， Caption 设置为 开始 这里需要定义一个全局变量， varhWndC:THandle; 开始按钮代码如下： begin hWndC:=capCreateCaptureWindowA( ‘MyOwnCaptureWindo w ‘,WS_CHILDorWS_VISIBLE,Panel1.Left,Panel1.Top,Panel1. Width,Panel1.Height,Form1.Handle,0); hWndC:=capCreateCaptureWind