MediaPlayer的一个非常简单的使用,

Question

var Rect: TRect;
-------- 
 Rect.Right:=Panel1.Width;
  Rect.Bottom:=Panel1.Height;
  Rect.Left:=0;
  Rect.Top:=0;
  MediaPlayer1.Display:=Panel1;
  MediaPlayer1.DisplayRect := Rect;
---------------
我的本意是想让MediaPlayer1播放视频的时候,让该视频缩放到panel整个区域里播放
但是,显示的时候还是没有达到效果,请问是哪个属性没设置还是?

Answer 1

MediaPlayer性能比较差，特别是在全屏与窗口切换的时候，会卡一下，很不爽，建议换控件。

Answer 2

将分数提高到50分,没办法,又碰到了个问题,就是轮流播放指定的几个文件,指定的文件用sltFlvList保存(TStringList类型)代码如下begin
if MediaPlayer1.Position >= MediaPlayer1.Length then       //一个视频节结束
  begin
    MediaPlayer1.Close;
    if iIndex <sltFlvList.Count-1 then
      Inc(iIndex)
    else 
      iIndex := 0;
    try
      MediaPlayer1.FileName := sltFlvList.Strings[iIndex];
      MediaPlayer1.Open;
      MediaPlayer1.DisplayRect := Rect(0,0,Panel1.Width,Panel1.Height);
      MediaPlayer1.Play;    except
      on E:Exception do
      begin
        ShowMessage(E.Message);
      end;
    end;
  end;
 MediaPlayer1.Notify := True;
end;
但是结果发现播到某个文件出现停止现象,请问这是怎么回事,求救解决之道!

Answer 3

dspack
这个控件很不错的
多学学吧