关于播放列表的循环？？？？？？？？(100分)

L

lsj66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #1

我已把MP3文件放进了播放列表，但不知如何循环播放列表中的文件？
即重复整个列表。

 

X

xie ke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #2

是在winamp中吗? 还是自己写的?
如果是winamp, 按循环播放钮不就行了(在播放按钮行的最右的一个)

 

L

lsj66

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #3

自己写的

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #4

难道你能播放第一遍就不能播放第二遍？I fl you!
while truedo

begin

PlayList;//你播放第一遍的方法，包括打开播放列表，开始从第一个播放……
end;

 

房

房客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-02-09

• #5

你的LIST放在什么里？
现在问题代码是怎样？

 

富

富翁

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-09

• #6

自己写的？用的什么控件？

 

C

cemi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-19

• #7

用Tstringlist记录播放列表，用一个整形变量储存位置，每播放一首就INC(位置)，
当位置>Tstringlist.count时位置=0，其实这种方法很容易想到，
我在初学的时候已经会用这种方法。

 

D

delphi_zm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #8

先定义notify事件，在notify事件
判断媒体状态为播放完毕。
var
SongsList:TstringList;
index:integer;//用于记录当前播放的序号
.....
if SongsList.count=index-1
then
index:=0
else
index:=index+1;
.......

 

Z

zzx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #9

你怎么知道一首曲子已经播放完毕，可以INC(位置)了呢?

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-25

• #10

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

if mediaplayer1.Position=mediaplayer1.Length then

inc(i)
mediaplayer1.FileName:=listbox1.items.strings;
mediaplayer1.open;
medipalayer1.play;
end;

再修改一下

 

大

大富婆

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-26

• #11

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

if mediaplayer1.Position=mediaplayer1.Length then

inc(i);
if ListBox1.count = i then

i := 0;
mediaplayer1.FileName:=listbox1.items.strings;
mediaplayer1.open;
medipalayer1.play;
end;

 

A

appleman2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #12

listbox的name是lb1，mediaplayer的name是mp1。
程序如下：
procedure TForm1.mp1Notify(Sender: TObject);
begin

if mp1.Position=mp1.Length then
//放到了最后一首歌结束
if lb1.Items.Count-1=lb1.ItemIndex then

begin

lb1.ItemIndex:=0;
mp1.FileName:=lb1.Items.Strings[lb1.itemindex];
mp1.Open;
mp1.Play;
end
else
//没有放到最后一首歌
begin

lb1.ItemIndex:=lb1.ItemIndex+1;
mp1.FileName:=lb1.Items.Strings[lb1.itemindex];
mp1.Open;
mp1.Play;7
end;

end;