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所示。

DSPack各种使用方法_第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种状态:停止、暂停和运行。

你可能感兴趣的:(DSPack各种使用方法)