在Delphi中播放视频文件(急........)

请教:如何在Delphi中播放.avi视频文件,方式:单击Delphi上的一个menu,然后即可播放.avi视频文件.在此先谢谢各位了!

解决方案 »

  1.   

    用TMediaPlayer或者TWindowMediaPlayer都可以
      

  2.   

    用TMediaPlayer或者TWindowMediaPlayer都可以
    或者用其他控件  或者 直接读取avi格式
      

  3.   

    用TMediaPlayer写了，编译的时候说"file not found:'TWindowMediaPlayer.dcu'",我在uses里也引用了TWindowMediaPlayer 那现在要怎么办呢？
      

  4.   

    Delphi本身有个控件可直接播放avi文件的，叫什么我记不清楚了，好像是TAn...什么的，你自己找找。
      

  5.   

    刚才看了一下，那个元件不行，使用TWindowMediaPlayer吧。使用前，选择Component->Import ActiveX Control,在列表中选择Windows Media Player，安装成功后，在ActiveX页面就有了TWindowMediaPlayer控件，设置其URL属性为媒体文件名就行了
      

  6.   

    谢谢各位了，那语句该怎么写呢？我用的是Twindowsmediaplayer控件，名字为改为mediaplayer1
    语句是这样写的：  mediaplayer1.FileName:=文件路径;   
                      mediaplayer1.Display:=form2.Panel1;   
                      mediaplayer1.Shareable:=true;   
                      mediaplayer1.Open;   
                      mediaplayer1.DisplayRect:=form2.Panel1.ClientRect;   
                      form2.Show;   
                      mediaplayer1.Play;
    有哪里错了吗？不然该怎么写呢？谢谢了！
      

  7.   

    建议使用DsPack控件，地址：http://www.delphifans.com/dl.asp?no=2&id=512&size=1767
    安装完成后在默认的安装位置下有DEMO演示程序源码（通常是C:\Program Files\DsPack\Demos）
    打开DSVideoWinDowEx\PlayWin\文件夹，用Delphi打开PlayWin.dpr工程，即可打开AVI，MPG，MPEG，ASF文件。好好参考一下源码吧。DEMOS里面还有好多好东东啊，许多我弄不明白，比如播放DVD就没有声音，而用PlayWin打开VOB文件直接播放就有声音，真奇怪。如果有朋友知道请告之，不甚感激。欢迎交流：QQ160439096。说明：DsPack 需要DirectX 9支持。Windows XP SP2就是这个版本。如果是Windows2003或者是Windows XP SP1之前版本，请在这个地址下载http://www.onlinedown.net/soft/5288.htm
      

  8.   

    我在上面已经给你说了怎么设置“设置其URL属性为媒体文件名就行了”
      

  9.   

    以前做过一个基于WMP的万能播放器 
    如果需要源程序参考可以加QQ群：6324513  
    我发给你
      

  10.   

    怎么让Twindowsmediaplayer控件可以播放Vob文件呢???
      

  11.   

    谢谢各位的帮忙，那如果我想连续播放多个avi文件要怎么做呢？就是我连续点击多个menu然后点击以后就可以让这个程序连续播放我点击的所有menu所连接的avi文件，这样要怎么做呢？是要用CurrentAplayList属性嘛？要怎么用这个属性呢？谢谢了