dephi怎样把多个音乐添加到WindowsMediaPlayer控件中的播放列表中

woawn

dephi怎样把多个音乐添加到WindowsMediaPlayer控件中的播放列表中
俺最近想做一个音乐播放器，现在就是想把一个文件夹里的音乐全部添加到WindowsMediaPlayer控件中的播放列表中并且把它们都显示在一个可视化的空间列表中（比如listbox）,希望大家给点意见。

aminghanhua

不好意思 这几天忙没上网 不知道楼主问题解决了没 刚才自己做了个样本 主要代码是

1. procedure TForm1.DoSearchPathFile(qPath:   string);
   
2. var
   
3.   SR:TSearchRec;
   
4.   FileAttr:Integer;
   
5. begin
   
6. FileAttr:=faDirectory;
   
7. FindFirst(qPath + '\*.*',FileAttr,SR);
   
8. While   FindNext(SR)   =   0   do
   
9. begin
   
10.   if   (SR.Name <> '.')   and   (SR.Name <> '..')   then
    
11.   begin
    
12.     if   DirectoryExists(qPath   +   '\'   +   SR.Name)   then
    
13.     begin
    
14.         ListView1.Items.Add.Caption:=qPath + '\' + SR.Name;
    
15.         DoSearchPathFile(qPath + '\' + SR.Name);
    
16.     end;
    
17.   end;
    
18. end;
    
19. 
    
20. FileAttr:=faAnyFile;
    
21. FindFirst(qPath + '\*.*', FileAttr,SR);
    
22. while FindNext(SR)=0 do
    
23. begin
    
24.   if   (SR.Name   <>   '.')   and   (Sr.Name   <>   '..')   then
    
25.   begin
    
26.      if   not(DirectoryExists(qPath   +   '\'   +   SR.Name))   then
    
27.      begin
    
28.         ListView1.Items.Add.Caption:=qPath + '\' + SR.Name;
    
29.      end;
    
30.   end;
    
31. end;
    
32. end;

复制代码

1. procedure TForm1.OpenfExecute(Sender: TObject);//打开文件夹所有文件到列表
   
2. var
   
3.   s:string;
   
4. begin
   
5. if SelectDirectory('请选择媒体文件目录','',s) then
   
6. DoSearchPathFile(s);
   
7. end;

复制代码

我把源码文件上传了  可以看看这个帖子
http://bbs.fishc.com/forum.php?mod=viewthread&tid=19757&extra=

aminghanhua

楼主的意思不太清楚
1、如果用三个控件DriveComboBox1    DirectoryListBox1   FileListBox1 和一个MediaPlayer1
DriveComboBox1的 dirlist事件选择DirectoryListBox1，DirectoryListBox1的filelist事件选择FileListBox1，FileListBox1的mask属性为 *.mp3  这样就全都为mp3了  再在filelistbox1的onclick事件加入

1. 
   
2.   mediaplayer1.FileName:=filelistbox1.FileName;
   
3.   mediaplayer1.Open;

复制代码

等代码。

2、点击按钮打开文件夹，所有mp3文件自动添加到列表中
(1)用SelectDirectory打开文件夹  要 uses   FileCtrl;  加入个全局变量list1: TListItem;
(2)放入一个button1控件用来打开文件夹，一个button2按钮用来播放 一个listview1控件用来显示歌曲 和一个MediaPlayer1
(3)listview的viewstyle改为vsreport   双击listview1控件 点击add new 加入两个 caption分别为 文件名 和 路径
(4)具体代码

1. function AddFormDir(F: string): integer; //查找MP3文件的函数
   
2. var
   
3. MP3: integer;
   
4. S: TSearchRec;
   
5. i: Integer;
   
6. a: Boolean;
   
7. begin
   
8. mp3 := FindFirst(F, faAnyFile, s); //查找*.mp3
   
9. while mp3 = 0 do
   
10. begin
    
11. Application.ProcessMessages;
    
12. if (S.Attr and faDirectory) = 0 then
    
13. begin
    
14. a := False;
    
15. for i := 0 to Form1.ListView1.Items.Count - 1 do
    
16. begin
    
17. if GetCurrentDir + '\' + s.Name =Form1.ListView1.Items[i].SubItems.Strings[0] + Form1.ListView1.items[i].Caption then
    
18. a:= True;
    
19. end;
    
20. if a = false then
    
21. begin
    
22. list1:=Form1.ListView1.Items.Add;
    
23. list1.Caption := s.name;
    
24. list1.SubItems.add(GetCurrentDir + '\');
    
25. form1.Button1.Enabled := true;
    
26. end;
    
27. end;
    
28. MP3 := FindNext(s);
    
29. end;
    
30. result := 1;
    
31. end;
    
32. 
    
33. procedure TForm1.Button1Click(Sender: TObject);//button1的onclick事件加入代码 //添加文件夹中的MP3文件
    
34. var
    
35. dir: string;
    
36. S: TSearchRec;
    
37. begin
    
38. if selectdirectory('请选择目录', '', dir) then
    
39. begin
    
40. ChDir(Dir); //设置当前路径为搜索目录
    
41. AddFormDir('*.mp3');
    
42. end;
    
43. FindClose(s);
    
44. end;
    
45. 
    
46. 
    
47. procedure TForm1.Button2Click(Sender: TObject); //播放
    
48. begin
    
49. if ListView1.ItemIndex <> -1 then //首先判断列表框中是否有内容
    
50. begin
    
51. mediaplayer1.FileName := listview1.Selected.SubItems.Strings[0] + listview1.Selected.Caption;
    
52. begin
    
53. try
    
54. mediaplayer1.Open;
    
55. mediaplayer1.Play; //播放列表框中选择的文件
    
56. mediaplayer1.Notify := true;
    
57. except
    
58. on EMCIDeviceError do
    
59. MessageBox(Handle, '无法播放，请检查路径或者文件名是否正确！', '错误',
    
60. MB_OK + MB_ICONSTOP);
    
61. end;
    
62. end;
    
63. end;
    
64. end;
    
65. 
    
66. procedure TForm1.ListView1DblClick(Sender: TObject);//双击listview播放
    
67. begin
    
68. Button2Click(sender);
    
69. end;

复制代码

aminghanhua

也可在Button1Click事件中 加入AddFormDir('*.wav');    AddFormDir('*.wma');等等其它音频文件
两种方法都行 测试通过 给分

woawn

aminghanhua 发表于 2012-7-7 22:52

                               
登录/注册后可看大图

也可在Button1Click事件中 加入AddFormDir('*.wav');    AddFormDir('*.wma');等等其它音频文件
两种方法都 ...

神马意思不懂啊能不能说的具体点

woawn

aminghanhua 发表于 2012-7-7 19:55

                               
登录/注册后可看大图

楼主的意思不太清楚
1、如果用三个控件DriveComboBox1    DirectoryListBox1   FileListBox1 和一个MediaP ...

这位老兄首先十分的感谢你，但是你貌似没看清我想表达的意思就是我的控件是windowsMediaPlayer,而不是MediaPlayer这两个是有区别的喔

aminghanhua

Sorry  没弄明白 你说的是WindowsMediaPlayer这个ActiveX控件吧
明天跟帖吧 要睡了

woawn

aminghanhua 发表于 2012-7-8 21:36

                               
登录/注册后可看大图

Sorry  没弄明白 你说的是WindowsMediaPlayer这个ActiveX控件吧
明天跟帖吧 要睡了

恩是啊