Question

Delphi播放MP3的问题

Delphi播放MP3的问题，用TMediaPlayer控件，不能播放一些MP3文件，如周杰伦的新歌<<鞋子特大号>>，错误提示"初始化MCI时发生问题"。
播放其它音乐文件没有任何问题，就唯独周杰伦的这首新歌音乐文件有问题

Answer 1

哪就是音乐文件格式的问题
//如果背景乐停则通知继续播放
procedure TfmMp3.OnNotify(Sender:TObject);
begin
if MediaPlayer.Mode = mpstopped then
begin
MediaPlayer.Rewind;
MediaPlayer.Play;
end;
MediaPlayer.Notify:=true;
end;
procedure TfmMp3.PlayMusic(sm: string);
begin
self.MediaPlayer.Notify:=False;
self.MediaPlayer.Close;
if sM='' then
begin
SourceToFile('BgSound','Mp3','ytydal.mp3');
self.MediaPlayer.FileName:='ytydal.mp3';
end else self.MediaPlayer.FileName:=sM;
self.MediaPlayer.Notify:=True;
self.MediaPlayer.Open;
self.MediaPlayer.Play;
end;
procedure TfmMp3.FormCreate(Sender: TObject);
begin
MediaPlayer:=TMediaPlayer.Create(self); //创建一个Tmediaplayer的实体
MediaPlayer.Visible:=false;
MediaPlayer.Parent:=self;//继承父体
MediaPlayer.OnNotify:=OnNotify;
MediaPlayer.DeviceType:=dtAutoSelect;
MediaPlayer.AutoOpen:=true;
MediaPlayer.Close;
end;
procedure TfmMp3.btn1Click(Sender: TObject);
begin
self.PlayMusic();
end;