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);
当然在显示的时候要把显示窗体和控件关连起来,这里需要通过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;
未完待续