易语言视频播放器源码
发布网友
发布时间：2022-04-20 23:19
共1个回答
热心网友
时间：2023-08-22 14:07
易语言的支持库例程里面有，具体打开易语言
如下：
.版本 2
.支持库 eMMedia
.支持库 iext2
.程序集 窗口程序集1
.子程序 _播放按钮_被单击
媒体播放1.播放 (-1)
媒体播放1.取长度 ()
.子程序 _暂停按钮_被单击
.如果 (媒体播放1.取状态 () ＝ 1)
媒体播放1.暂停 ()
.否则
媒体播放1.播放 (媒体播放1.取位置 ())
.如果结束
.子程序 _停止按钮_被单击
媒体播放1.停止 ()
.子程序 _打开_被选择
通用对话框1.过滤器 ＝ “媒体文件|*.wav;*.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm”
.如果真 (通用对话框1.打开 () ＝ 真)
媒体播放1.打开 (通用对话框1.文件名)
.如果 (媒体播放1.是否视频 () ＝ 真)
_启动窗口.标题 ＝ “视频文件”
.否则
_启动窗口.标题 ＝ “声音文件”
.如果结束
.如果真结束
.子程序 __启动窗口_创建完毕
播放按钮.图片 ＝ 取图片组图片 (#图片组, 0, 取默认底色 ())
暂停按钮.图片 ＝ 取图片组图片 (#图片组, 1, 取默认底色 ())
停止按钮.图片 ＝ 取图片组图片 (#图片组, 2, 取默认底色 ())
.子程序 _选择框1_被单击
.如果 (选择框1.选中 ＝ 真)
媒体播放1.置句柄 (分组框1.取窗口句柄 ())
.否则
媒体播放1.置句柄 (0)
.如果结束
.子程序 _媒体信息_被选择
.局部变量 信息文本, 文本型
信息文本 ＝ “比率:” ＋ 到文本 (媒体播放1.取比率 ()) ＋ #换行符 ＋ “总时间:” ＋ 到文本 (媒体播放1.取总时间 ()) ＋ #换行符 ＋ “长度:” ＋ 到文本 (媒体播放1.取长度 ()) ＋ #换行符 ＋ “播放位置:” ＋ 到文本 (媒体播放1.取位置 ()) ＋ #换行符 ＋ “MCI别名:” ＋ 媒体播放1.取别名 ()
信息框 (信息文本, 0, )
