火猴实现计时动画（firemonkey）

缘起：

想做一个带时钟滴答音乐的计时程序，但是在XE7以上版本中一直没有找到类似老版的loop属性或rewind的方法，让播放器重复播放同一个媒体文件，查了官方的wiki也没有直接说，通过摸索实现，以下列出方法。

思路：

1、是否可以判断mediaplayer的state是否处于stoped状态后，再执行play命令？

2、是否可以使用mediaplayer的currenttime和duration之差值判断媒体文件已经播放结束，再执行play命令重放？

结果：

通过测试以上的第1种方法，行不通，state一直是playing状态，所以无法实现。

第2种方法可以判断文件已经播放结束，但使用play命令无法重新播放，必须重新载入媒体文件后在play方可。

代码：

播放音乐

procedure TForm1.FormCreate(Sender: TObject);
begin
  self.MediaPlayer1.FileName := 'D:\fmxtmsled\clocks.wav';
  MediaPlayer1.Play;
end;
           

使用tms的发光二极管组件实现：timer1的间隔设置成1ms

属性：

TMSFMX7SegLED1.Name := 'TMSFMX7SegLED1';
  TMSFMX7SegLED1.Parent := Self; 
  TMSFMX7SegLED1.Decimals := 3;//小数点右边3为
  TMSFMX7SegLED1.Digits := 4 ; //整数部分4为
  TMSFMX7SegLED1.ShowLeadingZeros := False;
           

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  self.TMSFMX7SegLED1.Value := DateTimeToTimeStamp(now).time.ToSingle;
  Application.ProcessMessages;
end;
           

 播放完后再次播放音乐，timer的间隔设为500ms

procedure TForm1.Timer3Timer(Sender: TObject);
begin
    if  MediaPlayer1.CurrentTime = MediaPlayer1.Duration then
    begin
          Memo1.Lines.Add(IntToStr(MediaPlayer1.CurrentTime))  ;
          self.MediaPlayer1.FileName := 'D:\fmxtmsled\clocks.wav';
          MediaPlayer1.Play;
          Exit;
    end;
end.
           

代码：

链接：https://pan.baidu.com/s/1QKovOFC89Sv-Cnwg4FnWqw 

提取码：f3ay 

音效下载：

http://sc.chinaz.com/yinxiao/