本帖最后由 haoyuanxin 于 2016-9-5 14:46 编辑
视频声音媒体播放
将API命令已经封装成子程序,方便新手同学使用。命令集实现异步播放,异步控制,可以播放MP4、AVI等等视频,或WAV、MP3等等音乐。无需任何插件支持!!
效果图:
- //详细信息可以参考 api。ayuyan。com 在线中文文档。
- function 打开媒体(父窗口,文件名,别名,x,y,w,h)
- var cmdA,子窗风格,Type_
- 子窗风格 = 1073741824
- Type_=" type MPEGVideo "
- if(父窗口 == 0)
- 子窗风格 =0
- 父窗口=窗口获取自我句柄()
- end
- cmdA="open "&文件名&" alias "&别名&Type_&" style "&子窗风格&" parent "&父窗口
- dllcall("winmm.dll", "Long", "mciSendStringA","char *",cmdA,"int",0,"int",0,"int",0)
- cmdA="put "&别名&" window at "&x&" "&y&" "&h&" "&w
- dllcall("winmm.dll", "Long", "mciSendStringA","char *",cmdA,"int",0,"int",0,"int",0)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名,"int",0,"int",0,"int",0)
- end
- function 全屏播放(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名&" fullscreen ","int",0,"int",0,"int",0)
- end
- function 播放(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名,"int",0,"int",0,"int",0)
- end
- function 停止(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","Stop "&别名,"int",0,"int",0,"int",0)
- end
- function 暂停(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","Pause "&别名,"int",0,"int",0,"int",0)
- end
- function 继续播放(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","Resume "&别名,"int",0,"int",0,"int",0)
- end
- function 关闭媒体(别名)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","Colse "&别名,"int",0,"int",0,"int",0)
- end
- function 置播放位置(别名,位置)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名&" FROM "&位置,"int",0,"int",0,"int",0)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","seek movie to end","int",0,"int",0,"int",0)
- end
- function 置音量(别名,音量)
- dllcall("winmm.dll", "Long", "mciSendStringA","char *","setaudio "&别名&" volume to "&音量,"int",0,"int",0,"int",0)
- end
复制代码
调用例子
- 功能 按钮0_点击()
- 打开媒体(窗口获取自我句柄(),"D:\\快捷方式群集\\oCam\\录制_2016_08_30_20_59_06_145.mp4","VOD",20,20,250,500)
- 结束
- 功能 按钮1_点击()
- time=time+5000
- 置播放位置("VOD",time)
- 结束
- 功能 按钮2_点击()
- time=time-5000
- 置播放位置("VOD",time)
- 结束
- 功能 按钮3_点击()
- 暂停("VOD")
- 结束
- 功能 按钮4_点击()
- 继续播放 ("VOD")
- 结束
- 功能 按钮5_点击()
- 停止("VOD")
- 结束
- 功能 按钮6_点击()
- 声音=声音+50
- 置音量("VOD",声音)
- 结束
- 功能 按钮7_点击()
- 声音=声音-50
- 置音量("VOD",声音)
- 结束
复制代码
|