基于Delphi的VFW视频捕获程序的开发

*在捕获时，可指定所用的文件名，并可将捕获文件的内容拷贝到另一个文件；

*设置捕获速率；

*显示控制视频源、视频格式及视频压缩的对话框；

*创建、保存或载入调色板；

*将图像和相关的调色板拷贝到剪贴板；

*将捕获的单帧图像保存到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, //窗口宽