Haw Wang 先生，Haw Wang 先生，Haw Wang 先生：救命(100分)

如何下载您的“视频捕获控件”？给我发一份吧，救命。

http://www.8421.org/download.php?id=172

非常感谢，但是它在98和BT848视频卡工作正常，但在win2000和其它视频下
不能正常工作，为什么？是TVideoCap的原因还是Window操作系统
的问题或者视频卡的问题？怎么解决？请再次指教。

在98和2000下的工作应该都一样，都是利用vfw的接口，除非那个视频卡不支持vfw！

那怎么解决？用户用什么卡我们不知道啊,即使知道也不能一种卡做一个程序啊？
难死我了？请各位大侠拔刀相助，先谢谢了。

各位大侠：
视频捕捉“在98和2000下的工作应该都一样，都是利用vfw的接口”是这样吗？
怎么不同的文章上写的不一致？98和2000的vfw接口一样吗？真的需要对
98和2000分别编程吗？
谢谢。

提供一篇文章给你
在许多关于视频的软件(如视频会议、可视电话等)开发中，都应用了视频捕获技术。微软为软件开发人员提供了一个专门用于视频捕获的VFW (Video for Windows) SDK。VFW SDK为在Windows系统中实现视频捕获提供了标准的接口，从而大大降低了程序的开发难度。由于VFW SDK只有VC和VB版，没有Delphi版，因此需要在Delphi中一一声明DLL中的各个函数和变量（可以参考MSDN中的VC的函数声明以及变量定义）。本文分3部分介绍如何利用VFW在Delphi中开发视频捕获程序。
VFW简介
VFW是微软公司1992年推出的关于数字视频的一个软件包，它能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑。VFW的一个关键思想是播放时不需要专用硬件，为了解决数字视频数据量大的问题，需要对数据进行压缩。它引进了一种叫AVI的文件标准，该标准未规定如何对视频进行捕获、压缩及播放，仅规定视频和音频该如何存储在硬盘上，以及在AVI文件中交替存储视频帧和与之相匹配的音频数据。VFW使程序员能通过发送消息或设置属性来捕获、播放和编辑视频剪辑。在Windows 9x系统中,当用户在安装VFW时，安装程序会自动地安装配置视频所需要的组件，如设备驱动程序、视频压缩程序等。
VFW主要由以下6个模块组成：
●AVICAP.DLL：包含执行视频捕获的函数，它给AVI文件的I/O处理和视频、音频设备驱动程序提供一个高级接口；
●MSVIDEO.DLL：包含一套特殊的DrawDib函数，用来处理屏幕上的视频操作；
●MCIAVI.DRV：包括对VFW的MCI命令解释器的驱动程序；
●AVIFILE.DLL：包含由标准多媒体I/O（mmio）函数提供的更高的命令，用来访问.AVI文件；
●压缩管理器（ICM）：用于管理的视频压缩/解压缩的编译码器（Codec）；
●音频压缩管理器ACM：提供与ICM相似的服务，适用于波形音频。
开发步骤
AVICap窗口类支持实时的视频流捕获和单帧捕获，并提供对视频源的控制。虽然MCI也提供数字视频服务(比如它为显示.AVI文件的视频提供了AVI VIDEO命令集)，为视频叠加提供了Overlay命令集，但这些命令主要是基于文件的操作，它们不能满足实时地从视频缓存中取数据的要求， 对于使用没有视频叠加能力的捕获卡的PC机来说， 用MCI提供的命令集是无法捕获视频流的。而AVICap窗口类在捕获视频方面具有一定的优势，它能直接访问视频缓冲区，不需要生成中间文件，实时性很强，效率很高。而且，它还可将数字视频捕获到一个文件中。
1.创建“捕获窗”
在进行视频捕获之前必需要先创建一个“捕获窗”，并以它为基础进行所有的捕获及设置操作。“捕获窗”用AVICap窗口类的“CapCreateCaptureWindow”函数来创建，其窗口风格一般为WS_CHILD和WS_VISIBLE。
捕获窗类似于标准控件（如按钮、列表框等），并具有下列功能：
●将视频流和音频流捕获到一个AVI文件中；
●动态地同视频和音频输入器件连接或断开；
●以Overlay或Preview模式对输入的视频流进行实时显示；
●在捕获时，可指定所用的文件名并能将捕获文件的内容拷贝到另一个文件；
●设置捕获速率；
●显示控制视频源、视频格式、视频压缩的对话框；
●创建、保存或载入调色板；
●将图像和相关的调色板拷贝到剪贴板；
●将捕获的单帧图像保存为DIB格式的文件。
2．关联捕获窗和驱动程序
单独定义的一个捕获窗是不能工作的，它必需与一个设备相关联，这样才能取得视频信号。用函数CapDriverConnect可使一个捕获窗与一个设备驱动程序相关联。
3．设置视频设备的属性
通过设置TcaptureParms结构变量的各个成员变量，可以控制设备的采样频率、中断采样按键、状态行为等等。设置好TCaptureParms结构变量后，可以用函数CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate来设置预览的比例与速度，也可以直接使用设备的默认值。
4．打开预览
利用函数CapOverlay选择是否采用叠加模式预览，这样占用系统资源小，并且视频显示速度快。然后用CapPreview启动预览功能，这时就可以在屏幕上看到来自摄像机的图像了。
通过以上4步就可以建立一个基本的视频捕获程序。但如果想自已处理从设备捕获到的视频数据，则要使用捕获窗回调函数来处理，比如一帧一帧地获得视频数据或以流的方式获得视频数据等等。
实例编程
下面以一个一帧一帧地从视频设备上捕获视频数据的Delphi程序为例，来说明每个函数的作用以及开发过程。
该程序的功能是可以在屏幕上显视捕获到的视频，并可以获得每一帧的图像数据。
新建一个工程，并将AVICAP32.PAS包含到USES中。
在Form1上放置一个TPanel控件，设Name为“gCapVideoArea”，该控件用于显示视频。再放置两个TButton控件，一个Name为“Openvideo”，另一个Name为“Closevideo”。
定义全局变量：
var
//定义捕获窗句柄
ghCapWnd: THandle;
//可以得到视频数据指针的结构变量，用于回调函数中
VideoStr: LPVIDEOHDR;
//用于设置设备属性的结构变量
CapParms: TCaptureParms;
在Name为“Openvideo”的TButton 的Click事件中写入以下代码：
procedure TForm1.OpenvideoClick(Sender: TObject);
begin
//使用Tpanel控件来创建捕获窗口
ghCapWnd := CapCreateCaptureWindow
( PChar(‘KruwoSoft'), //捕获窗口的名字
WS_CHILD or WS_VISIBLE,//窗口样式
0, //X坐标
0, //Y坐标
gCapVideoArea.Width, //窗口宽
gCapVideoArea.Height, //窗口高
gCapVideoArea.Handle, //窗口句柄
0); //一般为0
{为了能够捕获视频帧，要启动一个捕获帧回调函数VideoStreamCallBack。捕获一个视频流或当前设备状态时分别使用以下函数：
//捕获一个视频流
CapSetCallbackOnVideoStream;
//得到一个设备错误
CapSetCallbackOnError;
//得到一个设备状态
CapSetCallbackOnStatus
}
//定义一个帧捕获回调函数
CapSetCallbackOnFrame (ghCapWnd,LongInt(@VideoStreamCallBack));
//将一个捕获窗口与一个设备驱程相关联，第二个参数是个序号，当系统中装有多个显视驱动程序时，其值分别依次为0到总个数
CapDriverConnect(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 := FALSE;
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);
//将捕获窗同驱动器断开
capDriverDisconnect(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;
灵活地使用AVICap窗口类的回调函数可以满足各种不同的需求，但要注意从视频卡中捕获的视频数据的格式和图像的长宽要参考视频卡的参数。而且有些视频卡通过设置可支持多种的格式和图像长宽，所以在还原图像时要注意参考所用的视频卡的参数。

简单的例子 不用控件 那样升级比较麻烦 ；（用的vfw）
//其它功能自己加
m_hCapWnd:Hwnd;

procedure TForm1.create(Sender: TObject); // 视频扑获处理
var
dwSize:Integer;
setBmp : BITMAPINFO ;
begin
try
m_hCapWnd:=capCreateCaptureWindow('',
WS_CHILD or WS_VISIBLE,0,0,AviPanel.width,AviPanel.height,AviPanel.Handle,0);
//avipanel 就是你要显示的视频窗口的；可以是form ,panel等
//AviPanel.width就是显示的宽度，AviPanel.height显示的高度；
if(capDriverConnect(m_hCapWnd,0)) then
begin
// capOverlay(m_hCapWnd,true);
capPreviewRate(m_hCapWnd,30); //设置帧率为30
capPreview(m_hCapWnd,true); // preview方式显示
dwSize:=capGetVideoFormatSize(m_hCapWnd);
capGetVideoFormat(m_hCapWnd,@setBmp, dwSize);
setBmp.bmiHeader.biWidth:=352; //这个就是设置你捕捉图片的大小了 宽度 ：）
setBmp.bmiHeader.biHeight:=288; //这个就是设置你捕捉图片的大小了 高度 ：）
capSetVideoFormat(m_hCapWnd,@setBmp,dwSize);
end;
except
end;
end;

procedure TForm1.close(Sender: TObject; var Action: TCloseAction);// 视频扑获处理
begin
capDriverDisconnect(m_hCapWnd);// vfw 里面的标准函数
end;

谢谢BlackBook先生，下面是一位外国朋友对 VFW 的观点，请您参考：
I think you should better not use Video for Windows for applications
for Win 2000 and XP. It's no longer supported from Microsoft.
There is a bridge between VfW and WDW drivers at current versions of Windows,
but these bridge will miss in the future and doesn’t work with all hardware.
Better you use a component based on DirectShow.
I tried it and I will use it also for further projects.
The problem is, there is no description....
Best Regards
J.H.
您认为如何？

对阿 ，vfw的接口在win98和win2000下面的确没有变。由于win2000是以com+为核心的。
所以对directshow的支持跟好一些。 如：
win98下面的设置视频源，设置视频格式等的vfw操作 在win2000下面都变了样。 如：
怎样在vfw下面不用对话框来设置捕捉格式为al制式，在win2000下面vfw就无论为力了。
所以一般的解决方案是：对于功能需求不复杂的程序用vfw来解决。（vfw对资源要求较低）；
如果是要功能强大，最好就用directshow,由于directshow要自己通过filter来生成视频流等。
所以对资源（cpu的资源）耗费太厉害。如果机器配置较低 一般就不要用directshow;
在directshow下面 delphi应用有一个比较好的空间;dspack;
我给你一个连接地址 你自己下载（需要direct8.0以上版本);
http://www.progdigy.com/
上面有demo;

还有 你的emai:zhoufujin@sofu.com好像不能用 我发了几次有没有成功；

十分感谢您BlackBook，我的Email是ZhouFuJin@sohu.com
正象您说的directshow所以对资源（cpu的资源）耗费太厉害，低档机不适用，
我的应用不复杂，只是要求在98和2000下都能运行即可，至于“设置视频源，
设置视频格式等的vfw操作 ”都用对话框就是了，我的疑问是：
用vfw在98下编写的程序能否不加任何修改直接在2000上运行？如果不行，
怎么解决好一些？敬请再次指点迷津。谢谢。

98下开发的vfw程序能在2000下正常运行。
vfw接口是一样的！我的程序98下和2000下都一样跑。

感谢诸位。给大家付款了。

只要你的捕捉卡有win2000的驱动程序（支持vfw的） 那么 就可以不做任何修改而直接使用。
（win95/win98/win2000都行）。