如何在delphi中播放聲音檔(.mp3)?

Question

可以用TMediaPlayer组件，
或用API PlaySound(),eg:
PlaySound(PChar(OpenDialog1.FileName,0,SND_ASYNC);

Answer 1

怎么最近老出错呀！不好意思
PlaySound(PChar(OpenDialog1.FileName,0,SND_ASYNC);
改为：
PlaySound(PChar(OpenDialog1.FileName),0,SND_ASYNC);
具体看一下帮助吧

Answer 2

用TMediaPlayer组件,它可以播放常用的格式,如*.avi,*.wav,*.mp3

Answer 3

AnsiString sFilName = "open \"" +"+ "mp3路径" type mpegvideo alias mpeg";
mciSendString(sFilName.c_str(), NULL, 0, 0);

Answer 4

用组件当然可以，我就是用自己写的程序播放mp3,使用mediaplayer组件

Answer 5

procedure TForm1.DdhRoundBtn1Click(Sender: TObject);
begin
if Opendialog1.execute then
realaudio1.source:=opendialog1.filename;
end;

Answer 6

shellexecute(handle,'open',pchar('your player path'),pchar('your mp3file',nil,sw_shownormal);
试试吧，可能后面几个参数错了！不过用NIL填就是了