GIF压缩另类（删除帧）

lufanjingyi

  

子程序名	返回值类型	公开	备 注
GIF图片_删除帧	字节集		删除某些帧达到压缩图片大小
参数名	类 型	参考	可空	数组	备 注
临时字节集	字节集				GIF图片

变量名	类 型	静态	数组	备 注
数组	字节集		0
i	整数型
GIF头部	字节集
GIF尾部	字节集
压缩后的图片	字节集

数组 ＝ 分割字节集 (临时字节集, { 0, 33, 249, 4 }, )
计次循环首 (取数组成员数 (数组), i)
如果真 (i ＝ 取数组成员数 (数组))
GIF尾部 ＝ 数组 [i]
压缩后的图片 ＝ 压缩后的图片 ＋ GIF尾部
跳出循环 ()
如果 (i ＝ 1)
GIF头部 ＝ 数组 [i]
压缩后的图片 ＝ GIF头部
如果真 (寻找文本 (到文本 (i ÷ 2), “.”, , 假) ≠ -1)  ' 删除单帧图片
压缩后的图片 ＝ 压缩后的图片 ＋ { 0, 33, 249, 4 } ＋ 数组 [i]


计次循环尾 ()
返回 (压缩后的图片)

.版本 2<br /> <br /> .子程序 GIF图片_删除帧, 字节集, , 删除某些帧达到压缩图片大小<br /> .参数 临时字节集, 字节集, , GIF图片<br /> .局部变量 数组, 字节集, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 GIF头部, 字节集<br /> .局部变量 GIF尾部, 字节集<br /> .局部变量 压缩后的图片, 字节集<br /> <br /> 数组 ＝ 分割字节集 (临时字节集, { 0, 33, 249, 4 }, )<br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (i ＝ 取数组成员数 (数组))<br />         GIF尾部 ＝ 数组 <i><br />         压缩后的图片 ＝ 压缩后的图片 ＋ GIF尾部<br />         跳出循环 ()<br />     .如果真结束<br />     .如果 (i ＝ 1)<br />         GIF头部 ＝ 数组 <i><br />         压缩后的图片 ＝ GIF头部<br />     .否则<br />         .如果真 (寻找文本 (到文本 (i ÷ 2), “.”, , 假) ≠ -1)  ' 删除单帧图片<br />             压缩后的图片 ＝ 压缩后的图片 ＋ { 0, 33, 249, 4 } ＋ 数组 <i><br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 返回 (压缩后的图片)

如果您有更好的方法一起分享吧    嘿嘿！

wh1234567

这个函数怎么调用？GIF图片_删除帧（这里填写啥？）

你可知嘛噶

大牛.怎么判断要删除哪些帧了?

searchjack

谢谢老板 ，   这个办法不错  除了删帧， 还可以压缩单张图片

lufanjingyi

lwb1978 发表于 2018-3-21 10:24
把取单双数的判断换成求余数，这样比你转成文本寻找小数点效率要高吧。

如果真 (i ％ 2 ＝ 0)

我测试了一下  用i ％ 2 ＝ 0压缩1000次耗时94秒        用我的那个耗时93秒      没有什么差别

xtavoxing

大牛.怎么判断要删除哪些帧了?

lwb1978

把取单双数的判断换成求余数，这样比你转成文本寻找小数点效率要高吧。

如果真 (i ％ 2 ＝ 0)

longsui48

想法不错 就是这些的结构可以优化下