怎么样使MEDIAPLAYER重复播放N次?
FOR I:=0 TO N DO
 MEDIAPLAY1.PLAY;可是前一偏没播放完,后面又开始了,所以感觉就只播了一次

解决方案 »

  1.   

    设一个Timer控件来定时检测是否播放完毕procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      if (MediaPlayer1.Position=MediaPlayer1.EndPos)and(MediaPlayer1.Mode<>mpNotReady) then
      begin
        MediaPlayer1.Open;
        MediaPlayer1.Play
      end
    end;
      

  2.   

    对不起,上面那个有点错误,用这个就对了。
    var N:Integer;N:=1;procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      if (MediaPlayer1.Mode=mpStopped)and(N<=10) then
      begin
        MediaPlayer1.Rewind;
        MediaPlayer1.Play;
        N:=N+1
      end
    end;