我用delphi里面的tmediaplayer,播放mid类型的文件的时候, 如何循环播放一个这样的文件！（有点不懂，在次提问！）

Question

顶

Answer 1

1. 加一个定时器,时间设为你的播放一次的时间+1秒,Play
2. 在MediaPlayer.OnNotify中, If Stopped then Play;
上面的这种方法，需要将stopped 改成什么东西？？？？？

Answer 2

定义一个全局变量  flag: Boolean;procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if flag then
    MediaPlayer1.Play
  else
    MediaPlayer1.Stop;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  if flag then begin
    flag:=False;
    MediaPlayer1.Stop;
  end
  else
    flag:=true;
    MediaPlayer1.play;
  end;
end;