中-高级 易语言MediaPlay媒体播放器

stillness

1. <blockquote>.版本 2

复制代码

1. .版本 2
   
2. 
   
3. .常量 标题, "“MediaPlay”"
   
4. .常量 节1, "“ 视频媒体”"
   
5. .常量 节2, "“ 音乐媒体”"
   
6. .常量 节3, "“控制区域”"
   
7. .常量 节4, "“本窗口播放(&Y)”"
   
8. .常量 IDM_MYO, "0"
   
9. .常量 节5, "“删除项目失败”"
   
10. .常量 节6, "“删除项目成功”"
    
11. .常量 节7, "“清空列表失败”"
    
12. .常量 节8, "“清空列表成功”"
    
13. .常量 节9, "<文本长度: 8>"
    
14. .常量 节10, "“请选择您有媒体的文件夹”"
    
15. .常量 节11, "“目录无效”"
    
16. .常量 节12, "“读取信息失败”"
    
17. .常量 节13, "“关闭媒体成功”"
    
18. .常量 节14, "“关闭媒体失败”"
    
19. .常量 节15, "“保存列表成功”"
    
20. .常量 节16, "“保存列表失败”"
    

复制代码

1. .版本 2
   
2. 
   
3. .DLL命令 PathIsDirectoryEmptyA, 整数型, "shlwapi.dll"
   
4.     .参数 pszPath, 文本型
   

复制代码

MediaPlay.zip (8.39 KB, 下载次数: 436)

2012-12-27 11:57 上传

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

http://www.3600gz.cn/le3600_down ... 5Nzh8MTM2MjM3Mjk%3D
修订版

1. .版本 2
   
2. .支持库 eMMedia
   
3. .支持库 shell
   
4. .支持库 iconv
   
5. .支持库 eAPI
   
6. .支持库 internet
   
7. 
   
8. .程序集 Model
   
9. .程序集变量 MediaPlay, 媒体播放
   
10. .程序集变量 系统音量, 系统音量
    
11. .程序集变量 ListBox, 列表框
    
12. .程序集变量 image, 图片框
    
13. .程序集变量 _MainForm, 窗口
    
14. .程序集变量 Register, 文本型, , "0"
    
15. .程序集变量 Button, 按钮, , "0"
    
16. .程序集变量 ChikeBox, 选择框
    
17. .程序集变量 OpenDIG, 通用对话框
    
18. .程序集变量 音波, 滑块条
    
19. .程序集变量 信息, 媒体播放
    
20. .程序集变量 过滤器, 文本型, , "0"
    
21. .程序集变量 item, 文本型
    
22. .程序集变量 Timer, 时钟
    
23. .程序集变量 Text, 文本型
    
24. 
    
25. .子程序 __启动窗口_创建完毕
    
26. 
    
27. 初始化OCX ()
    
28. 
    
29. .子程序 初始化OCX, , 公开, 初始化OCX控件样式信息
    
30. .局部变量 index, 整数型
    
31. .局部变量 Temp, 按钮
    
32. .局部变量 Rtr, 文本型, , "0"
    
33. 
    
34. ListBox ＝ 列表框1
    
35. 系统音量 ＝ 系统音量1
    
36. SAVE.可视 ＝ 假
    
37. MediaPlay ＝ 媒体播放1
    
38. 分组框1.标题 ＝ #节3
    
39. ListBox.边框 ＝ 5
    
40. image ＝ 图片框1
    
41. image.边框 ＝ 5
    
42. Timer ＝ 时钟1
    
43. image.背景颜色 ＝ 0
    
44. _MainForm ＝ _启动窗口
    
45. _MainForm.标题 ＝ #标题
    
46. _MainForm.最小化按钮 ＝ 真
    
47. ChikeBox ＝ 选择框1
    
48. ChikeBox.标题居左 ＝ 真
    
49. ChikeBox.横向对齐方式 ＝ 2
    
50. ChikeBox.文本颜色 ＝ #品红
    
51. ChikeBox.标题 ＝ #节4
    
52. OpenDIG ＝ 通用对话框1
    
53. 系统音量.打开 (4104)
    
54. 信息 ＝ 媒体播放2
    
55. OpenDIG.过滤器 ＝ “mp3|*.mp3|mp4|*.mp4|mp2|*.mp2|avi|*.avi|wmv|*.wmv|wav|*.wav|Rm|*.rm;*.rmvb|mpge|*.mpg;*.mpge|mdi|*.mdi|bmp|*.bmp|jpg|*.jpg;jpge|png|*.png|Gif|*.gif|Ico|*.ico|m4v|*.m4v|aac|*.aac|”
    
56. OpenDIG.文件名 ＝ “(请选择您要选择的文件名)”
    
57. WOpenDIG.过滤器 ＝ “Rdb|*.Rdb”
    
58. WOpenDIG.文件名 ＝ “(请选择您的Rdb列表文件)”
    
59. WOpenDIG.类型 ＝ 1
    
60. AI.可视 ＝ 假
    
61. 音波 ＝ 滑块条1
    
62. 音波.刻度类型 ＝ 0
    
63. 音波.最小位置 ＝ 0
    
64. 音波.最大位置 ＝ 100
    
65. 音波.位置 ＝ 音波.最大位置
    
66. Register ＝ { “打开(&O)”, “播放(&P)”, “暂停(&L)”, “停止(&S)” }
    
67. .变量循环首 (1, 取数组下标 (Register, 1), 1, index)
    
68.     复制窗口组件 (按钮1, Temp)
    
69.     加入成员 (Button, Temp)
    
70.     Button [index].可视 ＝ 真
    
71.     .如果真 (index ＞ 1)
    
72.         Button [index].左边 ＝ Button [index － 1].左边 ＋ 75
    
73.     .如果真结束
    
74.     Button [index].标题 ＝ Register [index]
    
75.     Button [index].标记 ＝ 到文本 (index)
    
76. .变量循环尾 ()
    
77. 过滤器 ＝ 分割文本 (OpenDIG.过滤器, “|”, )
    
78. index ＝ index × 0
    
79. .变量循环首 (1, 取数组成员数 (过滤器), 1, index)
    
80.     .如果真 (寻找文本 (过滤器 [index], “*”, , 假) ≠ -1)
    
81.         加入成员 (Rtr, 子文本替换 (过滤器 [index], “*”, “”, , 1, 假))
    
82.     .如果真结束
    
83. 
    
84. .变量循环尾 ()
    
85. 重定义数组 (过滤器, 假, 0)
    
86. 过滤器 ＝ Rtr
    
87. 
    
88. .子程序 _选择框1_被单击
    
89. 
    
90. .如果 (ChikeBox.选中 ＝ 真)
    
91.     MediaPlay.置句柄 (image.取窗口句柄 ())
    
92. .否则
    
93.     MediaPlay.置句柄 (#IDM_MYO)
    
94. .如果结束
    
95. 
    
96. 
    
97. 
    
98. .子程序 _按钮1_被单击
    
99. 
    
100. 处理按钮事件 ()
     
101. 
     
102. .子程序 处理按钮事件, , 公开
     
103. .局部变量 object, 按钮
     
104. 
     
105. object ＝ 取事件组件 ()
     
106. .如果真 (Register [到数值 (object.标记)] ＝ Register [1])
     
107.     Open ()
     
108. .如果真结束
     
109. .如果真 (Register [到数值 (object.标记)] ＝ Register [2])
     
110.     .如果真 (MediaPlay.播放 (-1, ) ≠ 真)
     
111.         信息框 (“播放失败”, 64, )
     
112.     .如果真结束
     
113.     返回 ()
     
114. .如果真结束
     
115. .如果真 (Register [到数值 (object.标记)] ＝ Register [3])
     
116.     .如果真 (MediaPlay.暂停 () ≠ 真)
     
117.         信息框 (“暂停失败”, 64, )
     
118.     .如果真结束
     
119.     返回 ()
     
120. .如果真结束
     
121. .如果真 (Register [到数值 (object.标记)] ＝ Register [4])
     
122.     .如果真 (MediaPlay.停止 () ＝ 假)
     
123.         信息框 (“停止失败”, 64, )
     
124.     .如果真结束
     
125.     返回 ()
     
126. .如果真结束
     
127. 
     
128. 
     
129. .子程序 Open
     
130. 
     
131. .如果真 (OpenDIG.打开 () ＝ 真)
     
132.     Playsunad (OpenDIG.文件名, 0)
     
133. .如果真结束
     
134. 返回 ()
     
135. 
     
136. 
     
137. .子程序 Playsunad
     
138. .参数 DIG, 文本型
     
139. .参数 标志, 整数型
     
140. .局部变量 文件名, 文本型
     
141. .局部变量 Temp, 文本型
     
142. 
     
143. .如果真 (文件是否存在 (DIG) ≠ 真)
     
144.     信息框 (“文件不存在” ＋ #换行符 ＋ “打开失败”, 64, )
     
145.     返回 ()
     
146. .如果真结束
     
147. 文件名 ＝ DIG
     
148. item ＝ 文件名
     
149. .如果真 (标志 ＝ 0)
     
150.     ListBox.加入项目 (文件名, )
     
151. .如果真结束
     
152. .如果真 (MediaPlay.打开 (文件名) ≠ 真)
     
153.     信息框 (“文件打开失败”, 64, )
     
154.     返回 ()
     
155. .如果真结束
     
156. Temp ＝ 取文本右边 (文件名, 取文本长度 (文件名) － 倒找文本 (文件名, “\”, , 假))
     
157. Temp ＝ 取文本左边 (Temp, 寻找文本 (Temp, “.”, , 假) － 1)
     
158. .如果 (MediaPlay.是否视频 () ＝ 真)
     
159.     Temp ＝ Temp ＋ #节1
     
160. .否则
     
161.     Temp ＝ Temp ＋ #节2
     
162. .如果结束
     
163. _MainForm.标题 ＝ Temp
     
164. Text ＝ Temp
     
165. Timer.时钟周期 ＝ 1000
     
166. .如果真 (MediaPlay.播放 (-1, ) ≠ 真)
     
167.     信息框 (“播放失败”, 64, )
     
168. .如果真结束
     
169. 
     
170. 
     
171. .子程序 _列表框1_双击选择
     
172. 
     
173. 处理ListBox事件 ()
     
174. 
     
175. .子程序 处理ListBox事件
     
176. .局部变量 object, 列表框
     
177. .局部变量 tem, 文本型
     
178. 
     
179. object ＝ 取事件组件 ()
     
180. tem ＝ object.取项目文本 (object.现行选中项)
     
181. Playsunad (tem, 1)
     
182. 
     
183. 
     
184. .子程序 _滑块条1_位置被改变
     
185. .局部变量 量, 整数型, , "1,2"
     
186. 
     
187. 量 [1] [1] ＝ 系统音量.取最大音量 () ÷ 音波.最大位置
     
188. 量 [1] [1] ＝ 量 [1] [1] × 音波.位置
     
189. 量 [1] [2] ＝ 量 [1] [1]
     
190. 系统音量.置音量 (量 [1] [1], 量 [1] [2])
     
191. 
     
192. 
     
193. .子程序 _图片框1_鼠标右键被按下, 逻辑型
     
194. .参数 横向位置, 整数型
     
195. .参数 纵向位置, 整数型
     
196. .参数 功能键状态, 整数型
     
197. 
     
198. 弹出菜单 (AI, , )
     
199. 
     
200. 
     
201. .子程序 _列表框1_鼠标右键被按下, 逻辑型
     
202. .参数 横向位置, 整数型
     
203. .参数 纵向位置, 整数型
     
204. .参数 功能键状态, 整数型
     
205. 
     
206. 弹出菜单 (AI, , )
     
207. 
     
208. 
     
209. .子程序 _删除_被选择
     
210. 
     
211. .如果 (ListBox.取项目数 () ＞ 0)
     
212.     .如果 (ListBox.删除项目 (ListBox.现行选中项) ≠ 真)
     
213.         信息框 (#节5, 64, )
     
214.     .否则
     
215.         信息框 (#节6, 64, )
     
216.     .如果结束
     
217. 
     
218. .否则
     
219.     信息框 (#节9, 64, )
     
220. .如果结束
     
221. 
     
222. 
     
223. .子程序 _删除全部_被选择
     
224. 
     
225. .如果 (ListBox.取项目数 () ＞ 0)
     
226.     ListBox.清空 ()
     
227.     .如果 (ListBox.取项目数 () ＞ 0)
     
228.         信息框 (#节7, 64, )
     
229.     .否则
     
230.         信息框 (#节8, 64, )
     
231.     .如果结束
     
232. 
     
233. .否则
     
234.     信息框 (#节9, 64, )
     
235. .如果结束
     
236. 
     
237. 
     
238. .子程序 _添加_被选择
     
239. 
     
240. Open ()
     
241. 
     
242. 
     
243. .子程序 _添加目录_被选择
     
244. .局部变量 目录, 文本型
     
245. .局部变量 文件, 文本型
     
246. .局部变量 索引, 整数型, , "2"
     
247. 
     
248. 目录 ＝ 浏览文件夹 (#节10, 假)
     
249. .如果真 (PathIsDirectoryEmptyA (目录) ≠ 0)
     
250.     信息框 (#节11, 64, )
     
251.     返回 ()
     
252. .如果真结束
     
253. .如果真 (取文本右边 (目录, 1) ≠ “\”)
     
254.     目录 ＝ 目录 ＋ “\”
     
255. .如果真结束
     
256. 文件 ＝ 寻找文件 (目录 ＋ “*”, )
     
257. .判断循环首 (文件 ≠ “”)
     
258.     .如果真 (文件是否存在 (目录 ＋ 文件) ＝ 真)
     
259.         .计次循环首 (取数组下标 (过滤器, 1), 索引 [1])
     
260.             .如果真 (寻找文本 (文件, 过滤器 [索引 [1]], , 假) ≠ -1)
     
261.                 索引 [2] ＝ 索引 [2] ＋ 1
     
262.             .如果真结束
     
263. 
     
264.         .计次循环尾 ()
     
265.         .如果真 (索引 [2] ＞ 0)
     
266.             ListBox.加入项目 (目录 ＋ 文件, )
     
267.         .如果真结束
     
268. 
     
269.     .如果真结束
     
270.     文件 ＝ 寻找文件 (, )
     
271. .判断循环尾 ()
     
272. 
     
273. 
     
274. .子程序 _媒体信息_被选择
     
275. .局部变量 项目信息, 文本型
     
276. .局部变量 ccc, 文本型, , "0"
     
277. 
     
278. .如果真 (信息.打开 (item) ＝ 假)
     
279.     信息框 (#节12, 64, )
     
280.     返回 ()
     
281. .如果真结束
     
282. ccc ＝ { “未知状态”, “播放状态”, “停止状态”, “暂停状态” }
     
283. 项目信息 ＝ “MCI：” ＋ 信息.取别名 ()
     
284. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “媒体时长：” ＋ 到文本 (信息.取总时间 () ＼ 60) ＋ “:” ＋ 到文本 (信息.取总时间 () ％ 60)
     
285. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “媒体大小：” ＋ 到文本 (信息.取长度 () ÷ 1024) ＋ “Kb[千字节]”
     
286. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “媒体比率：” ＋ 到文本 (信息.取比率 ())
     
287. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “媒体类型：”
     
288. .如果 (信息.是否视频 () ＝ 真)
     
289.     项目信息 ＝ 项目信息 ＋ #节1
     
290. .否则
     
291.     项目信息 ＝ 项目信息 ＋ #节2
     
292. .如果结束
     
293. 信息.关闭 ()
     
294. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “播放位置：” ＋ 到文本 (MediaPlay.取位置 () ＼ 60) ＋ “:” ＋ 到文本 (MediaPlay.取位置 () ％ 60)
     
295. 项目信息 ＝ 项目信息 ＋ #换行符 ＋ “播放状态：” ＋ ccc [MediaPlay.取状态 ()]
     
296. 信息框 (项目信息, 64, )
     
297. 
     
298. .子程序 _关闭媒体_被选择
     
299. 
     
300. .如果 (MediaPlay.关闭 () ＝ 真 或 信息.关闭 () ＝ 真)
     
301.     信息框 (#节13, 64, )
     
302. .否则
     
303.     信息框 (#节14, 64, )
     
304. .如果结束
     
305. 
     
306. 
     
307. 
     
308. .子程序 _时钟1_周期事件
     
309. 
     
310. 处理Timer事件 ()
     
311. 
     
312. .子程序 处理Timer事件
     
313. .局部变量 a, 整数型, 静态
     
314. .局部变量 b, 整数型, 静态
     
315. 
     
316. .如果真 (取文本长度 (Text) ＞ 72)
     
317.     a ＝ a ＋ 1
     
318.     b ＝ 取文本长度 (Text) － a
     
319.     .如果 (b ＞ 0)
     
320.         _MainForm.标题 ＝ 取文本右边 (Text, 取文本长度 (Text) － a)
     
321.     .否则
     
322.         a ＝ 0
     
323.     .如果结束
     
324. 
     
325. .如果真结束
     
326. 
     
327. 
     
328. .子程序 _载入_被选择
     
329. .局部变量 数据, 字节集
     
330. .局部变量 文本, 文本型, , "0"
     
331. .局部变量 index, 整数型
     
332. .局部变量 temp, 文本型
     
333. 
     
334. WOpenDIG.类型 ＝ 0
     
335. .如果真 (WOpenDIG.打开 () ＝ 真)
     
336.     .如果真 (文件是否存在 (WOpenDIG.文件名) ≠ 真)
     
337.         信息框 (“导入错误”, 64, )
     
338.         返回 ()
     
339.     .如果真结束
     
340.     数据 ＝ 读入文件 (WOpenDIG.文件名)
     
341.     数据 ＝ 编码转换 (数据, #编码_UTF_8, #编码_GBK, )
     
342.     文本 ＝ 分割文本 (到文本 (数据), #换行符, )
     
343.     .计次循环首 (取数组成员数 (文本), index)
     
344.         .如果真 (删全部空 (文本 [index]) ≠ “”)
     
345.             .如果 (寻找文本 (文本 [index], “<pos:”, , 假) ＝ -1 且 寻找文本 (文本 [index], “/>”, , 假) ＝ -1)
     
346.                 ListBox.加入项目 (文本 [index], )
     
347.             .否则
     
348.                 temp ＝ 取文本中间 (文本 [index], 寻找文本 (文本 [index], “<pos:”, , 假), 寻找文本 (文本 [index], “/>”, , 假) － 寻找文本 (文本 [index], “<pos:”, , 假))
     
349.                 temp ＝ 取文本右边 (temp, 取文本长度 (temp) － 取文本长度 (“<pos:”))
     
350.                 音波.位置 ＝ 到整数 (temp)
     
351.                 _滑块条1_位置被改变 ()
     
352.             .如果结束
     
353. 
     
354.         .如果真结束
     
355. 
     
356.     .计次循环尾 ()
     
357. .如果真结束
     
358. 
     
359. 
     
360. .子程序 _保存_被选择
     
361. 
     
362. 保存文档 (0)
     
363. 
     
364. .子程序 保存文档
     
365. .参数 标志, 整数型
     
366. .局部变量 文本, 文本型
     
367. .局部变量 index, 整数型
     
368. .局部变量 流, 字节集
     
369. 
     
370. .如果真 (ListBox.取项目数 () ＞ 0)
     
371.     WOpenDIG.类型 ＝ 1
     
372.     .计次循环首 (ListBox.取项目数 (), index)
     
373.         .如果真 (index ＝ 1)
     
374.             文本 ＝ ListBox.取项目文本 (index － 1) ＋ #换行符
     
375.         .如果真结束
     
376.         文本 ＝ 文本 ＋ ListBox.取项目文本 (index － 1) ＋ #换行符
     
377.     .计次循环尾 ()
     
378.     文本 ＝ 文本 ＋ “<pos:” ＋ 到文本 (音波.位置) ＋ “/>”
     
379.     流 ＝ 编码转换 (到字节集 (文本), #编码_GBK, #编码_UTF_8, )
     
380.     .如果真 (标志 ＝ 0)
     
381.         WOpenDIG.打开 ()
     
382.     .如果真结束
     
383.     .如果 (写到文件 (WOpenDIG.文件名 ＋ “.Rdb”, 流) ＝ 真)
     
384.         信息框 (#节15, 64, )
     
385.     .否则
     
386.         信息框 (#节16, 64, )
     
387.     .如果结束
     
388.     ' favicon
     
389. .如果真结束
     
390. 
     
391. 
     
392. .子程序 __启动窗口_首次激活
     
393. 
     
394. .如果真 (是否与互联网连接 () ＝ 真)
     
395.     _MainForm.图标 ＝ HTTP读文件 (“http://www.youku.com/favicon.ico”)
     
396. .如果真结束
     
397. 
     
398. 
     
399. .子程序 _列表框1_按下某键, 逻辑型
     
400. .参数 键代码, 整数型
     
401. .参数 功能键状态, 整数型
     
402. 
     
403. .如果真 (键代码 ＝ #回车键)
     
404.     .如果真 (ListBox.取项目数 () ＞ 0)
     
405.         Playsunad (ListBox.取项目文本 (ListBox.现行选中项), 1)
     
406.     .如果真结束
     
407. 
     
408. .如果真结束
     
409. 
     
410. 
     
411. .子程序 _SAVE_被选择
     
412. 
     
413. 保存文档 (1)
     

复制代码

stillness

过滤器不完整请写入该段
.版本 2

OpenDIG.过滤器 ＝ “mp3|*.mp3|mp4|*.mp4|mp2|*.mp2|avi|*.avi|wmv|*.wmv|wav|*.wav|Rm|*.rm;*.rmvb|mpge|*.mpg;*.mpge|mdi|*.mdi|bmp|*.bmp|jpg|*.jpg;jpge|png|*.png|Gif|*.gif|Ico|*.ico|m4v|*.m4v|aac|*.aac|”

代码///方便代码寄存器采集样本

修订代码块 MediaPlay.zip (8.42 KB, 下载次数: 132)

2012-12-27 12:10 上传

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

stillness

列表保存模式编码成烂码

qfh012

非常好。

我的yyy123

只有声音，怎么回事

元老

能播放视频就好了

fxiaodi

谢谢楼主的分享！！！

就叫这破名

无法播放MP4?

damnedvi

看看！！！！！！

签名神效

打开文件失败？

钰凡

谢谢分享，学习

quenpon

ceshiyixia.