初级 MediaPaly 媒体播放器

stillness

1. .版本 2
   
2. .支持库 eMMedia
   
3. 
   
4. .程序集 _MainForm_Model
   
5. .程序集变量 VHwnd, 图片框, , , 作为媒体播放控件视频播放句柄控件
   
6. 
   
7. .子程序 __启动窗口_创建完毕
   
8. .局部变量 Register, 文本型, , "0"
   
9. .局部变量 index, 整数型
   
10. .局部变量 button, 按钮
    
11. 
    
12. Register ＝ { “打开(&O)”, “播放(&P)”, “暂停(&B)”, “停止(&S)” }
    
13. .变量循环首 (1, 取数组成员数 (Register), 1, index)
    
14.     button ＝ 取标记组件 (到数值 (index))
    
15.     button.标题 ＝ Register [index]
    
16. .变量循环尾 ()
    
17. 标题 ＝ “MediaPlay”
    
18. 选择框1.标题 ＝ “是否在本窗口播放(&K)”
    
19. 分组框1.标题 ＝ “控制区域”
    
20. VHwnd ＝ 图片框1
    
21. VHwnd.背景颜色 ＝ 0
    
22. 打开.激活 ()
    
23. 
    
24. .子程序 _选择框1_被单击
    
25. 
    
26. .如果 (选择框1.选中 ＝ 真)
    
27.     媒体播放1.置句柄 (VHwnd.取窗口句柄 ())
    
28. .否则
    
29.     媒体播放1.置句柄 (0)
    
30. .如果结束
    
31. 
    
32. 
    
33. .子程序 _播放_被单击
    
34. 
    
35. .如果真 (媒体播放1.播放 (-1, ) ≠ 真)
    
36.     信息框 (“播放失败”, 0 ＋ 64, )
    
37. .如果真结束
    
38. 
    
39. 
    
40. .子程序 _暂停_被单击
    
41. 
    
42. .如果真 (媒体播放1.暂停 () ＝ 真)
    
43.     信息框 (“暂停成功”, 0 ＋ 64, )
    
44.     返回 ()
    
45. .如果真结束
    
46. 信息框 (“暂停失败”, 0 ＋ 64, )
    
47. 
    
48. .子程序 _停止_被单击
    
49. 
    
50. .如果真 (媒体播放1.停止 () ＝ 真)
    
51.     信息框 (“停止成功”, 0 ＋ 64, )
    
52.     返回 ()
    
53. .如果真结束
    
54. 信息框 (“停止失败”, 0 ＋ 64, )
    
55. 
    
56. .子程序 _打开_被单击
    
57. .局部变量 A, 文本型
    
58. .局部变量 B, 文本型
    
59. .局部变量 文件名, 文本型
    
60. 
    
61. 通用对话框1.过滤器 ＝ “aac|*.aac|m4a|*.m4a|ogg|*.ogg|mp2|*.mp2|mp3|*.mp3|mp4|*.mp4|avi|*.avi|wav|*.wav|wmv|*.wmv|mdi|*.mdi|jpg|*.jpg;jpge|bmp|*.bmp|png|*.png|Gif|*.Gif|ico|*.ico|Tga|*.Tga|RM|*rm|RMVB|*.RMVB|Mpge|*.mpg;mpge|Flash|*.FLV;*.FL4V;*.fla;*.swf”
    
62. .如果真 (通用对话框1.打开 () ＝ 真)
    
63.     .如果真 (文件是否存在 (通用对话框1.文件名) ＝ 真)
    
64.         .如果真 (媒体播放1.打开 (通用对话框1.文件名) ≠ 真)
    
65.             信息框 (“打开媒体失败”, 64, )
    
66.             返回 ()
    
67.         .如果真结束
    
68.         文件名 ＝ 通用对话框1.文件名
    
69.         A ＝ 取文本右边 (文件名, 寻找文本 (文件名, “\”, , 假) － 1)
    
70.         B ＝ A
    
71.         .如果 (媒体播放1.是否视频 () ＝ 真)
    
72.             B ＝ B ＋ “ - ” ＋ “视频媒体”
    
73.         .否则
    
74.             B ＝ B ＋ “ - ” ＋ “音乐媒体”
    
75.         .如果结束
    
76.         标题 ＝ B
    
77.         _播放_被单击 ()
    
78.     .如果真结束
    
79. 
    
80. .如果真结束
    
81. 
    

复制代码

媒体播放器.zip (2.26 KB, 下载次数: 97)

2012-12-27 11:50 上传

点击文件名下载附件
下载积分: 精币 -2 枚

GYSZJ

以下两点有改进更好：
   1.打开文件时，同时能容纳多种媒体文件，选择时会更方便；
   2.打开视频时，可放在原窗口内播放，并且播放窗口大小稳定。

djqq826

少文

支持什么格式的

本文章来自：精易论坛(http://125.confly.eu.org/forum.php?mod=viewthread&tid=13623725）请保留此链接, 感谢!

a1301784aa

没价值的东西

渁煑渔

来看看啊呵

风中的玫瑰

看到就拿走，谢谢分享

a1301784aa

没有有用的啊

拾忆

........忘记了又拿360下载器下载了

拾忆

非常感谢很需呀偶的！

真心想爱

http://baidu.iqiyi.com/kan/Zi5Y