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

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