我用MediaPlayer控件做了一个多媒体播放器,有几个BUG,请高手赐教,谢谢(50分)

  • 主题发起人 主题发起人 柳风
  • 开始时间 开始时间

柳风

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好!我用MediaPlayer控件做了一个多媒体播放器,发现用来放影碟的时候,
随着播放进度控件Scrollbar一点点的移动,影片会每隔几秒就停顿1秒,播放得
很不流畅;另外我把窗体全屏化的时候,最上面的蓝条和底下的托盘栏没有被覆
盖,到底如何才能实现象解霸那样的全屏化呢?我找“帮助”也没有,恳请众高
手指点迷津,不胜感激!!!
 
如果要作到象超解一样的全屏界面我建议你用DirectX,而且它就是这样用的,原理就是
建立两个页面缓冲不挺的交互播放,D4是支持的!
 
不用DirectX也可以达到你的要求。
我曾经也做过一个播放器,直接用窗体播放,也很流畅。方法是:
procedure TMyPlayerForm.OpenClick(Sender: TObject);
begin

MediaPlayer.Display:=MyVCDShowScreen;
if MyOpenDialog.Execute then

begin

MediaPlayer.FileName :=MyOpenDialog.FileName
MediaPlayer.Open
end
end;

procedure TMyPlayerForm.MaxShowClick(Sender: TObject);
begin

MyVCDShowScreen.BorderStyle:=bsNone;
MyVCDShowScreen.Show;
MyVCDShowScreen.WindowState :=wsMaximized;
MyVCDShowScreen.FormResize(Sender);
end;
 
我做的也是这样,可能是控件的问题
你是不是在timer的timer事件里写了很多东西。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部