如何在多媒体控件MediaPlayer自动循环播放？

Question

如何在多媒体控件MediaPlayer自动循环播放？在什么地方、什么事件中写这个语句MediaPlayer.play实现自动循环播放？

Answer 1

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   if mediaplayer1.mode=mpstopped then  mediaplayer1.play;
   Notify := True;
end;

Answer 2

procedure TfrmMain.MediaPlayerNotify(Sender: TObject);
begin
  Case MediaPlayer1.NotifyValue of
  nvSuccessful :
    begin
      MediaPlayer.StartPos:=MediaPlayer.Start;
      MediaPlayer1.Notify := True;
      MediaPlayer1.Play; 
    end;
  end
end;
procedure TfrmMain.PlayMedia(FileName:string);
begin
  MediaPlayer1.Close;
  MediaPlayer1.FileName :=FileName;
  MediaPlayer1.Open;
  MediaPlayer1.Notify := True;
  MediaPlayer1.Play;
end;
这个肯定可以

Answer 3

const  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');procedure TForm1.MediaPlayer1Notify(Sender: TObject);begin
  with Sender as TMediaPlayer do
  begin
    Form1.Caption := ModeStr[Mode];
    
    if Mode = 1 then Play; //這樣看行不行    { Note we must reset the Notify property to True }
    { so that we are notified the next time the }
    { mode changes }
    Notify := True;
  end;
end;

Answer 4

to bee2518(迷茫ing):
   你好，为什么我按你第二个方法写的程序循环播放几次后就没有声音了呢？在线等你解答

Answer 5

只有这个资料:((  windowsmediaplayer 
[基本属性]URL:string                            可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean                 全屏显示
stretchToFit:boolean              非全屏状态时是否伸展到最佳大小
uMode:string                         播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer                    当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
 controls.play;       播放
 controls.stop;       停止
 controls.pause;      暂停
 controls.currentPosition：Double 当前播放进度
 controls.currentPositionString：string 时间格式的字符串 "0:32"[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
 currentMedia.duration  Double 总长度
 currentMedia.durationString 时间格式的字符串 "4:34"[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。但对应的