首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

Vfp怎么实现指定时间段重复播放多媒体文件

2013-06-25 
Vfp如何实现指定时间段重复播放多媒体文件比如,播放一MP3文件,我想选择1分锺至2分锺时间段的音频重复播放,

Vfp如何实现指定时间段重复播放多媒体文件
比如,播放一MP3文件,我想选择1分锺至2分锺时间段的音频重复播放,如何实现呢?
[解决办法]
用 Multimedia MCI 控件(VFP 自带的 mci32.ocx)
通过此控件的
From 属性指定播放开始位置
To   属性指定播放结束位置
注:初始设置控件的 TimeFormat=0,表示单位为毫秒,如开始位置1分钟,应该设置 From 属性为 60000(1分钟=60秒=60000毫秒)。
Thisform.Ole_Multimedia.Command='Stop'
Thisform.Ole_Multimedia.Command='Close'
Thisform.Ole_Multimedia.FileName='c:\test\a1.mp3'
Thisform.Ole_Multimedia.Command='Open'
Thisform.Ole_Multimedia.From=60000
Thisform.Ole_Multimedia.To=120000
Thisform.Ole_Multimedia.Command='Play'

另外用一个 Timer 控件检测此控件状态,如果非播放状态,表示已播放完了或停止了,就再发出一次上面代码达到重复播放
If !(Between(Thisform.OLE_Multimedia.Mode,526,528) AND 'a1.mp3'$UPPER(Thisform.OLE_Multimedia.FileName))
* 上面的播放代码
Endif

热点排行