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_IN
PROC_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;
