现今自己编程做一个多媒体播放工具是一件很令人开心愉悦的事情,但如果使用MediaPlay控件开发则会受到很多限制,自己的很多好的创意想 法都无法或者很难实现,如果利用微软的DirectX接口开发则可以充分的将作者的独特想法付诸于实现,何乐而不为呢!!不过关于DirectShow接 口的开发说明文档实在是少之又少,仅有的一些不是英文的就是一些关于理论方面的,真正关于接口实战编程而且是用Delphi开发工具实现的更是凤毛麟角, 使很多人都望而却步。在这里,我把我应用Directshow开发的心得以及我搜集到一些资料重新整理编辑出来公布,希望对所有由此兴趣的同仁有所帮助, 就算达到了我的目的。废话少说,进入正文。
既然是接口实战篇,就先把一些常用的接口列出来,让大家有一些基本的认识,都是用来做什么的,什么时候我们会需要用到此接口。
好了,熟悉了应用DirectShow应用开发常用的接口后,我们就通过一个实例媒体播放器来熟悉掌握这些接口,实例的代码虽然简单,但五脏俱全,功能强大,同时也了解一下应用DirectShow开发一般常用的步骤。
(zblue78)大体说来,一般使用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 播放速度的设定 需要使用ImediaPosition的方法。 MediaPosition.put_Rate(1);//正常 MediaPosition.put_Rate(0.25);//慢速 MediaPosition.put_Rate(2);//快速
单帧播放控制 需要使用IvideoFrameStep的方法 VideoFrameStep.Step(1, nil);
音量控制 需要使用IbasicAudio的方法 增加音量:
显示放大缩小控制 只需改变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; 即可 |