转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
DirectShow之接口实战篇(二)         ★★★★

DirectShow之接口实战篇(二)

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1402 更新时间:2009/4/23 18:38:09

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方法设置开始和结束时间。

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

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

[1] [2]  下一页


没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台