*设置捕获速率;
*显示控制视频源、视频格式及视频压缩的对话框;
*创建、保存或载入调色板;
*将图像和相关的调色板拷贝到剪贴板;
*将捕获的单帧图像保存到DIB格式文件。
(2)关联捕获窗和驱动程序
单独定义的捕获窗是不能工作的,它须与一个设备相关联才能取得视频信号。用函数CapDriver Connect可使捕获窗与其设备驱动程序相关联。
(3)设置视频设备的属性
通过设置TcaptureParms结构变量的各个成员变量,可以控制设备的采样频率、中断采样按键、状态行为。设置好TcaptureParms结构变量后,可以用函CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate设置预览的比例与速度,也可以直接使用设备的默认值。
(4)打开预览
利用函数CapOverlay可选择是否采用叠加模式预览,以使系统资源占用小,视频显示速度加快。然后用CapPreview启动预览功能,这时就可以在屏幕上看到来自摄像机的图像了。
通过以上四步就可以建立一个基本的视频捕获程序,但如果想自己处理从设备捕获到的视频数据,则要使用捕获窗回调函数来处理,比如一帧一帧地获得视频数据或以流的方式获得视频数据等。
3 基于Delphi的视频捕获程序
根据系统对系统访问、处理速度等方面的特殊需求,笔者选用Delphi作为开发工具。下面以开发一个逐帧从视频设备上捕获视频数据的程序为例,来说明每个函数的作用以及开发的具体过程。所给例程的功能是可以在屏幕上显示捕获到的视频,并可以获得每一帧的图像数据。具体步骤如下:
(1)新建一个工程,并将AVICAP32.PAS包含到USES中。
(2)在Form1上放置一个Tpanel控件,设Name为“gCapVideoArea”,该控件用于显示视频。之后再放置两个Tbutton控件,一个Name为“Openvideo”,另一个Name为“Closevideo”。
(3)定义全局变量
ghCapWnd:Thandle; //定义捕获窗句柄
VideoStr:LPVIDEOHDR; //可以得到视频数据指针的结构变量,用于回调函数中
CapParms:TcaptureParms; //用于设置设备属性的结构变量
(4)编写代码
在Name为“Openvideo”的Tbutton的Click事件中写入以下代码:
procedure Tform1.OpenvidoClick(Sender:TObject);
begin
//使用Tpanel控件来创建捕获窗口
ghCapWnd:=CapCreateCaptureWindow(Pchar(''KruwoSoft''),
WS_CHILD or WS_VISIBLE, //窗口样式
0,//X坐标
0,//Y坐标
gCapVideoArea,Width, //窗口宽
gCapVideoArea,Handle, //窗口句柄
0); //一般为0
为了能够捕获视频,应启动一个捕获帧回调函数VideoStreamCallBack。捕获一个视频流或当前设备状态时,应分别使用以下函数:
CapSetCallbackOnVideoStream; //捕获一个视频流
CapSetCallbackOnError; //得到一个设备错误
CapSetCallbackOnStatus //得到一个设备状态
//定义一个帧捕获回调函数
CapSetCallbackOnFrame (ghCapWnd,LongInt(@VideoStreamCallBack));
//将一个捕获窗口与一个设备驱动相关联,第二个参数是个序号,当系统中装有多个显示驱动程序时,其值分别依次为0到总个数
CapDreiverConnect(ghCapWnd,0);
CapParms,dwRequestMicroSecPerFrame:=40000;
CapParms.fLimitEnabled:=FALSE;
CapParms.fCaptureAudio:=FALSE;//NO Audio
CapParms.fMCIControl:=FALSE;
CapParms.fYield:=TRUE;
CapParms.vKeyAbort:=VK_ESCAPE;
CapParms.fAbortLeftMouse:=FLASE;
CapParms.fAbortRightMouse:=FALSE;
//使设置生效
CapCaptureSetSetup(ghCapWnd,LongInt(@CapParms),sizeof(TCAPTUREPARMS));
CapPreviewScale(ghCapWnd,1);
CapPreviewRate(ghCapWnd,66);
如果要捕获视频流,则要使用函数来指定不生成文件。否则将会自动生成AVI文件:
CapCaptureSequenceNoFile(ghCapWnd);
指定是否使用叠加模式,1为使用,否则为0;
Cap