如何用MediaPlayer1实现连续播放(100分)

J

joove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-01

• #1

 

Y

yanlei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-01

• #2

procedure TForm1.Timer1Timer(Sender: TObject);
begin
MediaPlayer1.Play;
end;

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #3

在通知事件中加入代码

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Mode=mpstopped then
MediaPlayer1.Play;
end;

 

P

pcexplorer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #4

To:yanlei
你的代码也太搓了吧

 

J

joove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-02

• #5

我说的是用opendialog选中多个文件后,如何用MediaPlayer1连续波

 

J

jollier

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #6

//在执行MediaPlayer1的Pause、Stop过程时应将其Notify:=False,其它过程Notify:=True.
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
sleep(500);//主要其缓冲作用
with MediaPlayer1 do
begin
if notify And Chechbox1.Checked And//接受信息
(mode=mpStopped) then//已经停止
begin
ReWind;
play;
end;
notify:=true;//开始接受信息
end;
end;

 

小

小天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #7

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Mode=mpstopped then
begin
MediaPlayer1.rewind;
MediaPlayer1.Play;
MediaPlayer1.notify:=true;
end;
end;

 

J

joove

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-04

• #8

多人接受答案了。