Question

delphi播放MP3问题

思路是首先要求选中TREEVIEW1控件中的子节点，然后播放由子节点标题指示的MP3文件。添加变量header的目的是，让选中的TREEVIEW子节点标题字符串与相应的MP3文件名保持一致。
var
Form1: TForm1;
header:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(treeview1.Selected)and(treeview1.Selected.Level<>1)then
showmessage('请选择')
else
mediaplayer1.Close ;
header:=treeview1.Selected.Text;
mediaplayer1.FileName:='f:\test\'+header+'.mp3';
mediaplayer1.Open ;
mediaplayer1.Play ;
end;

通过编译，并选择子节点\点击播放按钮实现了播放功能。但若尚未选择TREEVIEW 子节点，点击播放按钮出现信息框，当点击信息框的OK,信息框消失的时候，出现调试异常通知：“project project1.exe vaised exception class EMCIDeviceError with message‘找不到指定的文件。请确认路径与文件名是否正确。’”。费解:若路径与文件名有错为何还能播放MP3文件呢？
请高手指点！
外行不要添乱！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if assigned(treeview1.Selected)and(treeview1.Selected.Level<>1)then
showmessage('请选择')
else
begin// 放在begin..end 中
mediaplayer1.Close ;
header:=treeview1.Selected.Text;
mediaplayer1.FileName:='f:\test\'+header+'.mp3';
mediaplayer1.Open ;
mediaplayer1.Play ;
end;
end;

Answer 2

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
case Button of
btPlay:
;
btPause:
;
btStop:
;
btNext:
;
btPrev:
;
btStep:
;
btBack:
;
btRecord:
;
btEject:
;
end;
end;

在各自里做实现就行了，这还不简单啊

Answer 3

呵呵，楼主太大意了~~~在else中加个begin end就行了

Answer 4

在else中加个begin end就行了

Answer 5

不能把