DSPack各种使用方法

1. DSPack 2.3.4 安装

 

一. 下载
由于sourceforge最近不能访问，所以可以去 http://www.progdigy.com/ 下载。
下载 http://www.progdigy.com/files/DSPACK234.zip 后，解压缩到一个目录（我用的是C:\Borland\VCL\DSPACK234）。

二. 安装

1 增加搜索路径 (DSPackDir)\src\DirectX9 和 (DSPackDir)\src\DSPack

在delphi7中选择菜单【Tools】-【Enviroment Options】，在打开的窗口中选择Library页签，在Library Path一项中添加这两个目录C:\Borland\VCL\DSPACK234\src\Directx9 ;C:\Borland\VCL\DSPACK234\src\DSPack

（将其直接粘贴在原有内容的后面，或者点击Library Path后面的...按钮添加）

2 编译 (DSPackDir)\packages\DirectX9_D7.dpk

双击(DSPackDir)\packages\DirectX9_D7.dpk，在delphi7中会显示一个关于重新创建资源文件的对话框，点击OK就可以了。
在delphi7中的打开窗口中点击compile按钮，完成编译。
在delphi7中选择菜单【File】-【Close All】，在提问是否保存时，选择保存。

3 编译 (DSPackDir)\packages\DSPack_D7.dpk

双击(DSPackDir)\packages\DSPack_D7.dpk，在delphi7中会显示一个关于重新创建资源文件的对话框，点击OK就可以了。 
在delphi7中的打开窗口中，点击compile按钮，完成编译。

在delphi7中选择菜单【File】-【Close All】，在提问是否保存时，选择保存。

4 编译并安装 (DSPackDir)\packages\DSPackDesign_D7.dpk

双击(DSPackDir)\packages\DSPackDesign_D7.dpk，在delphi7中会显示一个关于重新创建资源文件的对话框，点击OK就可以了。 
在delphi7中的打开窗口中，点击compile按钮，完成编译。 点击Install按钮，完成安装。
在delphi7中选择菜单【File】-【Close All】，在提问是否保存时，选择保存。

至此，安装已完成，在delphi的控件面板上可以找到DSPack的页签了。

如果在Delphi5或6中安装，则选择对应的D5或D6的文件。

（安装过程中遇到了一个编译错误，说找不到Jedi.inc。这个文件在src\Directx9目录下，为什么不能搜索。原来文档里写的路径是 (DSPackDir)\src\Directx9，而实际解压缩出来的目录名是DirectX9，所以添加搜索路径的时候一定要注意这个问题。把x改成X后，编译就通过了）

2. 用DSPack播放视频

 

安装完后，开始学习DSPack。
首先，要阅读一下(DSPackDir)\help目录下的help.chm文件，粗略地看了一下，内容太多看不出头绪。
还是先学习一下(DSPackDir)\Demos\D6-D7目录下的那些例子，边动手做边学习吧。

研究的第一个例子是PlayWin。研究了一下，主要使用TFilterGraph和TVideoWindow来完成。
TFilterGraph是DSPack中的核心类，其他类都要围绕着它，但是怎么理解它还不清楚。TVideoWindow是个显示播放视频的控件。这两个类的关系好像是数据库控件中Dataset控件和DBGrid控件的关系一样。

看得差不多后，自己照葫芦画瓢仿制一个。

1. 新建一个应用，在界面上先放4、5个按钮。
2. 在控件面板上选择DSPack那页，把前两个控件（TFilterGraph和TVideoWindow）在窗口上各放一个。
3. 关联
   选中VideoWindow1控件，在属性窗口中将FilterGraph属性设置为FilterGraph1。
   选中FilterGraph1控件，确认属性窗口中的Mode属性为gmNormal。

4.为Form1增加一个onCreate事件处理程序。
内容为：
    if not FilterGraph1.Active then FilterGraph1.Active := true;
    FilterGraph1.ClearGraph;
    FilterGraph1.RenderFile('E:\v\951.wmv'); // 简化一点，这里用你本地硬盘上的一个视频文件

5. 为Form1增加一个onCloseQuery事件处理程序。
内容为：
    FilterGraph1.Active := false ;

6.把button1的Caption改为Start，并增加一个OnClick事件
内容为：
    FilterGraph1.Play;

运行一下，就可以播放了。下面再增加几个功能按钮，如pause、stop。

7. 把button2的Caption改为Pause，并增加一个OnClick事件
内容为：
   FilterGraph1.Pause;

8. 把button3的Caption改为Stop，并增加一个OnClick事件
内容为：
    FilterGraph1.stop;

可以看出4-8步都是调用了TFilterGraph类的方法。

下面，再增加个全屏功能吧。
9. 把button4的Caption改为FullScreen，并增加一个OnClick事件
内容为：
    VideoWindow1.FullScreen :=true ;
   
10. 为VideoWindow1增加一个OnClick事件
内容为：
if videowindow1.FullScreen then
    videowindow1.FullScreen := false ; //退出全屏方式

一般的视频播放创窗口都有一个进度条，现在我们也来加一个。
A.1. 在DSPack控件面板上选择倒数第2个控件（TDSTrackBar），放到在窗口上。
A.2. 关联
   选中DSTrackBar1控件，在属性窗口中将FilterGraph属性设置为FilterGraph1。(这一步好像很熟悉哦)

重新运行程序，你就会看到一个进度条，并且能够使用这一进度条来调整播放的进度。

3. 使用DSPack打开摄像头

 

现在我们来看看(DSPackDir)\Demos\D6-D7目录下的PlayVideoCap，这是一个打开本机的视频输入设备的例子。

在这个例子中，又用到了一个新类：TFilter。

在我们依葫芦画瓢之前，你要装个摄像头或虚拟摄像头。虚拟摄像头可以用VCDCut、Softcam或Vcam等软件，也可以使用9158（http://www.9158.com/）或MVBox（http://www.mvbox.cn/）的虚拟视频。

先跟上次一样：

1. 新建一个应用，在界面上先放4、5个按钮，这次多放一个Listbox，这个列表框中将列出系统中安装的视频输入设备。
2. 在控件面板上选择DSPack那页，把前两个控件（TFilterGraph和TVideoWindow）在窗口上各放一个。

下面该有所不同了

3.在DSPack中选择TFilter控件，放到窗口上。
4.选中FilterGraph1控件，在属性窗口中将Mode属性设为gmCapture。
5. 关联
   选中VideoWindow1控件，将FilterGraph属性设置为FilterGraph1。
   选中Filter1控件，将FilterGraph属性设置为FilterGraph1。

6. 在代码模式中，在Interface后的Uses中增加
DSUtil, DirectShow9,
在implementation前面的Var中增加
SysDev: TSysDevEnum;

7. 为Form1增加一个onCreate事件处理程序，读取系统中的视频输入设备。
内容为：
var
i: integer;
begin
// 读取系统中的视频输入设备
SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
    for i := 0 to SysDev.CountFilters - 1 do
    begin
      Listbox1.Items.Add(SysDev.Filters[i].FriendlyName)
    end;

end;

7. 同前。为Form1增加一个onCloseQuery事件处理程序。
内容为：
    SysDev.Free;
    FilterGraph1.ClearGraph;
    FilterGraph1.Active := false ;

8. 为Listbox1增加一个onClick事件处理程序
内容为：
FilterGraph1.ClearGraph;
FilterGraph1.Active := false;
//设filter为所选视频输入设备
Filter1.BaseFilter.Moniker := SysDev.GetMoniker(Listbox1.ItemIndex);
FilterGraph1.Active := true;
// 打开所选的视频输入设备
with FilterGraph1 as ICaptureGraphBuilder2 do
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, nil, VideoWindow1 as IbaseFilter);
// 显示出来
FilterGraph1.Play;

运行一下试试，看是否能看到自己的摄像头的内容。

几个按钮没用，等到下一个例子用吧。

4. DSPack抓帧

 

在例子PlayVideoCap中，还有抓帧和回放的功能。这用到第4个控件TSampleGrabber。

我们以前两个例子为基础，增加抓帧的功能。
打开前面的例子，然后：

1. 在DSPack中选择TSampleGrabber控件，放到窗口上。然后将其FilterGraph属性设置为FilterGraph1。
2. 在选择一个标准控件TImage（在Additional页签中），放在窗口上。
3.讲一个没用的按钮的Caption改为“Snapshot”，在它的OnClick事件中写：
SampleGrabber1.GetBitmap(Image1.Picture.Bitmap);

前面两个例子都可以这样增加抓帧功能。不过，对于第二个例子（即操作摄像头的例子），需要做额外的修改，就是：
将
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, nil, VideoWindow as IbaseFilter);
改为
    RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);

这样就可以了

5. DirectShow基本概念

 

到这里，我基本用DSPack做了一点东西，了解了DSPack中的3个基本类及其一些方法。但要理解它们，还要了解一下DirectShow中Filter Graph、Filter、Pin的基本概念。

在网上找了一些资料，比较好资料的地址为 http://www.yesky.com/259/1854259.shtml ，大部分资料都来自于陆其明写的《DirectShow开发指南》和《DirectShow实务精选》两本书。
总结如下：

1) DirectShow的系统结构

DirectShow的体系结构如图1所示。

图1 DirectShow系统

DirectShow位于应用层中。它使用一种叫Filter Graph的模型来管理整个数据流的处理过程；参与数据处理的各个功能模块叫Filter；各个Filter 在Filter Graph中按一定的顺序连接成一条“流水线”协同工作。

（ 可以看出TFilterGraph是个Filter的容器 ）

按照功能来分，Filter大致分为三类：Source Filters、Transform Filters和Rendering Filters。
Source Filters主要负责取得数据，数据源可以是文件、因特网、或者计算机里的采集卡、数字摄像机等，然后将数据往下传输；
Transform Fitlers主要负责数据的格式转换、传输；
Rendering Filtes主要负责数据的最终去向，我们可以将数据送给声卡、显卡进行多媒体的演示，也可以输出到文件进行存储。

在DirectShow系统之上，我们看到的，即是我们的应用程序（Application）。应用程序要按照一定的意图建立起相应的Filter Graph，然后通过Filter Graph Manager来控制整个的数据处理过程。DirectShow能在Filter Graph运行的时候接收到各种事件，并通过消息的方式发送到我们的应用程序。这样，就实现了应用程序与DirectShow系统之间的交互。

2) Filter概述以及连接

过滤器(Filter)是DirectShow中最基本的概念。DirectShow是通过Filter Graph来管理Filter的。Filter Graph是Filter的“容器”，而Filter是Filter Graph中的最小功能模块。

Filter是一种COM组件，对于每个Filter，都有其自己的Pin，它是由Filter创建的COM对象。 Filter通过Pin来进行他们之间的连接。

Pin分为两种：输出Pin和输入Pin。输出的Pin把Filter处理后的数据传送到Filter的外 部，而输入Pin则是把Filter外部的数据接收到Filter中，以便Filter对这些数据进行处理。

对于三种类型的Filter（Source Filter，Transform Filter，Rendering Filter）的连接图如下:

 

图2 Filter的连接

可以根据Filter所包含的输入Pin和输出Pin的熟练来判断Filter的类型：
只有输出Pin，没有输入pin，为Source Filter
既有输出Pin，又有输入pin，为Transform Filter
没有输出Pin，只有输入pin，为Rendering Filter

3）DirectShow 的重要接口

DirectShow采用了COM标准，所以很多重要的功能都是通过COM接口来完成。下面就列举一些重要的DirectShow的接口。

(1) IGraphBuilder接口

用于构造Filter Graph的接口，建立和管理一系列的Filter，过滤和处理源媒体流。

(2) IMediaControl接口

用于控制多媒体流在Filter Graph中的流动，如流的启动和停止。

(3) IMediaEvent接口

用于捕获播放过程中发生的事件，并通知应用程序，如EC_COMPLETE等。

(4) IVideoWindow接口

用于控制视频窗口的属性。

(5) IMeadiaSeeking接口

用于查找媒体的接口，定位流媒体，控制多媒体数据播放提供精确控制。

(6) IBaseFilter接口

从ImediaFilter接口继承，用来定义一个具体的过滤器指针，并对多媒体数据进行处理。

(7) IPin接口

用于管理两个过滤器之间的Pin，从而连接过滤器。

(8) IsampleGrabberCB接口

是Sample Grabber过滤器的一个接口，用于当流媒体数据通过过滤器时进行采样以获得帧图象。

还有一个可以参考的介绍，地址为：http://www.yesky.com/259/1854259.shtml

Filter是一种COM组件。为了实现在Filter Graph中的统一操作，每个Filter上都至少实现了一个IBaseFilter接口。实现Filter的文件一般是一个DLL，扩展名可以是.dll，但更多的时候是.ax。

Filter必须加入到Filter Graph并接入到工作链路中才能发挥作用。如果想绕过Filter Graph而直接使用Filter实现的功能模块，那就要将Filter功能移植成DirectX媒体对象（DMO）。

在使用Filter之前，必须注册。 命令格式为
regsvr32 c:\yourdirectory\yourfilter.ax

Filter Chain是相互连接着的一条Filter链路，并且链路中的每个Filter全都有一个处于“已连接”状态的输入Pin，至多有一个处于“已连接”状态的输出Pin，这条Filter链路中的数据流不依赖链路外的其他Filter。Filter Chain通过IFilterChain接口来进行相关操作。

当Filter Graph处于运行状态下，Filter Chain可以在运行和停止状态之间切换；
当Filter Graph处于暂停状态下，Filter Chain可以在暂停和停止状态之间切换。这是Filter Chain仅有的两种状态转换。

Filter的数据传送
Filter之间以Sample的形式传送数据。Sample是一个封装了一定大小数据内存的COM组件。用于数据传输的一般是输入pin上实现的IMemInputPin接口。

Filter有3种状态：停止、暂停和运行。