取网络MP4时长

番茄吧

问答区有易友提问，想提取出网上的 MP4 时长，搜索了下，就找到下边的资料，其实本地的也可以，读入100个字节就能找出时长信息了

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

输出调试文本 (取网络mp4时长 (“https://player.zmdedu.cn/data1/transform/2021/6/7/16/4/d4b8e28d1923423dbf328baf9f95f7b8/b7c700e0a71cbfd1a91d7767c9915629.mp4/mp4/transform.mp4”))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取网络mp4时长	双精度小数型
参数名	类 型	参考	可空	数组	备 注
url_Mp4	文本型

变量名	类 型	静态	数组	备 注
bin	字节集
i	整数型
index	整数型
time_scale	长整数型
durations	长整数型

bin ＝ 网页_访问 (url_Mp4, , , , , “Range: bytes=0-100”, , , )
index ＝ 寻找字节集 (bin, 到字节集 (“mvhd”), ) ＋ 4
time_scale ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 12, 4))
durations ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 12 ＋ 4, 4))
返回 (durations ÷ time_scale)

子程序名	返回值类型	公开	备 注
字节集转长整数	长整数型
参数名	类 型	参考	可空	数组	备 注
bin	字节集

变量名	类 型	静态	数组	备 注
zb	字节集
i	整数型

zb ＝ 取空白字节集 (取字节集长度 (bin))
计次循环首 (取字节集长度 (bin), i)
zb [取字节集长度 (bin) － i ＋ 1] ＝ bin [i]
计次循环尾 ()
返回 (取字节集数据 (zb, #长整数型, ))

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 输出调试文本 (取网络mp4时长 (“https://player.zmdedu.cn/data1/transform/2021/6/7/16/4/d4b8e28d1923423dbf328baf9f95f7b8/b7c700e0a71cbfd1a91d7767c9915629.mp4/mp4/transform.mp4”))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 取网络mp4时长, 双精度小数型<br /> .参数 url_Mp4, 文本型<br /> .局部变量 bin, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 time_scale, 长整数型<br /> .局部变量 durations, 长整数型<br /> <br /> bin ＝ 网页_访问 (url_Mp4, , , , , “Range: bytes=0-100”, , , )<br /> index ＝ 寻找字节集 (bin, 到字节集 (“mvhd”), ) ＋ 4<br /> time_scale ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 12, 4))<br /> durations ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 12 ＋ 4, 4))<br /> 返回 (durations ÷ time_scale)<br /> <br /> .子程序 字节集转长整数, 长整数型<br /> .参数 bin, 字节集<br /> .局部变量 zb, 字节集<br /> .局部变量 i, 整数型<br /> <br /> zb ＝ 取空白字节集 (取字节集长度 (bin))<br /> .计次循环首 (取字节集长度 (bin), i)<br />     zb [取字节集长度 (bin) － i ＋ 1] ＝ bin <i><br /> .计次循环尾 ()<br /> 返回 (取字节集数据 (zb, #长整数型, ))

补充内容 (2021-11-5 20:21):
最新版在15楼，不知道还有没有别的格式不支持

补充内容 (2022-10-13 13:56):
又更新了一下，最新版在 21楼，这次支持 FLV 格式的了

补充内容 (2022-12-14 21:06):
又更新了一下，最新版在 23楼，这次支持 QT模式的mp4 格式了

补充内容 (2024-11-13 08:47):
又更新了一下，最新版在 31楼，自己测试吧，我没遇到那么多格式

番茄吧

取网络mp4 FLV时长 1.e (894.09 KB, 下载次数: 0)

2024-11-13 08:44 上传

点击文件名下载附件

又更新了下，又能多支持一些了
PS，主要问题来源于这玩意纯属是我自己臆测出来的东西，格式我不清楚，而且我也耐不下性子看，哪位大佬如果研究透彻了MP4的完整格式，别忘了 at 我学习下

旋律小帅

感谢 感谢 正需要

qweqwe28

学习了
谢谢大佬

hx3355789

感谢楼主分享

番茄吧

fksdehfk778 发表于 2023-3-21 14:24
https://video3.yangkeduo.com/i1/2020-07-17/66821a53c6cca7d26f9ec18058038b3c.mp4   貌似15秒的视频  ...

把这里改的足够大，就可以了（其实就是我为了节省时间，只下载了很小一个片段，没找到标志符造成的），或者你自己改下，直接全部读回来，再用这个代码去寻找字节集啊，等等的判断，很简单的

番茄吧

fksdehfk778 发表于 2023-3-21 14:24
https://video3.yangkeduo.com/i1/2020-07-17/66821a53c6cca7d26f9ec18058038b3c.mp4   貌似15秒的视频  ...

我看看到底啥咋回事

fksdehfk778

番茄吧 发表于 2021-11-5 20:20
升级到了最新版，这次应该又支持了一种，也许还有别的不能支持吧，只能遇到再说了

...

https://video3.yangkeduo.com/i1/2020-07-17/66821a53c6cca7d26f9ec18058038b3c.mp4   貌似15秒的视频 读取出来之后 显示 几千秒

番茄吧

又更新了一下，最新版在 23楼，这次支持 qt模式的MP4的了

番茄吧

取网络mp4 FLV时长 1.e (894.17 KB, 下载次数: 63)

2022-12-14 21:04 上传

点击文件名下载附件

又更新了一下，支持了 qt版本  

QT：QuickTime 的缩写 .qt 文件代表苹果QuickTime媒体文件；