如何使MediaPlayer控件能重复播放avi文件?(null)
发信人: lhbwy (小波), 信区: Delphi
标 题: Re: 如何使MediaPlayer控件能重复播放avi文件?(null)
发信站: BBS 水木清华站 (Tue Jun 22 12:32:42 1999)
办法不只一个.
Mediaplayer有一个Position的属性.也可以在此作文章:
设计一个EndPosition的私有变量
在针对Mediaplayer的openfile方法初始化时加入以下程序
Mediaplayer1.Open;
Mediaplayer1.Next;
EndPosition:=Mediaplayer1.Position; //读出结束位置
Mediaplayer1.Rewind;
然后在该Form上加上一个Timer控件.再针对其Timer1.Timer方法编程
If Mediaplayer1.Position=EndPosition then
begin
Mediaplayer1.ReWind;
Mediaplayer1.Play;
end;
Timer1的Interval最好设计小一点(200);
【在 advanced (maggi) 的大作中提到: 】
--
※来源:·BBS 水木清华站 bbs.net.tsinghua.edu.cn·[FROM: TS.swjtu.edu.cn]
原创文章如转载，请注明：转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]
本文链接地址：http://www.abcxd.com/delphi/abcxddelphi/delphiDIRAA/226.html