| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取MP4帧高度 | 文本型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| MP4文件 | 字节集 | ||||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件号 | 整数型 | |||||
| index | 长整数型 | |||||
| 读写位置 | 长整数型 | |||||
| bin | 字节集 | |||||
| 帧宽度 | 长整数型 | |||||
| 帧高度 | 长整数型 | |||||
bin ＝ 读入字节集_un (文件号, 1000)
index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, )
如果真 (index ＝ -1)
index ＝ 寻找字节集 (bin, 到字节集 (“free”), )如果真 (index ＝ -1)读写位置 ＝ 取文件长度_un (文件号) － 25000000移动读写位置_un (文件号, #文件首, 读写位置)bin ＝ 读入字节集_un (文件号, 25000000)index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, )帧宽度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 84, 2))帧高度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 88, 2))如果真 (帧宽度 ＝ 0 且 帧高度 ＝ 0)index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, index ＋ 4)帧宽度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 84, 2))帧高度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 88, 2))返回 (到文本 (帧宽度) ＋ “×” ＋ 到文本 (帧高度))index ＝ index ＋ 4读写位置 ＝ 字节集转长整数 (取字节集中间 (bin, index, 4))移动读写位置_un (文件号, #文件首, 读写位置)bin ＝ 读入字节集_un (文件号, 500)index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, )帧宽度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 84, 2))
帧高度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 88, 2))
如果真 (帧宽度 ＝ 0 且 帧高度 ＝ 0)如果 (取文件长度_un (文件号) － 读写位置 － 300 ＜ 25000000)移动读写位置_un (文件号, #文件首, 读写位置 ＋ 300)bin ＝ 读入字节集_un (文件号, 取文件长度_un (文件号) － 读写位置 － 300)index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, )帧宽度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 84, 2))
帧高度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 88, 2))
读写位置 ＝ 取文件长度_un (文件号) － 25000000
移动读写位置_un (文件号, #文件首, 读写位置)bin ＝ 读入字节集_un (文件号, 25000000)index ＝ 寻找字节集 (bin, { 0, 0, 0, 92, 116, 107, 104, 100 }, )帧宽度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 84, 2))帧高度 ＝ 字节集转长整数 (取字节集中间 (bin, index ＋ 88, 2))
关闭文件_un (文件号)
返回 (到文本 (帧宽度) ＋ “×” ＋ 到文本 (帧高度))
