我用TMediaPlayer播放音乐文件
procedure palymusic;//播放音乐
begin
MediaPlayer.filename:= filename;
MediaPlayer.open;
MediaPlayer.notify:= true;
MediaPlayer.play;
end;procedure stopplay;//停止播放
begin
MediaPlayer.stop;
MediaPlayer.notify:= false;
end;procedure TForm1.MediaPlayerNotify(Sender: TOject);//控件的事件
begin
if MediaPlayer.notify then
begin
MediaPlayer.rewind;
MediaPlayer.play;
MediaPlayer.notify:= true;
end;
end;这样做出现的现象是第一次播放可以,第一次停止也可以,但停止过后再播放就
会死掉为什么呢?
procedure palymusic;//播放音乐
begin
MediaPlayer.filename:= filename;
MediaPlayer.open;
MediaPlayer.notify:= true;
MediaPlayer.play;
end;procedure stopplay;//停止播放
begin
MediaPlayer.stop;
MediaPlayer.notify:= false;
end;procedure TForm1.MediaPlayerNotify(Sender: TOject);//控件的事件
begin
if MediaPlayer.notify then
begin
MediaPlayer.rewind;
MediaPlayer.play;
MediaPlayer.notify:= true;
end;
end;这样做出现的现象是第一次播放可以,第一次停止也可以,但停止过后再播放就
会死掉为什么呢?
begin
if MediaPlayer.notifyvalue=nvSuccessful then
begin
MediaPlayer.notify:= false;//先关闭notify因为rewind会产生notify
MediaPlayer.rewind;
MediaPlayer.notify:= true;
MediaPlayer.play;
end;
end;