缘起：

想做一个带时钟滴答音乐的计时程序，但是在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);
beginself.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);
beginself.TMSFMX7SegLED1.Value := DateTimeToTimeStamp(now).time.ToSingle;Application.ProcessMessages;
end;

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

procedure TForm1.Timer3Timer(Sender: TObject);
beginif  MediaPlayer1.CurrentTime = MediaPlayer1.Duration thenbeginMemo1.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/

火猴实现计时动画（firemonkey）相关推荐

火猴之ppt动画效果实现（firemonkey）
看到一个ppt的动画效果,如下: 圆环放大效果: 一个circle+floatanimation,设置属性,使用floatanimation动画增加circle的width,并在动画组件的proces ...
火猴浏览器3.0的语义解析突破
火猴浏览器3.0是火猴团队的一次重大升级,这次升级不同于往常版本的升级,可能在常人眼中看来这只是一次应用的功能上的增加和BUG修复.仅站在用户角度去探索此次应用的升级,更多的是集中在应用实用性,稳定性 ...
众目所归火猴浏览器3.0再出杀手锏
2014年之前探索整个移动互联网的浏览器都是在功能上做研发,目的都是为了抢先占据移动互联网的入口,这其中除了巨头以外还有一些中小型的互联网公司也在浏览器上做尝试,事实上浏览器的功能性革命到2014年底 ...
火猴之动画字幕显示（firemonkey）
突发奇想,在古色古香的画卷上动画般显示唐诗: 思路: 1.使用TMSFMXHTMLTEXT组件显示诗句文字.先将width设成0. 2.使用定时拉长1中TMSFMXHTMLTEXT组件的width. ...
火猴之探照灯效果动画实现（firemonkey）
效果: 思路: rectangle+circle+text组件. rectangle的fill的color设成black. circle置于rectangle和text组件中间层. 将circle的f ...
火猴之抽奖大转盘（firemonkey）
活动中往往有抽奖环节,如何使用firemonkey制作一个抽奖的程序呢? 效果: 思路: 1.rectangle+line+text作为可以转动的转盘和指针以及按钮. 2.pie 共 10个作为不同颜 ...
火猴之中国色展示（firemonkey）
缘起: 抖音中的设计相关主题中,现在流行展示中国色色卡,希望通过firemonkey中的相关技术实现出来. 因为是中国色,选用了<延禧攻略>中古装扮相作为主角,中国色衬底,看看效果. 结果 ...
火猴之图片立体翻转效果展示（firemonkey）
结果: 思路: 1.使用firemonkey之3d应用 2.layout3d+image3d+textlayer3d 3.使用floatanimation改变image3d的rotation的角度实现 ...
火猴之呼吸灯（firemonkey）
效果: 手机上的呼吸灯设计还是蛮炫酷的,实现一下: 思路: 1.rectangle作为画布,使用其fill.color来改变背景, 2.3个circle分别作为红黄蓝的灯 3.使用shadoweffe ...

火猴实现计时动画（firemonkey）

缘起：

思路：

结果：

代码：

代码：

音效下载：

火猴实现计时动画（firemonkey）相关推荐

最新文章

热门文章