海康视频监控专用视频格式解码学习

wupingjun315

最近在研究海康威视的视频监控，研究了不少资料，并借助AI，逐渐的搞明白了一些问题。
首先，海康的视频监控系统中下载的视频文件虽然是MP4格式的，但并不能正常用程序解码
搜索了资料才发现海康在标准视频格式的基础上，添加了自定义的一些东西，导致没法直接解码，需要通过海康官方的SDK才能处理
但是官方SDK有很多功能上的不足，对于需要进行视频图像提取并做进一步处理的场景来说，很不友好。
于是自己参考相关资料，利用AI给出的思路，写了一个简单的例程，可以分享给大家，大家可以参考一下，不喜勿喷。

这个例程可以通过纯字节分析的方法，提取海康视频文件的总帧数、I帧（关键帧）数、帧率、视频图像的宽度、高度，
还能够调用FFmpeg对首个关键帧进行解码并生成预览图。
需要注意的是，在使用这个例程之前，需要下载FFmpeg.exe，并修改程序中关于编码器的路径，否则是会报错的。

  

' 【1】解析视频参数，按照{ 0, 0, 1, 186 }
p ＝ 打开文件 (处理列表 [id].视频路径, #读入, #禁止写 )
long ＝ 取文件长度 (p)
移到文件首 (p)
读写位置 ＝ 1
data_history_start ＝ 1
连续赋值 ({  }, data_buff, data_history)
清除数组 (帧数据)
判断循环首 (是否在文件尾 (p, 假) ＝ 假)
data_buff ＝ 读入字节集 (p, #缓存大小 )
data_buff_long ＝ 取字节集长度 (data_buff)
data_array ＝ 分割字节集 (data_buff, { 0, 0, 1, 186 }, )
num ＝ 取数组成员数 (data_array)
如果真 (num ≤ 0)
到循环尾 ()

判断 (num ＝ 1)
' 没有找到标志字符，整段数据被作为数组成员，此时将数据加入历史帧数据缓冲，不处理
data_history ＝ data_history ＋ data_array [1]
' 调试输出 (“没有发现PACK标记，数据加入历史帧，不处理”, “data_history(long)=” ＋ 到文本 (取字节集长度 (data_history)), “data_history_start=” ＋ 到文本 (data_history_start))

判断 (num ＝ 2)
' 找到1个标志字符，但前半段为上个片段的数据，需要加入前次历史帧数据并完成1帧的处理，处理完成后，后半段数据加入历史缓存，等待处理
' 1.处理头段数据
data_history ＝ data_history ＋ data_array [1]
当前帧.帧头位置 ＝ data_history_start
当前帧.帧长度 ＝ 取字节集长度 (data_history)
处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)
加入成员 (帧数据, 当前帧)
data_history ＝ {  }
' 2.处理尾段数据
data_history ＝ data_array [2]
data_history_start ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度
' 调试输出 (data_history_start, 当前帧.帧头位置 ＋ 当前帧.帧长度)
判断 (num ＞ 2)
' 找到多个标志字符，第一片段数据，需要加入前次历史数据完成1帧的处理，中间（除了最后1个）数据逐个加入帧数据并处理，最后1个数据加入历史缓存等待后续处理
' 1.处理头段数据
data_history ＝ data_history ＋ data_array [1]
当前帧.帧头位置 ＝ data_history_start
当前帧.帧长度 ＝ 取字节集长度 (data_history)
处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)
加入成员 (帧数据, 当前帧)
data_history ＝ {  }
' 2.处理中段数据
变量循环首 (2, num － 1, 1, i)
' 获取帧头位置
当前帧.帧头位置 ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度
当前帧.帧长度 ＝ 取字节集长度 (data_array [i]) ＋ 4
处理一帧数据 (data_array [i], 当前帧.帧类型, 当前帧.时间戳)
加入成员 (帧数据, 当前帧)
变量循环尾 ()
' 3.处理尾端数据
data_history ＝ data_array [num]
data_history_start ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度



读写位置 ＝ 读写位置 ＋ data_buff_long
' ps ＝ 四舍五入 (读写位置 ÷ long × 100, 0)
. ' 如果真 (ps ≠ ps_h)
' 调试输出 (ps)
' ps_h ＝ ps

判断循环尾 ()
' 结束之前，如果data_history不为空，则处理最后一帧数据
如果真 (data_history ≠ {  })
当前帧.帧头位置 ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度
当前帧.帧长度 ＝ 取字节集长度 (data_history) ＋ 4
处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)
加入成员 (帧数据, 当前帧)
data_history ＝ {  }

' 【2】统计帧数
处理列表 [id].总帧数 ＝ 0
处理列表 [id].I帧数 ＝ 0
num ＝ 取数组成员数 (帧数据)
变量循环首 (1, num, 1, i)
判断 (帧数据 [i].帧类型 ＝ 1)
处理列表 [id].总帧数 ＝ 处理列表 [id].总帧数 ＋ 1
处理列表 [id].I帧数 ＝ 处理列表 [id].I帧数 ＋ 1
判断 (帧数据 [i].帧类型 ＝ 2)
处理列表 [id].总帧数 ＝ 处理列表 [id].总帧数 ＋ 1



变量循环尾 ()
' 【3】计算帧率
iframe1_id ＝ 0
iframe2_id ＝ 0
变量循环首 (1, num, 1, i)
如果真 (帧数据 [i].帧类型 ＝ 1)
如果真 (iframe1_id ＝ 0)
iframe1_id ＝ i
到循环尾 ()
如果真 (iframe1_id ≠ 0 且 iframe2_id ＝ 0)
iframe2_id ＝ i
跳出循环 ()


变量循环尾 ()
处理列表 [id].帧率 ＝ 四舍五入 ( (iframe2_id － iframe1_id) ÷ (帧数据 [iframe2_id].时间戳 － 帧数据 [iframe1_id].时间戳), 0)
' 【4】解码首关键帧图像并得出宽高
移动读写位置 (p, #文件首, 帧数据 [iframe1_id].帧头位置)
data_history ＝ 读入字节集 (p, 帧数据 [iframe1_id].帧长度)
关闭文件 (p)
取视频首关键帧图像 (data_history, id, 处理列表 [id].首关键帧图像, 处理列表 [id].宽度, 处理列表 [id].高度)

.版本 2<br /> <br /> ' 【1】解析视频参数，按照{ 0, 0, 1, 186 }<br /> p ＝ 打开文件 (处理列表 [id].视频路径, #读入, #禁止写)<br /> long ＝ 取文件长度 (p)<br /> 移到文件首 (p)<br /> 读写位置 ＝ 1<br /> data_history_start ＝ 1<br /> 连续赋值 ({  }, data_buff, data_history)<br /> 清除数组 (帧数据)<br /> .判断循环首 (是否在文件尾 (p, 假) ＝ 假)<br />     data_buff ＝ 读入字节集 (p, #缓存大小)<br />     data_buff_long ＝ 取字节集长度 (data_buff)<br />     data_array ＝ 分割字节集 (data_buff, { 0, 0, 1, 186 }, )<br />     num ＝ 取数组成员数 (data_array)<br />     .如果真 (num ≤ 0)<br />         到循环尾 ()<br />     .如果真结束<br /> <br />     .判断开始 (num ＝ 1)<br />         ' 没有找到标志字符，整段数据被作为数组成员，此时将数据加入历史帧数据缓冲，不处理<br />         data_history ＝ data_history ＋ data_array [1]<br />         ' 调试输出 (“没有发现PACK标记，数据加入历史帧，不处理”, “data_history(long)=” ＋ 到文本 (取字节集长度 (data_history)), “data_history_start=” ＋ 到文本 (data_history_start))<br /> <br />     .判断 (num ＝ 2)<br />         ' 找到1个标志字符，但前半段为上个片段的数据，需要加入前次历史帧数据并完成1帧的处理，处理完成后，后半段数据加入历史缓存，等待处理<br />         ' 1.处理头段数据<br />         data_history ＝ data_history ＋ data_array [1]<br />         当前帧.帧头位置 ＝ data_history_start<br />         当前帧.帧长度 ＝ 取字节集长度 (data_history)<br />         处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)<br />         加入成员 (帧数据, 当前帧)<br />         data_history ＝ {  }<br />         ' 2.处理尾段数据<br />         data_history ＝ data_array [2]<br />         data_history_start ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度<br />         ' 调试输出 (data_history_start, 当前帧.帧头位置 ＋ 当前帧.帧长度)<br /> <br />     .判断 (num ＞ 2)<br />         ' 找到多个标志字符，第一片段数据，需要加入前次历史数据完成1帧的处理，中间（除了最后1个）数据逐个加入帧数据并处理，最后1个数据加入历史缓存等待后续处理<br /> <br />         ' 1.处理头段数据<br />         data_history ＝ data_history ＋ data_array [1]<br />         当前帧.帧头位置 ＝ data_history_start<br />         当前帧.帧长度 ＝ 取字节集长度 (data_history)<br />         处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)<br />         加入成员 (帧数据, 当前帧)<br />         data_history ＝ {  }<br />         ' 2.处理中段数据<br />         .变量循环首 (2, num － 1, 1, i)<br />             ' 获取帧头位置<br />             当前帧.帧头位置 ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度<br />             当前帧.帧长度 ＝ 取字节集长度 (data_array <i>) ＋ 4<br />             处理一帧数据 (data_array <i>, 当前帧.帧类型, 当前帧.时间戳)<br />             加入成员 (帧数据, 当前帧)<br />         .变量循环尾 ()<br />         ' 3.处理尾端数据<br />         data_history ＝ data_array [num]<br />         data_history_start ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度<br />     .默认<br /> <br />     .判断结束<br /> <br />     读写位置 ＝ 读写位置 ＋ data_buff_long<br /> <br />     ' ps ＝ 四舍五入 (读写位置 ÷ long × 100, 0)<br />     .' 如果真 (ps ≠ ps_h)<br />         ' 调试输出 (ps)<br />         ' ps_h ＝ ps<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> ' 结束之前，如果data_history不为空，则处理最后一帧数据<br /> .如果真 (data_history ≠ {  })<br />     当前帧.帧头位置 ＝ 当前帧.帧头位置 ＋ 当前帧.帧长度<br />     当前帧.帧长度 ＝ 取字节集长度 (data_history) ＋ 4<br />     处理一帧数据 (data_history, 当前帧.帧类型, 当前帧.时间戳)<br />     加入成员 (帧数据, 当前帧)<br />     data_history ＝ {  }<br /> .如果真结束<br /> <br /> ' 【2】统计帧数<br /> 处理列表 [id].总帧数 ＝ 0<br /> 处理列表 [id].I帧数 ＝ 0<br /> num ＝ 取数组成员数 (帧数据)<br /> .变量循环首 (1, num, 1, i)<br />     .判断开始 (帧数据 <i>.帧类型 ＝ 1)<br />         处理列表 [id].总帧数 ＝ 处理列表 [id].总帧数 ＋ 1<br />         处理列表 [id].I帧数 ＝ 处理列表 [id].I帧数 ＋ 1<br />     .判断 (帧数据 <i>.帧类型 ＝ 2)<br />         处理列表 [id].总帧数 ＝ 处理列表 [id].总帧数 ＋ 1<br />     .默认<br /> <br />     .判断结束<br /> <br /> .变量循环尾 ()<br /> ' 【3】计算帧率<br /> iframe1_id ＝ 0<br /> iframe2_id ＝ 0<br /> .变量循环首 (1, num, 1, i)<br />     .如果真 (帧数据 <i>.帧类型 ＝ 1)<br />         .如果真 (iframe1_id ＝ 0)<br />             iframe1_id ＝ i<br />             到循环尾 ()<br />         .如果真结束<br />         .如果真 (iframe1_id ≠ 0 且 iframe2_id ＝ 0)<br />             iframe2_id ＝ i<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> 处理列表 [id].帧率 ＝ 四舍五入 ((iframe2_id － iframe1_id) ÷ (帧数据 [iframe2_id].时间戳 － 帧数据 [iframe1_id].时间戳), 0)<br /> ' 【4】解码首关键帧图像并得出宽高<br /> 移动读写位置 (p, #文件首, 帧数据 [iframe1_id].帧头位置)<br /> data_history ＝ 读入字节集 (p, 帧数据 [iframe1_id].帧长度)<br /> 关闭文件 (p)<br /> 取视频首关键帧图像 (data_history, id, 处理列表 [id].首关键帧图像, 处理列表 [id].宽度, 处理列表 [id].高度)

风一样存在

这个可以