为何不能播放多次(100分)

F

fee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #1

程序如下：
mediaplayer1.play;
mediaplayer1.play;
我写了两条播放语句但只能播放一篇，但按两次播放按钮则可以播放两次，但我想用程序来实现播放多次，　应该如何解决？

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #2

重疊播放﹖

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #3

1遍完了，才有2遍，你那样当然播放一篇
建议，建立变量播放完了，再来

 

F

fee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #4

dcsdcs：能不能给个简单例子？

 

碧

碧血剑

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-03

• #5

http://www.delphibbs.com/delphibbs/dispq.asp?lid=398082

 

F

fee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-04

• #6

o

 

S

swordrain

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-21

• #7

计时器判断是否播放完，如完，则跳回再次播放

 

C

c~c

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-21

• #8

用Timer控件,设置
Timer1.Enabled := True;
Timer1.Interval := 1000;
本人已经测试通过,
procedure TForm1.Timer1Timer(Sender: TObject);
begin

if btPlay in MediaPlayer1.EnabledButtons then

MediaPlayer1.Play;
end;

 

3

3cs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-21

• #9

加一个Timer控件
procedure TForm1.Timer1Timer(Sender: TObject);
begin

if MediaPlayer1.mode=mpstopped then

MediaPlayer1.Play;
end;

 

F

fee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-31

• #10

接受答案了.

 

C

chenzy0620

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-13

• #11

给分不？
很简单的