火猴實作計時動畫（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/