【纯源码】取视频MP4 M4V播放时长

361322548

原帖 感谢原作者发出源码，简单优化了一下，测试MP4 M4V 可用，其他视频未测试，大家看看

  

子程序名	返回值类型	公开	备 注
取视频时长	整数型		mp4 m4v 已验证可用 返回持续秒数
参数名	类 型	参考	可空	数组	备 注
视频字节集	字节集

变量名	类 型	静态	数组	备 注
文件号	整数型
字节集	字节集
持续长度	长整数型			duration
时间尺度	长整数型			timescale
持续秒数	整数型
标志位	整数型

标志位 ＝ 寻找字节集 (视频字节集, { 108, 109, 118, 104, 100 }, )  ' 6c 6d 76 68 64’
字节集 ＝ 取字节集中间 (视频字节集, 标志位 ＋ 17, 4)
时间尺度 ＝ 进制_十六到十 (字节集_字节集到十六进制 (字节集))
字节集 ＝ 取字节集中间 (视频字节集, 标志位 ＋ 21, 4)
持续长度 ＝ 进制_十六到十 (字节集_字节集到十六进制 (字节集))
' 调试输出 (时间尺度, 持续毫秒数)
持续秒数 ＝ 持续长度 ÷ 时间尺度
返回 (持续秒数)

.版本 2<br /> <br /> .子程序 取视频时长, 整数型, 公开, mp4 m4v 已验证可用 返回持续秒数<br /> .参数 视频字节集, 字节集<br /> .局部变量 文件号, 整数型<br /> .局部变量 字节集, 字节集<br /> .局部变量 持续长度, 长整数型, , , duration<br /> .局部变量 时间尺度, 长整数型, , , timescale<br /> .局部变量 持续秒数, 整数型<br /> .局部变量 标志位, 整数型<br /> <br /> 标志位 ＝ 寻找字节集 (视频字节集, { 108, 109, 118, 104, 100 }, )  ' 6c 6d 76 68 64’<br /> 字节集 ＝ 取字节集中间 (视频字节集, 标志位 ＋ 17, 4)<br /> 时间尺度 ＝ 进制_十六到十 (字节集_字节集到十六进制 (字节集))<br /> 字节集 ＝ 取字节集中间 (视频字节集, 标志位 ＋ 21, 4)<br /> 持续长度 ＝ 进制_十六到十 (字节集_字节集到十六进制 (字节集))<br /> ' 调试输出 (时间尺度, 持续毫秒数)<br /> 持续秒数 ＝ 持续长度 ÷ 时间尺度<br /> 返回 (持续秒数)

ghost12

感谢分享，很给力！~

wlqc

简单好用。感谢楼主

361322548

测试 MP4 M4V MOV  可用

xjshuaishuai

谢谢分享！

孤城已故

gaoqing

谢谢分享

深圳梦

支持开源~！感谢分享

quary888

谢谢楼主分享！！！ 好人一生平安！！！