delphi如何播放txt文档里的音乐呢？

Question

我把音乐地址用记事本写在txt文档里，然后我在用delphi的MediaPlayer控件播放它，可是我试了好多变，就是它不能识别？我又把txt文档改成m3u文件，但是它并不能播放！我想问下，怎么读取txt文档里的音乐地址，并让它播放呢？

Answer 1

先要确定怎么读取txtprocedure TForm1.btn1Click(Sender: TObject);
var
  a:TStringList;
  i:integer;
begin
  a:=TStringList.create;
  a.LoadFromFile('你文件的路径');
  for i:=0 to a.count-1 do
  begin
    showmessage(a.strings[i]);
  end;
end;

Answer 2

我觉得应该这样：
1.分析文件中的地址
2.下载地址所指向的第一个音乐文件到本机（没用过MediaPlayer控件，不知道能不能直接播放网络地址下的音乐，本步骤的前提是指控件不能播放的情况下）
3.打开音乐文件，同时检查文本文件中有没有其它文件，如果有，同时启动下载第二个文件。
4.如果音乐文件播放完毕，检查是否有新的文件已下载完毕，如果有，播放，如果没有，等待下载完毕
5.循环步骤3,4

Answer 3

非常感谢,但是我用了你这个方法,在用mediaplayer打开始终类型不兼容？

Answer 4

StrTmp是你音乐文件的路径
sndPlaySound(PChar(StrTmp), SND_NODEFAULT Or SND_ASYNC);