如何取MPG文件的播放时间?

xuhao1 2007-05-08 12:39:59
MPG1、MPG2格式
...全文
215 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
UltraBejing 2008-05-01
  • 打赏
  • 举报
回复
不明LZ在说什么
knowledge_Is_Life 2008-04-30
  • 打赏
  • 举报
回复
有点难度哦
xiaohedou 2007-05-08
  • 打赏
  • 举报
回复
看看Directx的IMediaSeeking和IMediaPosition接口
.版本 2 .支持库 wmp9 .支持库 shellEx .支持库 xplib .支持库 iext .支持库 iext3 .支持库 iext2 .支持库 iext6 .支持库 shell .程序集 启动窗口 .程序集变量 日期, 文本型 .程序集变量 时间, 文本型 .程序集变量 客户数, 整数型 .程序集变量 点播播放状态, 逻辑型, , , 点播变量 .程序集变量 目录信息, 文本型, , , 点播变量 .程序集变量 目录名, 文本型, , , 点播变量 .程序集变量 文件名, 文本型, , , 点播变量 .程序集变量 命令, 文本型, , , 点播变量 .程序集变量 点播计次, 整数型, , , 点播变量 .程序集变量 客户地址, 文本型, , , 点播变量 .程序集变量 歌曲名称, 文本型, , , 点播变量 .程序集变量 点播机号, 文本型, , , 点播变量 .程序集变量 控制, 播放器控制, , , 播放器 .程序集变量 媒体, 播放器媒体, , , 播放器 .程序集变量 网络, 播放器网络, , , 播放器 .程序集变量 设定, 播放器设定, , , 播放器 .程序集变量 光驱, 播放器光驱, , , 播放器 .程序集变量 光驱集, 播放器光驱集, , , 播放器 .程序集变量 热键标志, 整数型 .程序集变量 g, 整数型 .子程序 __启动窗口_创建完毕, , , 启动窗口 .局部变量 计次, 整数型 .局部变量 编号, 文本型 ' --======== 易语言资源网 (www.5A5X.com) ======-- ' 努力创建完善、持续更新的易语言学习例程源码资源站 ' --================ www.5A5X.com ===========-- ' --================== 易语言资源网注意事项 ================-- ' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站; ' 本易语言资源网( www.5A5X.com)所有软件和资料均为软件作者提 ' 供和网友推荐发布而来,其版权归该软件和程序源码的合法拥有者所 ' 有,本站易语言资源网整理收集仅供易语言用户学习和易语言技术研 ' 究探讨使用,不得用于任何商业用途。如果由于以上原因造成的版权 ' 纠纷本站概不负责! ' * 本站资源未经许可,任何网站不得非法盗链及抄袭本站资源;如引用 ' 页面,请注明来自易语言资源网,谢谢合作! ' --===================== www.5A5X.com ================-- 热键标志 = 注册热键 (_启动窗口.窗口句柄 (), 标签1.窗口句柄 (), 0, #F7键) 标签1.底图 = #gqj ' bq1.dt= #gqj _时钟4_周期事件 () XP风格 (1) ' 载入 (系统设置, _启动窗口, 假) 置托盘图标 (#托盘图标, “大厅音乐点播系统 V1.0”) ' 设置客户列表框的行数 .' 如果真 (客户列表框.表项数 () = 0) .' 计次循环首 (到整数 (系统设置.N台.内容), 计次) ' ' 机器编号位数不足自动补0 .' 如果真 (文本长度 (到文本 (计次)) = 1) ' 编号 = “00” + 到文本 (计次) .如果真结束 .' 如果真 (文本长度 (到文本 (计次)) = 2) ' 编号 = “0” + 到文本 (计次) .如果真结束 .' 如果真 (文本长度 (到文本 (计次)) = 3) ' 编号 = 到文本 (计次) .如果真结束 ' 客户列表框.置标题 (客户列表框.插入表项 (, , , , , ), 1, 编号 + “号”) .' 计次循环尾 () .如果真结束 点播播放状态 = 假 控制 = 播放器.控制 () 设定 = 播放器.设定 () 设定.自动播放 = 假 播放器.地址 = 读配置项 (运行目录 () + “\MusicServer.ini”, “System”, “播放地址”, ) 控制.当前位置 = 到整数 (读配置项 (运行目录 () + “\MusicServer.ini”, “System”, “播放位置”, )) g = 到整数 (读配置项 (运行目录 () + “\MusicServer.ini”, “System”, “播放序列”, )) ' 本源码来自易语言资源网(www.5A5X

1,184

社区成员

发帖
与我相关
我的任务
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
  • GAME,图形处理/多媒体社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧