DirectShow之接口实战篇（二）

核心提示：DirectShow之接口实战篇（二） 大体说来，一般使用DirectShow接口编程无非3个步骤，DirectShow之接口实战篇（二），初始化接口，利用接口中的控制函数使用控制操作，停止，暂停等控制 这些需要使用ImediaControl接口的方法，最后释放接口，（当然这里假定你已经拥有了directshow.pa

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;