怎样实现多媒体控件的多曲播放??(0分)

煽

煽风点火

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #1

我的播放器只能播放一首歌,怎样才能实现多曲播放,就是放完第一首歌曲后接着自动
播放第二首,谁能告诉我,谢谢,急

 

撒

撒野

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #2

打开第一首歌是检测时间长短，启动定时器检测是否结束，若结束播放第二首歌。

 

G

goodmen82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-10

• #3

我有一个做好的，里面有你要的播放多个文件的（顺序播放），要的话给我发邮件，我可
以发给你。

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-11

• #4

OnNotify事件

 

W

way2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #5

对，可以在onNotify事件中判断是否stop了。在去放下一首。

 

S

sd0112

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-01

• #6

goodmen82兄，给我也发一份，我的email：tatayou@eyou.com

 

0

07idea

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-20

• #7

kgd1999@21cn.com
能否给我一份，谢谢啦！

 

B

bunnun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-29

• #8

goodmen82老兄，能否发给我一份。感激不禁！
GXU_Bunnun@hotmail.com

 

L

luckysammo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-19

• #9

luckysammo@21cn.com
能否给我一份,我在此谢过了!

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-21

• #10

procedure TForm1.SpeedButton5Click(Sender: TObject);
var i:integer;
begin

try
with form1do

begin

i:=file_form.FileListBox1.ItemIndex;
if i<file_form.filelistbox1.Items.Count-1 then

begin

i:=i+1;
file_form.filelistbox1.ItemIndex:=i;
mediaplayer1.FileName:=file_form.filelistbox1.Items;
if ((extractfileext(mediaplayer1.filename)='.dat')
or (extractfileext(mediaplayer1.filename)='.DAT')
or (extractfileext(mediaplayer1.filename)='.mpg')
or (extractfileext(mediaplayer1.filename)='.MPG')
or (extractfileext(mediaplayer1.filename)='.AVI')
or (extractfileext(mediaplayer1.filename)='.avi')
or (extractfileext(mediaplayer1.filename)='.MP3')
or (extractfileext(mediaplayer1.filename)='.mp3')) then

begin

mediaplayer1.Open;
form1.SpeedButton1Click(sender);
mediaplayer1.Play;
end;

end;

end;

except;
exit;
end;

end;



procedure TForm1.Timer1Timer(Sender: TObject);
var flag:integer;
begin

flag:=mediaplayer1.Position div 30;
if mediaplayer1.Position=mediaplayer1.Length then

form1.speedbutton5click(sender);
end;


以上代码已经通过测试。