精易论坛

标题: 中-高级 易语言MediaPlay媒体播放器 [打印本页]
作者: stillness    时间: 2012-12-27 11:58
标题: 中-高级 易语言MediaPlay媒体播放器
本帖最后由 玲心韩雪 于 2012-12-27 12:32 编辑




  1. <blockquote>.版本 2
复制代码
  1. .版本 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

  3. .DLL命令 PathIsDirectoryEmptyA, 整数型, "shlwapi.dll"
  4.     .参数 pszPath, 文本型
复制代码
MediaPlay.zip (8.39 KB, 下载次数: 436)
http://www.3600gz.cn/le3600_down ... 5Nzh8MTM2MjM3Mjk%3D
修订版
  1. .版本 2
  2. .支持库 eMMedia
  3. .支持库 shell
  4. .支持库 iconv
  5. .支持库 eAPI
  6. .支持库 internet

  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, 文本型

  25. .子程序 __启动窗口_创建完毕

  27. 初始化OCX ()

  29. .子程序 初始化OCX, , 公开, 初始化OCX控件样式信息
  30. .局部变量 index, 整数型
  31. .局部变量 Temp, 按钮
  32. .局部变量 Rtr, 文本型, , "0"

  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.     .如果真结束

  84. .变量循环尾 ()
  85. 重定义数组 (过滤器, 假, 0)
  86. 过滤器 ＝ Rtr

  88. .子程序 _选择框1_被单击

  90. .如果 (ChikeBox.选中 ＝ 真)
  91.     MediaPlay.置句柄 (image.取窗口句柄 ())
  92. .否则
  93.     MediaPlay.置句柄 (#IDM_MYO)
  94. .如果结束



  98. .子程序 _按钮1_被单击

  100. 处理按钮事件 ()

  102. .子程序 处理按钮事件, , 公开
  103. .局部变量 object, 按钮

  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. .如果真结束


  129. .子程序 Open

  131. .如果真 (OpenDIG.打开 () ＝ 真)
  132.     Playsunad (OpenDIG.文件名, 0)
  133. .如果真结束
  134. 返回 ()


  137. .子程序 Playsunad
  138. .参数 DIG, 文本型
  139. .参数 标志, 整数型
  140. .局部变量 文件名, 文本型
  141. .局部变量 Temp, 文本型

  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. .如果真结束


  171. .子程序 _列表框1_双击选择

  173. 处理ListBox事件 ()

  175. .子程序 处理ListBox事件
  176. .局部变量 object, 列表框
  177. .局部变量 tem, 文本型

  179. object ＝ 取事件组件 ()
  180. tem ＝ object.取项目文本 (object.现行选中项)
  181. Playsunad (tem, 1)


  184. .子程序 _滑块条1_位置被改变
  185. .局部变量 量, 整数型, , "1,2"

  187. 量 [1] [1] ＝ 系统音量.取最大音量 () ÷ 音波.最大位置
  188. 量 [1] [1] ＝ 量 [1] [1] × 音波.位置
  189. 量 [1] [2] ＝ 量 [1] [1]
  190. 系统音量.置音量 (量 [1] [1], 量 [1] [2])


  193. .子程序 _图片框1_鼠标右键被按下, 逻辑型
  194. .参数 横向位置, 整数型
  195. .参数 纵向位置, 整数型
  196. .参数 功能键状态, 整数型

  198. 弹出菜单 (AI, , )


  201. .子程序 _列表框1_鼠标右键被按下, 逻辑型
  202. .参数 横向位置, 整数型
  203. .参数 纵向位置, 整数型
  204. .参数 功能键状态, 整数型

  206. 弹出菜单 (AI, , )


  209. .子程序 _删除_被选择

  211. .如果 (ListBox.取项目数 () ＞ 0)
  212.     .如果 (ListBox.删除项目 (ListBox.现行选中项) ≠ 真)
  213.         信息框 (#节5, 64, )
  214.     .否则
  215.         信息框 (#节6, 64, )
  216.     .如果结束

  218. .否则
  219.     信息框 (#节9, 64, )
  220. .如果结束


  223. .子程序 _删除全部_被选择

  225. .如果 (ListBox.取项目数 () ＞ 0)
  226.     ListBox.清空 ()
  227.     .如果 (ListBox.取项目数 () ＞ 0)
  228.         信息框 (#节7, 64, )
  229.     .否则
  230.         信息框 (#节8, 64, )
  231.     .如果结束

  233. .否则
  234.     信息框 (#节9, 64, )
  235. .如果结束


  238. .子程序 _添加_被选择

  240. Open ()


  243. .子程序 _添加目录_被选择
  244. .局部变量 目录, 文本型
  245. .局部变量 文件, 文本型
  246. .局部变量 索引, 整数型, , "2"

  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.             .如果真结束

  264.         .计次循环尾 ()
  265.         .如果真 (索引 [2] ＞ 0)
  266.             ListBox.加入项目 (目录 ＋ 文件, )
  267.         .如果真结束

  269.     .如果真结束
  270.     文件 ＝ 寻找文件 (, )
  271. .判断循环尾 ()


  274. .子程序 _媒体信息_被选择
  275. .局部变量 项目信息, 文本型
  276. .局部变量 ccc, 文本型, , "0"

  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, )

  298. .子程序 _关闭媒体_被选择

  300. .如果 (MediaPlay.关闭 () ＝ 真 或 信息.关闭 () ＝ 真)
  301.     信息框 (#节13, 64, )
  302. .否则
  303.     信息框 (#节14, 64, )
  304. .如果结束



  308. .子程序 _时钟1_周期事件

  310. 处理Timer事件 ()

  312. .子程序 处理Timer事件
  313. .局部变量 a, 整数型, 静态
  314. .局部变量 b, 整数型, 静态

  316. .如果真 (取文本长度 (Text) ＞ 72)
  317.     a ＝ a ＋ 1
  318.     b ＝ 取文本长度 (Text) － a
  319.     .如果 (b ＞ 0)
  320.         _MainForm.标题 ＝ 取文本右边 (Text, 取文本长度 (Text) － a)
  321.     .否则
  322.         a ＝ 0
  323.     .如果结束

  325. .如果真结束


  328. .子程序 _载入_被选择
  329. .局部变量 数据, 字节集
  330. .局部变量 文本, 文本型, , "0"
  331. .局部变量 index, 整数型
  332. .局部变量 temp, 文本型

  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.             .如果结束

  354.         .如果真结束

  356.     .计次循环尾 ()
  357. .如果真结束


  360. .子程序 _保存_被选择

  362. 保存文档 (0)

  364. .子程序 保存文档
  365. .参数 标志, 整数型
  366. .局部变量 文本, 文本型
  367. .局部变量 index, 整数型
  368. .局部变量 流, 字节集

  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. .如果真结束


  392. .子程序 __启动窗口_首次激活

  394. .如果真 (是否与互联网连接 () ＝ 真)
  395.     _MainForm.图标 ＝ HTTP读文件 (“http://www.youku.com/favicon.ico”)
  396. .如果真结束


  399. .子程序 _列表框1_按下某键, 逻辑型
  400. .参数 键代码, 整数型
  401. .参数 功能键状态, 整数型

  403. .如果真 (键代码 ＝ #回车键)
  404.     .如果真 (ListBox.取项目数 () ＞ 0)
  405.         Playsunad (ListBox.取项目文本 (ListBox.现行选中项), 1)
  406.     .如果真结束

  408. .如果真结束


  411. .子程序 _SAVE_被选择

  413. 保存文档 (1)
复制代码
作者: stillness    时间: 2012-12-27 12:04
本帖最后由 玲心韩雪 于 2012-12-27 12:10 编辑

过滤器不完整请写入该段
.版本 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:19
抢板凳再说
作者: stillness    时间: 2012-12-27 12:20

列表保存模式编码成烂码
作者: 兔纸兄    时间: 2012-12-27 12:21
一晚条的也给发上来吧 俺不是用来看 俺是用来用
作者: 宇智波·佐助    时间: 2013-1-4 09:00
看一下子        
作者: 宇智波·流氓    时间: 2013-1-4 14:17
这帖子。。好长。。。。好长。。。
作者: 单月    时间: 2013-1-26 01:42
= = 学习下
作者: w909821088    时间: 2013-3-17 15:01
谢谢分享！！
作者: askayao    时间: 2013-3-17 15:12
什么!!!!!!!!!!!!!!!!
作者: 1182410163    时间: 2013-4-20 22:36
干什么的软件
作者: 规定    时间: 2013-5-7 12:03

一晚条的也给发上来吧 俺不是用来看 俺是用来用
作者: 简单姿迷stef    时间: 2013-5-9 15:40
好厉害的样子
作者: liuhe68    时间: 2013-5-20 09:52
谢谢分享！
作者: djqq826    时间: 2013-7-25 10:29
作者: GYSZJ    时间: 2014-3-10 11:24
音频播放可以，但视频效果不能显现。加油！
作者: qcdr    时间: 2014-6-8 22:03
学习一下子
作者: zht98    时间: 2014-6-27 16:53
谢谢分享！！
作者: huloevxu1314    时间: 2015-3-11 20:17
无法播放MP4
作者: 浪子风    时间: 2015-4-12 16:15
你真好  向你学习
作者: 2757773120    时间: 2015-6-29 17:14
好东西砍砍砍砍砍
作者: kezheng    时间: 2016-9-9 18:51
阿斯顿发生担负起45 发给全体大概钱34
作者: 919306288    时间: 2016-11-20 06:31
谢谢分享，学习
作者: quenpon    时间: 2016-11-21 19:07
ceshiyixia.
作者: 钰凡    时间: 2017-1-19 04:45
谢谢分享，学习
作者: 签名神效    时间: 2017-4-19 08:25
打开文件失败？
作者: damnedvi    时间: 2017-5-27 10:57
看看！！！！！！
作者: 就叫这破名    时间: 2019-3-27 09:02
无法播放MP4?
作者: fxiaodi    时间: 2019-9-23 13:37
谢谢楼主的分享！！！
作者: 元老    时间: 2020-8-24 21:43
能播放视频就好了
作者: 我的yyy123    时间: 2021-6-24 09:13
只有声音，怎么回事
作者: qfh012    时间: 2022-4-17 23:21
非常好。



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4