Question

我用易语言做了一个简单的MP3播放器，但有些歌曲无法播放，也是MP3格式的。这到底是怎么回事？

Answer 1

.版本 2
.支持库 iext3
.支持库 spec
.支持库 iext
.支持库 eMMedia

.程序集 窗口程序集1
.程序集变量 热键

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

.判断开始 (编辑框1.内容 ＝ “”)
信息框 (“你的连接有误，或者没有输入连接”, #信息图标, )
返回 ()
.判断 (编辑框1.内容 ＝ “在这里你可以添加音乐”)
信息框 (“你的连接有误，或者没有输入连接”, #信息图标, )
返回 ()
.默认

.判断结束

播放MP3 (, 编辑框1.内容)

图片框1.播放动画 ＝ 真
图片框2.可视 ＝ 假

.子程序 _纵向滚动条1_位置被改变

.子程序 _目录框1_目录被改变

.子程序 _按钮3_被单击

暂停播放MP3 ()
按钮3.可视 ＝ 假
图片框2.可视 ＝ 真

.子程序 _按钮2_被单击
.局部变量 路径, 文本型

.如果真 (文件是否存在 (取运行目录 () ＋ “\set.ini”))
通用对话框1.初始目录 ＝ 读配置项 (取运行目录 () ＋ “\set.ini”, “基本配制”, “最后路径”, )
.如果真结束
.如果真 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名
路径 ＝ 取文本左边 (通用对话框1.文件名, 倒找文本 (通用对话框1.文件名, “\”, , 假))
写配置项 (取运行目录 () ＋ “\set.ini”, “基本配制”, “最后路径”, 路径)
.如果真结束

.子程序 _按钮4_被单击

按钮3.可视 ＝ 真
继续播放MP3 ()
图片框1.播放动画 ＝ 真
图片框2.可视 ＝ 假

.子程序 _按钮5_被单击

卷帘式菜单1.可视 ＝ 真

.子程序 _按钮6_被单击
.局部变量 项目值, 整数型

项目值 ＝ 列表框1.加入项目 (编辑框1.内容, )
.如果真 (项目值 ≠ -1)
列表框记忆 (列表框1.取项目文本 (项目值), 1)
.如果真结束
图片框1.播放动画 ＝ 假

.子程序 _影像框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.子程序 播放
.参数 参数_文件名, 文本型
.局部变量 状态栏文件名, 文本型, , "0"
.局部变量 文件名, 文本型

播放MP3 (, 参数_文件名)
状态栏文件名 ＝ 分割文本 (列表框1.取项目文本 (列表框1.现行选中项), “\”, )
文件名 ＝ 状态栏文件名 [取数组下标 (状态栏文件名, )]
调试输出 (文件名)

状态条1.置文本 (0, “正在播放：” ＋ 取文本左边 (文件名, 取文本长度 (文件名) － 4))
透明标签1.标题 ＝ 取文本左边 (文件名, 取文本长度 (文件名) － 4)
编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

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

播放 (删首尾空 (列表框1.取项目文本 (列表框1.现行选中项)))
图片框1.播放动画 ＝ 真
图片框2.可视 ＝ 假

.子程序 列表框记忆
.参数 新信息, 文本型, 可空
.参数 操作类型, 整数型
.局部变量 字段数据, 字段信息, , "1"
.局部变量 取记录计数, 整数型

.如果真 (文件是否存在 (取运行目录 () ＋ “\db.dat”) ＝ 假)
字段数据 [1].名称 ＝ “路径”
字段数据 [1].类型 ＝ #文本型
字段数据 [1].最大文本长度 ＝ 500
.如果真 (创建 (取运行目录 () ＋ “\db.dat”, 字段数据) ＝ 假)
信息框 (“创建数据失败”, 0, )
返回 ()
.如果真结束
.如果真 (打开 (取运行目录 () ＋ “\db.dat”, , , , , , ) ＝ 假)
信息框 (“打开数据库失败”, 0, )
返回 ()
.如果真结束

.如果真结束
.判断开始 (操作类型 ＝ 1)
.如果真 (加记录 (新信息) ＝ 假)
信息框 (“添加记录失败”, 0, )
返回 ()
.如果真结束

.判断 (操作类型 ＝ 2)
.如果真 (取记录数 () ＝ 0)
返回 ()
.如果真结束
.计次循环首 (取记录数 (), 取记录计数)
列表框1.加入项目 (读 (“路径”), )
跳过 ()
.计次循环尾 ()

.默认

.判断结束

.子程序 _窗口1_创建完毕

阴影特效 ()
资源皮肤 (#图片1)
打开 (取运行目录 () ＋ “\db.dat”, , , , , , )
列表框记忆 (, 2)
编辑框1.内容 ＝ “在这里你可以添加音乐”

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

弹出菜单 (右键, , )

.子程序 _删除记录_被选择

.如果真 (删除 (查找 (读 (“路径”) ＝ 列表框1.取项目文本 (列表框1.现行选中项))))
.如果真 (彻底删除 ())
列表框1.清空 ()
列表框记忆 (, 2)

.如果真结束

.如果真结束

.子程序 _删除全部记录_被选择
.局部变量 nn, 整数型

删除 (真)
彻底删除 ()
列表框1.清空 ()
列表框记忆 (, 2)

.子程序 _列表框1_列表项被选择

.子程序 _滑块条2_位置被改变, , , 音量调节
.局部变量 左边声音, 整数型
.局部变量 右边声音, 整数型
.局部变量 n1, 整数型

系统音量1.打开 (4)
.如果 (滑块条2.位置 ＝ 1)
系统音量1.置静音 (真)
.否则
系统音量1.置静音 (假)
.如果结束

.如果真 (滑块条2.位置 ＝ 10)
系统音量1.置音量 (系统音量1.取最大音量 (), 系统音量1.取最大音量 ())
.如果真结束

.计次循环首 (8, n1) ' 除了最大音量和静音的余下8个音量
.如果真 (滑块条2.位置 ＝ n1)
系统音量1.置音量 (系统音量1.取最大音量 () × (n1 － 10) × 0.1, 系统音量1.取最大音量 () × (n1 － 10) × 0.1)
跳出循环 ()
.如果真结束

.计次循环尾 ()

.子程序 _状态条1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.子程序 _编辑框1_内容被改变

图片框4.可视 ＝ 真
延迟 (3000)
图片框4.可视 ＝ 假

.子程序 _窗口1_将被销毁

结束 ()

.子程序 _卷帘式菜单1_项目被选择
.参数 菜单索引, 整数型
.参数 项目索引, 整数型

结束 ()

.子程序 子程序_初始化

.子程序 获取歌曲时间

.子程序 获取MP3时间

Answer 2

.如果 (通用对话框1.打开 ())
编辑框1.内容 ＝ 通用对话框1.文件名
.否则

.如果结束

.子程序 _按钮2_被单击

.如果真 (文件是否存在 (编辑框1.内容) ＝ 假)
信息框 (“不存在哦！~ ~！”, 16, “错误图标”)
返回 ()
.如果真结束
播放MP3 (1, 编辑框1.内容)
标签2.标题 ＝ “MP3播放中......”

Answer 3

很有可能是楼主的机器太低级了，，你把歌曲发给我看看我的易语言播放器能不能播放

Answer 4

易语言的播放器之支持MP3和 MID的音乐 想播放更多的滑 加载 微软自带的播放器控件
易语言里面有那个。

Answer 5

易语言支持的格式只有 mp3和wav格式，谢谢