最简单的播放器
* VFP 的 FFC \ _multimedia.vcx 类建立一个音频/视频播放器的 SoundPlayer 演示
Clear All
Local m.afile
m.afile = Getfile('AVI|wav|mp3')
&& 任何被支持的媒体文件
If Empty (m.afile)
Return .F.
Endif
Messagebox("输入 [Clear All] 停止播放", 0+32+4296, "", 1000)
With _Screen
.Newobject("soundplayer1", "_soundplayer", Home() + "ffc\_multimedia.vcx")
With _Screen.soundplayer1
.autoplay = .T.
.AutoOpen = .T.
.cfilename = m.afile
.mcialias = m.afile
.autorepeat = .F.
.playsound()
Endwith
Endwith
mplayer = Null