... MediaPlayer1.FileName:='Demo.wav'; MediaPlayer1.Open; MediaPlayer1.Notify:=True; MediaPlayer1.Play; ...procedure TForm1.MediaPlayer1OnNotify(...); begin If MediaPlayer1.Position=MediaPlayer1.Length then begin MediaPlayer1.Rewind; MediaPlayer1.Play; end; end; 其实是要加判断,判断如果播放的position和文件的总播放时间相同的话就重放
MediaPlayer1.FileName:='Demo.wav';
MediaPlayer1.Open;
MediaPlayer1.Notify:=True;
MediaPlayer1.Play;
...procedure TForm1.MediaPlayer1OnNotify(...);
begin
If MediaPlayer1.Position=MediaPlayer1.Length then
begin
MediaPlayer1.Rewind;
MediaPlayer1.Play;
end;
end;
其实是要加判断,判断如果播放的position和文件的总播放时间相同的话就重放