视频声音媒体播放 纯API源码

haoyuanxin

视频声音媒体播放

将API命令已经封装成子程序，方便新手同学使用。命令集实现异步播放，异步控制，可以播放MP4、AVI等等视频，或WAV、MP3等等音乐。无需任何插件支持！！

效果图：

1. //详细信息可以参考 api。ayuyan。com 在线中文文档。
   
2. 
   
3. 
   
4. function 打开媒体(父窗口,文件名,别名,x,y,w,h)
   
5.     var cmdA,子窗风格,Type_
   
6.     子窗风格 = 1073741824
   
7.     Type_=" type MPEGVideo "
   
8.     if(父窗口 == 0)
   
9.         子窗风格 =0
   
10.         父窗口=窗口获取自我句柄()
    
11.     end   
    
12.      cmdA="open "&文件名&" alias "&别名&Type_&" style "&子窗风格&" parent "&父窗口
    
13.      dllcall("winmm.dll", "Long", "mciSendStringA","char *",cmdA,"int",0,"int",0,"int",0)
    
14.      cmdA="put "&别名&"  window at "&x&" "&y&" "&h&" "&w
    
15.      dllcall("winmm.dll", "Long", "mciSendStringA","char *",cmdA,"int",0,"int",0,"int",0)
    
16.      dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名,"int",0,"int",0,"int",0)
    
17. end
    
18. 
    
19. function 全屏播放(别名)
    
20.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名&" fullscreen ","int",0,"int",0,"int",0)
    
21. end
    
22. 
    
23. 
    
24. function 播放(别名)
    
25. dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名,"int",0,"int",0,"int",0)
    
26. end
    
27. 
    
28. function 停止(别名)
    
29.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","Stop "&别名,"int",0,"int",0,"int",0)
    
30. end
    
31. 
    
32. function 暂停(别名)
    
33.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","Pause "&别名,"int",0,"int",0,"int",0)
    
34. end
    
35. 
    
36. function 继续播放(别名)
    
37.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","Resume "&别名,"int",0,"int",0,"int",0)
    
38. end
    
39. 
    
40. function 关闭媒体(别名)
    
41.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","Colse "&别名,"int",0,"int",0,"int",0)
    
42. end
    
43. 
    
44. function 置播放位置(别名,位置)
    
45.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","play "&别名&" FROM "&位置,"int",0,"int",0,"int",0)
    
46.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","seek movie to end","int",0,"int",0,"int",0)
    
47. 
    
48. end
    
49. 
    
50. function 置音量(别名,音量)
    
51.     dllcall("winmm.dll", "Long", "mciSendStringA","char *","setaudio "&别名&" volume to "&音量,"int",0,"int",0,"int",0)
    
52. end
    
53. 
    
54. 
    
55. 
    
56. 
    
57. 
    

复制代码

调用例子

1. 功能 按钮0_点击()
   
2. 打开媒体(窗口获取自我句柄(),"D:\\快捷方式群集\\oCam\\录制_2016_08_30_20_59_06_145.mp4","VOD",20,20,250,500)
   
3. 
   
4. 结束
   
5. 
   
6. 
   
7. 功能 按钮1_点击()
   
8. time=time+5000
   
9. 置播放位置("VOD",time)
   
10. 
    
11. 结束
    
12. 
    
13. 
    
14. 功能 按钮2_点击()
    
15. time=time-5000
    
16. 置播放位置("VOD",time)
    
17. 结束
    
18. 
    
19. 
    
20. 功能 按钮3_点击()
    
21. 暂停("VOD")
    
22. 结束
    
23. 
    
24. 
    
25. 功能 按钮4_点击()
    
26. 继续播放 ("VOD")
    
27. 结束
    
28. 
    
29. 
    
30. 功能 按钮5_点击()
    
31. 停止("VOD")
    
32. 
    
33. 结束
    
34. 
    
35. 
    
36. 功能 按钮6_点击()
    
37. 声音=声音+50
    
38. 置音量("VOD",声音)
    
39. 
    
40. 结束
    
41. 
    
42. 
    
43. 功能 按钮7_点击()
    
44. 声音=声音-50
    
45. 置音量("VOD",声音)
    
46. 
    
47. 
    
48. 结束
    

复制代码

tan0360

不错  学习学习。

超自然

http://bbs.tyuyan.net/thread-50378-1-1.html
这是我去年实现的,winmm两种调用方式,一种是结构体,一种是简单的字符串命令,我用的前者,你用的后者.
你这有两个问题.
第一,你照抄E的代码,用的全部是带A的参数,全部是char *字符串,当这些代码被拿到繁体系统上运行,这就全坑了,
易语言的硬伤就是A编码字符串,你应该用U字符串,用wchar *字符串就不会
第二,这不是什么播放接口,也不是不需要什么插件.相反,没有"插件"他根本没有作用...
这接口是windows的媒体调度接口,他负责调用合适的程序来解码合适的媒体文件,真正的播放是由驱动完成的,
你可以这样做个试验,安个全新的系统,去运行你这代码,会发现除了wnv,wam之类微软标准的媒体之外,什么也打不开,取错误得到的是"不支持的媒体类型"

zlguo

此代码可播放mp3文件，但不能连续播放。就是说再点击播放时没反应了。有没有人给解答