請問mediaplayer能不能同時選擇多個文件﹐讓它按序自動播放﹖就想winamp那樣﹗

Question

請問mediaplayer能不能同時選擇多個文件﹐讓它按序自動播放﹖就想winamp那樣﹗
具體是怎么實現呢﹖

Answer 1

type
  ptree=record
    id:integer;
    path:string;
    caprtion:string;
  end;
CAPTION用于显示的
PATH是实际路径

Answer 2

先定一个全局变量
Play_Index
在主窗体上加放二个控件,一个时间,一个列表控件
主要是写Timer的Timer事件
大体思想如下:
Procedure TForm1.Timer1Timer(sender:Tobject);
//假设AllTime是播放mp3所需要的总时间,这个可以由MediaPlayer的Length得到
Var i:integer
begin
i=i+1;
if i=AllTime then
begin
Play_Index:=Play_Index+1;
With MediaPlayer do
begin
Filename:=ListBox1.Items[Play_Index];
Play;
AllTime:=Length;//这里的Length具体怎么实现,要参考MediaPlayer控件的方法
end;
i:=0;
end;
end;把你打开的文件都加入到ListBox中去.
当然上面只是简单的思想,具体怎么实现还要仔细想想!!

Answer 3

上面错了一步就是I也应该定义为全局变量
var
i:Integer
这二句不要

Answer 4

先定义一个记录
type
  bflb=record
    id:integer;
    path:string;
    caprtion:string;
  end;
CAPTION用于显示的
PATH是实际路径
然后定义一个数组用于记录信息
  gqlb{歌曲列表}:array of bflb;
然后在你的代码中这样写
  setlength(gqlb,$FFFF);
  用一个for循环将opendialog的打开文件名加入
  gqlb[i].id:=...;
  ...
  后面这样setlength(gqlb,i+1);
  播放的时候也用个for循环去匹配查找信息，找出相应路径播放
  大概意思就这样

Answer 5

呵呵，对于视频俺不是太懂，学习ing…………