��虎无忧 — Thu, 23 Jul 2009 03:26:00 GMT

转蝲自：http://www.winu.cn/space-14160-do-blog-id-8104.html

　　在许多关于视频的软�g(如视频会议、可视电话等)开发中�Q�都应用了视频捕��h��术。微软�ؓ软�g开发�h员提供了一个专门用于视频捕��L��VFW (Video for Windows) SDK。VFW SDK为在Windows�pȝ��中实现视频捕��h��供了标准的接口，从而大大降低了�E�序的开发难度。由于VFW SDK只有VC和VB版，没有Delphi版，因此需要在Delphi中一一声明DLL中的各个函数和变量（可以参考MSDN中的VC的函数声明以及变量定义）。本文分3部分介绍如何利用VFW在Delphi中开发视频捕��L��序�?

VFW��?
　　VFW是微软公�?992�q�推出的关于数字视频的一个��Y件包�Q�它能��应用�E�序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑。VFW的一个关键思想是播放时不需要专用硬�Ӟ��Z��解决数字视频数据量大的问题，需要对数据�q�行压羃。它引进了一�U�叫AVI的文件标准，该标准未规定如何对视频进行捕莗��压�~�及播放�Q�仅规定视频和音频该如何存储在硬盘上�Q�以及在AVI文�g中交替存储视频��和与之相匚w��的音频数据。VFW使程序员能通过发送消息或讄��属性来捕获、播攑֒��~�辑视频剪辑。在Windows 9x�pȝ��?当用户在安装VFW�Ӟ��安装�E�序会自动地安装配置视频所需要的�l��g�Q�如讑֤�驱动�E�序、视频压�~�程序等�?
VFW主要�׃��?个模块组成：
●AVICAP.DLL�Q�包含执行视频捕��L��函数�Q�它�l�AVI文�g的I/O处理和视频、音频设备驱动程序提供一个高�U�接口；
●MSVIDEO.DLL�Q�包含一套特�D�的DrawDib函数�Q�用来处理屏�q�上的视频操作；
●MCIAVI.DRV�Q�包括对VFW的MCI命��o解释器的驱动�E�序�Q?
●AVIFILE.DLL�Q�包含由标准多媒体I/O�Q�mmio�Q�函数提供的更高的命令，用来讉K��.AVI文�g�Q?
●压�~�管理器�Q�ICM�Q�：用于��理的视频压�~?解压�~�的�~�译码器�Q�Codec�Q�；
●音频压�~�管理器ACM�Q�提供与ICM�怼�的服务，适用于�L形音频�?
开发步�?
AVICap�H�口�c�L��持实时的视频��捕获和单��捕获�Q��ƈ提供对视频源的控制。虽然MCI也提供数字视频服�?比如它�ؓ昄��.AVI文�g的视频提供了AVI VIDEO命��o�?�Q��ؓ视频叠加提供了Overlay命��o集，但这些命令主要是��Z��文�g的操作，它们不能满��实时��C��视频�~�存中取数据的要求，对于使用没有视频叠加能力的捕获卡的PC机来��_�� 用MCI提供的命令集是无法捕莯��频流的。而AVICap�H�口�c�d��捕获视频斚w��h��一定的优势�Q�它能直接访问视频缓冲区�Q�不需要生成中间文�Ӟ��实时性很强，效率很高。而且�Q�它�q�可��数字视频捕获到一个文件中�?
1.创徏“捕获�H?#8221;
在进行视频捕获之前必需要先创徏一�?#8220;捕获�H?#8221;�Q��ƈ以它为基��q�行所有的捕获及设�|�操作�?#8220;捕获�H?#8221;用AVICap�H�口�cȝ��“CapCreateCaptureWindow”函数来创建，其窗口风��g��般�ؓWS_CHILD和WS_VISIBLE�?
捕获�H�类��g��标准控�g�Q�如按钮、列表框�{�）�Q��ƈ��h��下列功能�Q?
●将视频��和音频��捕获到一个AVI文�g中；
●动态地同视频和音频输入器�g�q�接或断开�Q?
●以Overlay或Preview模式对输入的视频��进行实时显�C�；
●在捕获�Ӟ��可指定所用的文�g名�ƈ能将捕获文�g的内�Ҏ��贝到另一个文�Ӟ��
●设�|�捕获速率�Q?
●显�C�控制视频源、视频格式、视频压�~�的对话框；
●创建、保存或载入调色板；
●将囑փ�和相关的调色板拷贝到剪脓板；
●将捕获的单帧图像保存�ؓDIB格式的文件�?
2�Q�关联捕��L��和驱动程�?
单独定义的一个捕��L��是不能工作的�Q�它必需与一个设备相兌��Q�这��h��能取得视频信受��用函数CapDriverConnect可��一个捕��L��与一个设备驱动程序相兌��?
3�Q�设�|�视频设备的属�?
通过讄��TcaptureParms�l�构变量的各个成员变量，可以控制讑֤�的采样频率、中断采��h��键、状态行为等�{�。设�|�好TCaptureParms�l�构变量后，可以用函数CapCaptureSetSetup使设�|�生效。之后还可以用CapPreviewScale、CapPreviewRate来设�|�预览的比例与速度�Q�也可以直接使用讑֤�的默认倹{�?
4�Q�打开预览
利用函数CapOverlay选择是否采用叠加模式预览�Q�这样占用系�l�资源小�Q��ƈ且视频显�C�速度快。然后用CapPreview启动预览功能�Q�这时就可以在屏�q�上看到来自摄像机的囑փ�了�?
通过以上4步就可以建立一个基本的视频捕获�E�序。但如果惌��已处理从讑֤�捕获到的视频数据�Q�则要��用捕��L��回调函数来处理，比如一帧一帧地获得视频数据或以��的方式获得视频数据�{�等�?
实例�~�程
下面以一个一帧一帧地从视频设备上捕获视频数据的Delphi�E�序��Z��Q�来说明每个函数的作用以及开发过�E��?
该程序的功能是可以在屏幕上显视捕获到的视频，�q�可以获得每一帧的囑փ�数据�?
新徏一个工�E�，�q�将AVICAP32.PAS包含到USES中�?
在Form1上放�|�一个TPanel控�g�Q�设Name�?#8220;gCapVideoArea”�Q�该控�g用于昄��视频。再攄��两个TButton控�g�Q�一个Name�?#8220;Openvideo”�Q�另一个Name�?#8220;Closevideo”�?
定义全局变量�Q?
var
//定义捕获�H�句�?
ghCapWnd: THandle;
//可以得到视频数据指针的结构变量，用于回调函数�?
VideoStr: LPVIDEOHDR;
//用于讄��讑֤�属性的�l�构变量
CapParms: TCaptureParms;
在Name�?#8220;Openvideo”的TButton 的Click事�g中写入以下代码：
procedure TForm1.OpenvideoClick(Sender: TObject);
begin
//使用Tpanel控�g来创建捕��L��?
ghCapWnd := CapCreateCaptureWindow
( PChar(‘KruwoSoft'), //捕获�H�口的名�?
WS_CHILD or WS_VISIBLE,//�H�口样式
0, //X坐标
0, //Y坐标
gCapVideoArea.Width, //�H�口�?
gCapVideoArea.Height, //�H�口�?
gCapVideoArea.Handle, //�H�口句柄
0); //一般�ؓ0
{��Z��能够捕获视频帧，要启动一个捕获��回调函数VideoStreamCallBack。捕获一个视频流或当前设备状态时分别使用以下函数�Q?
//捕获一个视频流
CapSetCallbackOnVideoStream;
//得到一个设备错�?
CapSetCallbackonError;
//得到一个设备状�?
CapSetCallbackOnStatus
}
//定义一个��捕获回调函数
CapSetCallbackOnFrame (ghCapWnd,LongInt(@VideoStreamCallBack));
//��一个捕��L��口与一个设备驱�E�相兌��Q�第二个参数是个序号�Q�当�pȝ��中装有多个显视驱动程序时�Q�其值分别依�ơ�ؓ0到��M��?
CapDriverConnect(ghCapWnd, 0);
//讄��讑֤�属性的�l�构变量
CapParms.dwRequestMicroSecPerFrame:=40000;
CapParms.fLimitEnabled := FALSE;
CapParms.fCaptureAudio := FALSE; // NO Audio
CapParms.fMCIControl := FALSE;
CapParms.fYield := TRUE;
CapParms.vKeyAbort := VK_ESCAPE;
CapParms.fAbortLeftMouse := FALSE;
CapParms.fAbortRightMouse := FALSE;
//使设�|�生�?
CapCaptureSetSetup(ghCapWnd,LongInt(@CapParms),sizeof(TCAPTUREPARMS));
//讄��预览时的比例
CapPreviewScale(ghCapWnd, 1);
//讄��预览时的帧频�?
CapPreviewRate(ghCapWnd,66);
//如果要捕莯��频流�Q�则要��用函数指定不生成文�g。否则将会自动生成AVI文�g
CapCaptureSequenceNoFile(ghCapWnd);
//指定是否使用叠加模式�Q��用�ؓ1�Q�否则�ؓ0
CapOverlay(ghCapWnd, 1);
//打开预览
CapPreview(ghCapWnd, 1);
end;
在Name�?#8220;Closevideo”的TButton 的Click事�g中写入以下代码：
procedure TForm1.ClosevideoClick(Sender: TObject);
begin
//停止捕获
capCaptureAbort(ghCapWnd);
//��捕��L��同驱动器断开
capDriverDisconnect(ghCapWnd);
end;
定义捕获帧回调函敎ͼ�
function FrameCallBack(hWnd:HWND; lpVHdr:LongInt) :LongInt; stdcall;
var
DataPoint:^byte;
DibLen,RectWidth,RectHeight:integer;
begin
//转换从回调函��C��得到的指�?
VideoStr:=LPVIDEOHDR(lpVHdr);
//得到�q�回的数据大��?
DibLen:=VideoStr^.dwBufferLength;
GetMem(DataPoint,64000);
//��数据COPY��C��个内存中�Q�注意DATAPOINT要先分配�I�间
CopyMemory(DataPoint,VideoStr^.lpData,Diblen);
//一些其他处�?
……
end;
灉|��C��用AVICap�H�口�cȝ��回调函数可以满��各种不同的需求，但要注意从视频卡中捕��L��视频数据的格式和囑փ�的长宽要参考视频卡的参数。而且有些视频卡通过讄��可支持多�U�的格式和图像长宽，所以在�q�原囑փ�时要注意参考所用的视频卡的参数�?/p>

��虎无忧 2009-07-23 11:26 发表评论

欧美日韩高清不卡,国产精品久久午夜夜伦鲁鲁,一本久久综合亚洲鲁鲁五月天