我把要播的音乐放在listbox1 里。我想逐一播或是随机播,但我设置了一个时间点,如:14:00 到14:00 自动停止播放,要不就一直循还播
放列表的歌曲。搞了一下午,网上搜了要不看不懂,要不没有。
for i:=0 to rzlistbox1.Items.Count do
begin
j:=random(rzlistbox1.Items.Count) ;
MediaPlayer1.FileName:=rzlistbox1.Items.Strings[j] ;
MediaPlayer1.Open;
MediaPlayer1.Play ;
end;这是写的,可只能播一首
放列表的歌曲。搞了一下午,网上搜了要不看不懂,要不没有。
for i:=0 to rzlistbox1.Items.Count do
begin
j:=random(rzlistbox1.Items.Count) ;
MediaPlayer1.FileName:=rzlistbox1.Items.Strings[j] ;
MediaPlayer1.Open;
MediaPlayer1.Play ;
end;这是写的,可只能播一首
解决方案 »
- ClientDataSet删除行,该行为什么消失了,而不是状态为usDeleted?
- stringgrid如何显示数据表,且如何换行(15)自动到第二行第一列开始,急急!!!!!!!!!!!!
- ''' is not a valid floating point value?这是什么原因?请大家各抒已见
- 计算上网时间和上网流量,最好有源代码!!高分相送了啊,问题解决马上给分!!
- 【要出差半个月.....散分200】
- serversocket如何区分从clientsocket传来的不同数据类型
- 帮我测试一下软件(进销存)
- midas问题
- 一个简单的问题:d6里MDI主窗口的背景图片出现叠层现象
- 现在还有用rave做报表的朋友么?有的话,进来坐坐吧。
- 旷世难题:请大家看一下下面的两个定义有什么不同,高手进来指点,低手进来学习!!!
- Delphi 字符串分解
然后启动Timer.这样做的目的其实就是当你第一首歌播放完之后,Timer就被触发了.
在Timer触发的代码里要做几样事:
1.判断是否在禁播的时间范围内,是的话就不继续.
2.从ListBox1里选随即选出下一首歌
3.计算选择出来的歌播放时间,也是一样设置Interval
4.播放歌曲
5.启动Timer
那么我就把该Timer的Intervalz值设置为(14:00-12:30)相差的毫秒数.
这样子,Timer就会在14:00的时候被触发,触发时也是一样做几样事:
1.把停播标志设置为True(可以加个私有变量来识别).
2.停止当前在播放的歌曲.
3.停止上面提到的下次播放的Timer的Enabled属性.
4.设置下次开始播放的Timer的触发时间.