DirectShow之接口实战篇

现今自己编程做一个多媒体播放工具是一件很令人开心愉悦的事情，但如果使用MediaPlay控件开发则会受到很多限制，自己的很多好的创意想法都无法或者很难实现，如果利用微软的DirectX接口开发则可以充分的将作者的独特想法付诸于实现，何乐而不为呢！！不过关于DirectShow接口的开发说明文档实在是少之又少，仅有的一些不是英文的就是一些关于理论方面的，真正关于接口实战编程而且是用Delphi开发工具实现的更是凤毛麟角，使很多人都望而却步。在这里，我把我应用Directshow开发的心得以及我搜集到一些资料重新整理编辑出来公布，希望对所有由此兴趣的同仁有所帮助，就算达到了我的目的。废话少说，进入正文。

既然是接口实战篇，就先把一些常用的接口列出来，让大家有一些基本的认识，都是用来做什么的，什么时候我们会需要用到此接口。

IFilterGraph	过滤通道接口
IFilterGraph2	增强的IFilterGraph
IGraphBuilder	最为重用的COM接口,用于手动或者自动构造过滤通道Filter Graph Manager
IMediaControl	用来控制流媒体，例如流的启动和停止暂停等,播放控制接口
IMediaEvent	播放事件接口 ,该接口在Filter Graph发生一些事件时用来创建事件的标志信息并传送给应用程序
IMediaEventEx	扩展播放事件接口
IMediaPosition	播放的位置和速度控制接口(控制播放位置只能为设置时间控制方式)
IMediaSeeking	另一个播放的位置和播放速度控制接口,在位置选择方面功能较强.设置播放格式，多种控制播放方式.常用的有:(1)TIME_FORMAT_MEDIA_TIME单位100纳秒。(2)TIME_FORMAT_FRAME按帧播放
IBasicAudio	声音控制接口
IBasicVideo	图像控制接口(波特率，宽度，长度等信息)
IVideoWindow	显示窗口控制接口 (有关播放窗口的一切控制，包括caption显示，窗口位置控制等)
ISampleGrabber	捕获图象接口(可用于抓图控制)
IVideoFrameStep	控制单帧播放的接口

好了，熟悉了应用DirectShow应用开发常用的接口后，我们就通过一个实例媒体播放器来熟悉掌握这些接口，实例的代码虽然简单，但五脏俱全，功能强大，同时也了解一下应用DirectShow开发一般常用的步骤。

大体说来，一般使用DirectShow接口编程无非3个步骤，初始化接口，利用接口中的控制函数使用控制操作，最后释放接口。（当然这里假定你已经拥有了directshow.pas等必须单元，如果没有的话请在网上查找或者向我索要）（注：以下变量没有定义，需自己定义使用）

1) 初始化接口部分

首先，需要定义需要使用的接口变量

GraphBuilder: IGraphBuilder;

MediaControl: IMediaControl;

MediaSeeking: IMediaSeeking;

MediaPosition: IMediaPosition;

MediaEventEx: IMediaEvent;

BasicAudio: IBasicAudio;

BasicVideo: IBasicVideo;

VideoWindow: IVideoWindow;

SampleGrabber: ISampleGrabber;

VideoFrameStep: IVideoFrameStep;

(1)然后需要使用CoCreateInstance函数创建一个Filter Graph Manager 实例，CoCreateInstance(TGUID(CLSID_FilterGraph),nil, CLSCTX_INPROC_SERVER,

TGUID(IID_IGraphBuilder),GraphBuilder)

因为需要抓图使用IsampleGrabber接口，需要创建SampleGrabber实例，

var Filter: IBaseFilter;

CoCreateInstance(CLSID_SampleGrabber, nil, CLSCTX_INPROC_SERVER,

IID_IBaseFilter, Filter);

(2) 调用QueryInterface函数获取来获取指针，好以后操作控制

Filter.QueryInterface(IID_ISampleGrabber, SampleGrabber);

GraphBuilder.AddFilter(Filter, ''Grabber'');

GraphBuilder.QueryInterface(IID_IMediaControl, MediaControl);

GraphBuilder.QueryInterface(IID_IMediaPosition, MediaPosition);

GraphBuilder.QueryInterface(IID_IMediaSeeking, MediaSeeking);

GraphBuilder.QueryInterface(IID_IMediaEventEx, MediaEventEx);

GraphBuilder.QueryInterface(IID_IVideoFrameStep, VideoFrameStep);

GraphBuilder.QueryInterface(IID_IBasicAudio, BasicAudio);

GraphBuilder.QueryInterface(IID_IBasicVideo, BasicVideo);

GraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow);

当然为了安全起见，可以对以上每个过程进行是否成功判断，给出信息，否则很有可能出现问题找不到头绪。好了，一切准备成功，就可以进入第三步，开始我们的控制操作了。

(3)通过接口提供的函数开始控制

哦，差点忘记一件重要的事情，在上面调用QueryInterface之前，还有两件重要的事情要做，第一，要建立一个Unicode(wide character)字符串，保存文件名。

var _wfile: array[0..MAX_PATH - 1] of wchar;

MultiByteToWideChar(CP_ACP, 0, pChar(播放文件名), -1, @_wfile, MAX_PATH);

然后需要成功RenderFile才可以控制操作GraphBuilder.RenderFile(_wfile, nil);

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

当然在显示的时候要把显示窗体和控件关连起来，这里需要通过IvideoWindow接口方法，VideoWindow. put_Owner(Edit1.Handle);

VideoWindow. put_WindowStyle(DSVIDEO_WINDOW_CHILD_STYLE);

VideoWindow.SetWindowPosition(0,0, Edit1.ClientWidth, Edit1.ClientHeight);

得到图象的一些必要信息，使用IbasicVideo接口中的方法，一些变量自己定义，

BasicVideo.GetVideoSize(VideoWidth, VideoHeight);

BasicVideo.get_BitRate(VideoBitRate);

BasicVideo.get_AvgTimePerFrame(PerFrame);

得到当前文件的总时间以及播放时间，需要使用ImediaSeeking接口方法，

MediaSeeking.GetDuration(Duration);//得到总时间

MediaSeeking.GetCurrentPosition(CurrentPos);//得到当前播放时间

也可以通过IMediaSeeking::SetPositions方法设置开始和结束时间。

哦，这里得到的单位好像是毫米级的，可以自己转化为秒级的.

还有，如果想以后能够单帧控制播放，在这里也需要设定播放格式为按帧播放。

MediaSeeking.SetTimeFormat(Time_Format_Frame);

播放，停止，暂停等控制

这些需要使用ImediaControl接口的方法，控制起来很简单，分别为

MediaControl.Play;

MediaControl.Stop;

MediaControl.Pause

播放速度的设定

需要使用ImediaPosition的方法。

MediaPosition.put_Rate(1);//正常

MediaPosition.put_Rate(0.25);//慢速

MediaPosition.put_Rate(2);//快速

单帧播放控制

需要使用IvideoFrameStep的方法

VideoFrameStep.Step(1, nil);

音量控制

需要使用IbasicAudio的方法

增加音量：
BasicAudio.get_Volume (&volume);//得到音量
volume:= volume +volumestep;
BasicAudio.put_Volume (volume);//增加一定的音量的分贝
减小音量：
BasicAudio.get_Volume (&volume); //得到音量
volume:= volume -volumestep;
BasicAudio.putVolume (volume); //减小一定音量的分贝

显示放大缩小控制

只需改变Edit1的大小，然后使用IvideoWindow接口方法即可

VideoWindow.SetWindowPosition(0, 0, Edit1.Width, Edit1.Height);

单帧捕获，抓图

其实很多接口都提供了此功能，但是我更倾向于使用IsampleGrabber接口来实现，相对来说，效率高些。

这个控制起来做的工作稍微多些，首先，在打开文件的时候

var MediaType: TAM_MEDIA_TYPE;

ZeroMemory(@MediaType, SizeOf(TAM_MEDIA_TYPE));

MediaType.majortype := MEDIATYPE_Video;//视频流

MediaType.subtype := MEDIASUBTYPE_RGB24;//24位图象

MediaType.formattype := FORMAT_VideoInfo;

SampleGrabber.SetMediaType(MediaType);//关联接口

SampleGrabber.SetBufferSamples(True);

然后在抓图按钮事件中如下操作

var

MediaType: TAM_MEDIA_TYPE;

VideoInfoHeader: TVideoInfoHeader;

BitmapInfo: TBitmapInfo;

Bitmap: HBitmap;

Buffer: Pointer;

BufferSize: Integer;

begin

SampleGrabber.GetConnectedMediaType(MediaType);

ZeroMemory(@VideoInfoHeader, SizeOf(TVideoInfoHeader));

CopyMemory(@VideoInfoHeader, MediaType.pbFormat, SizeOf(VideoInfoHeader));

ZeroMemory(@BitmapInfo, SizeOf(TBitmapInfo));

CopyMemory(@BitmapInfo, @VideoInfoHeader.bmiHeader, SizeOf(VideoInfoHeader.bmiHeader));

Bitmap:=CreateDIBSection(0, BitmapInfo, DIB_RGB_COLORS, Buffer, 0, 0);

SampleGrabber.GetCurrentBuffer(BufferSize, Buffer);

Image1.Picture.Bitmap.Handle:=Bitmap

end;

即可