Parms.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; 
CapOverlay(ghCapWnd,1); 
CapPreview(ghCapWnd,1); 
End; 
在Name为“Closevideo”的Tbutton的Click事件中写入以下代码： 
procedure TForm1.ClosevideoClick(Sender:Tobject); 
begin 
capCaptureAbort(ghCapWnd); //停止捕获 
capDriveDisconnect(ghCapWnd); //将捕获窗同驱动器断开 
end; 
定义捕获帧回调函数： 
function FrameCallBack（hWnd:HWND;lpVHdr:LongInt）:LongInt;stdcall; 
var 
DataPoint:^byte; 
DibLen,RectWidth,RectHeight:integer; 
begin 
VideoStr:=LPVIDEOHDR(lpVHdr); 
DibLen:=VideoStr^.dwBufferLength; 
GetMem(DataPoint,64000); 
//将帧数据COPY到一个内存中，注意：DATAPOINT要先分配空间 
CopyMemory（DataPoint，VideoStr^.lpData,Diblen）; 
…… 
end; 

　　4 结束语

　　灵活地使用AVICap窗口类的回调函数可以满足各种需求，但要注意从视频卡中捕获的视频数据的格式和图像的长宽要参考视频卡的参数。另外，有些视频卡通过设置可支持多种格式和图像长宽，所以，在还原图像时，要注意参考所用的视频卡的参数。