deflate,zlib,gzip 数据压缩模块

wlp

zlib-test.zip (39.4 KB, 下载次数: 203)

2024-3-2 19:29 上传

点击文件名下载附件

只支持数据压缩，不支持文件压缩


补充内容 (2024-9-23 03:01):
https://gitee.com/wlpxxx/zlib-buffer.git  最新版本

ikaros

经过测试解压gzip时, 最大耗费时间是字节集数组组合, 后用快速对象类YZC模块中,快速字节集类YZC类替换了数组, 解压速度提升3倍左右, 效果明显压缩效果差不多,
模块下载地址, 请自行下载
https://bbs.125.la/forum.php?mod ... 7%E8%8A%82%E9%9B%86

  

子程序名	返回值类型	公开	备 注
GZIP_压缩_MJ	字节集
参数名	类 型	参考	可空	数组	备 注
data	字节集
windowBits	整数型				为空默认GZIP,-(8~15) 纯deflate   +(8~15)带zlib头和尾   >16带gzip头和尾  【纯deflate】：-15  【zlib】：15 【gzip】：31
chunkSize	整数型				默认：4096 缓冲区大小

变量名	类 型	静态	数组	备 注
strm	z_stream
out	字节集
temp	字节集
err	整数型
字节集	快速字节集类YZC

如果真 (是否为空 (chunkSize))
chunkSize ＝ 4096
如果真 (是否为空 (windowBits))
windowBits ＝ 31

如果真 (DeflateInit (strm, windowBits) ≠ #Z_ERROR_OK )
返回 (out)
temp ＝ 取空白字节集 (chunkSize)
strm.next_in ＝ 取变量数据地址 (data)
strm.avail_in ＝ 取字节集长度 (data)
strm.total_in ＝ 0
strm.next_out ＝ 取变量数据地址 (temp)
strm.avail_out ＝ 取字节集长度 (temp)
strm.total_out ＝ 0
err ＝ Deflate (strm, #Z_FLUSH_NO_FLUSH )
如果真 (err ＝ #Z_ERROR_OK )
字节集.添加 (取字节集左边 (temp, strm.total_out))
循环判断首 ()
strm.next_out ＝ 取变量数据地址 (temp)
strm.avail_out ＝ 取字节集长度 (temp)
strm.total_out ＝ 0
err ＝ Deflate (strm, #Z_FLUSH_PARTIAL_FLUSH )
如果真 (err ＝ #Z_ERROR_OK )
判断 (strm.total_out ≠ 0)
字节集.添加 (取字节集左边 (temp, strm.total_out))
跳出循环 ()


循环判断尾 (err ＝ #Z_ERROR_OK )
DeflateEnd (strm)
返回 (字节集.取字节集 (, ))

子程序名	返回值类型	公开	备 注
GZIP_解压_MJ	字节集
参数名	类 型	参考	可空	数组	备 注
data	字节集
windowBits	整数型				-(8~15) 纯deflate   +(8~15)带zlib头和尾   >16带gzip头和尾  【纯deflate】：-15  【zlib】：15 【gzip】：31
chunkSize	整数型				默认：4096 缓冲区大小

变量名	类 型	静态	数组	备 注
strm	z_stream
out	字节集
temp	字节集
err	整数型
字节集	快速字节集类YZC

如果真 (是否为空 (chunkSize))
chunkSize ＝ 4096
如果真 (是否为空 (windowBits))
windowBits ＝ 31
如果真 (InflateInit (strm, windowBits) ≠ #Z_ERROR_OK )
返回 (out)
temp ＝ 取空白字节集 (chunkSize)
strm.next_in ＝ 取变量数据地址 (data)
strm.avail_in ＝ 取字节集长度 (data)
strm.total_in ＝ 0
循环判断首 ()
strm.next_out ＝ 取变量数据地址 (temp)
strm.avail_out ＝ 取字节集长度 (temp)
strm.total_out ＝ 0
err ＝ Inflate (strm, #Z_FLUSH_NO_FLUSH )
判断 (err ＝ #Z_ERROR_OK )
判断 (strm.total_out ≠ 0)
字节集.添加 (取字节集左边 (temp, strm.total_out))
跳出循环 ()

判断 (err ＝ #Z_ERROR_STREAM_END )
err ＝ Inflate (strm, #Z_FLUSH_PARTIAL_FLUSH )
如果真 (strm.total_out ≠ 0)
字节集.添加 (取字节集左边 (temp, strm.total_out))
跳出循环 ()



循环判断尾 (err ＝ #Z_ERROR_OK )
InflateEnd (strm)
返回 (字节集.取字节集 (, ))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 GZIP_压缩_MJ, 字节集, 公开<br /> .参数 data, 字节集<br /> .参数 windowBits, 整数型, 可空, 为空默认GZIP,-(8~15) 纯deflate   +(8~15)带zlib头和尾   >16带gzip头和尾  【纯deflate】：-15  【zlib】：15 【gzip】：31<br /> .参数 chunkSize, 整数型, 可空, 默认：4096 缓冲区大小<br /> .局部变量 strm, z_stream<br /> .局部变量 out, 字节集<br /> .局部变量 temp, 字节集<br /> .局部变量 err, 整数型<br /> .局部变量 字节集, 快速字节集类YZC<br /> <br /> .如果真 (是否为空 (chunkSize))<br />     chunkSize ＝ 4096<br /> .如果真结束<br /> .如果真 (是否为空 (windowBits))<br />     windowBits ＝ 31<br /> .如果真结束<br /> <br /> .如果真 (DeflateInit (strm, windowBits) ≠ #Z_ERROR_OK)<br />     返回 (out)<br /> .如果真结束<br /> temp ＝ 取空白字节集 (chunkSize)<br /> strm.next_in ＝ 取变量数据地址 (data)<br /> strm.avail_in ＝ 取字节集长度 (data)<br /> strm.total_in ＝ 0<br /> <br /> strm.next_out ＝ 取变量数据地址 (temp)<br /> strm.avail_out ＝ 取字节集长度 (temp)<br /> strm.total_out ＝ 0<br /> <br /> err ＝ Deflate (strm, #Z_FLUSH_NO_FLUSH)<br /> .如果真 (err ＝ #Z_ERROR_OK)<br />     字节集.添加 (取字节集左边 (temp, strm.total_out))<br />     .循环判断首 ()<br />         strm.next_out ＝ 取变量数据地址 (temp)<br />         strm.avail_out ＝ 取字节集长度 (temp)<br />         strm.total_out ＝ 0<br />         err ＝ Deflate (strm, #Z_FLUSH_PARTIAL_FLUSH)<br />         .如果真 (err ＝ #Z_ERROR_OK)<br />             .判断开始 (strm.total_out ≠ 0)<br />                 字节集.添加 (取字节集左边 (temp, strm.total_out))<br />             .默认<br />                 跳出循环 ()<br />             .判断结束<br /> <br />         .如果真结束<br /> <br />     .循环判断尾 (err ＝ #Z_ERROR_OK)<br /> .如果真结束<br /> DeflateEnd (strm)<br /> 返回 (字节集.取字节集 (, ))<br /> <br /> .子程序 GZIP_解压_MJ, 字节集, 公开<br /> .参数 data, 字节集<br /> .参数 windowBits, 整数型, 可空, -(8~15) 纯deflate   +(8~15)带zlib头和尾   >16带gzip头和尾  【纯deflate】：-15  【zlib】：15 【gzip】：31<br /> .参数 chunkSize, 整数型, 可空, 默认：4096 缓冲区大小<br /> .局部变量 strm, z_stream<br /> .局部变量 out, 字节集<br /> .局部变量 temp, 字节集<br /> .局部变量 err, 整数型<br /> .局部变量 字节集, 快速字节集类YZC<br /> <br /> .如果真 (是否为空 (chunkSize))<br />     chunkSize ＝ 4096<br /> .如果真结束<br /> .如果真 (是否为空 (windowBits))<br />     windowBits ＝ 31<br /> .如果真结束<br /> .如果真 (InflateInit (strm, windowBits) ≠ #Z_ERROR_OK)<br />     返回 (out)<br /> .如果真结束<br /> temp ＝ 取空白字节集 (chunkSize)<br /> strm.next_in ＝ 取变量数据地址 (data)<br /> strm.avail_in ＝ 取字节集长度 (data)<br /> strm.total_in ＝ 0<br /> <br /> .循环判断首 ()<br />     strm.next_out ＝ 取变量数据地址 (temp)<br />     strm.avail_out ＝ 取字节集长度 (temp)<br />     strm.total_out ＝ 0<br /> <br />     err ＝ Inflate (strm, #Z_FLUSH_NO_FLUSH)<br />     .判断开始 (err ＝ #Z_ERROR_OK)<br />         .判断开始 (strm.total_out ≠ 0)<br />             字节集.添加 (取字节集左边 (temp, strm.total_out))<br />         .默认<br />             跳出循环 ()<br />         .判断结束<br /> <br />     .判断 (err ＝ #Z_ERROR_STREAM_END)<br />         err ＝ Inflate (strm, #Z_FLUSH_PARTIAL_FLUSH)<br />         .如果真 (strm.total_out ≠ 0)<br />             字节集.添加 (取字节集左边 (temp, strm.total_out))<br />         .如果真结束<br />         跳出循环 ()<br />     .默认<br /> <br />     .判断结束<br /> <br /> .循环判断尾 (err ＝ #Z_ERROR_OK)<br /> InflateEnd (strm)<br /> 返回 (字节集.取字节集 (, ))

mytools

感谢分享，下载看看

n3w3u7

111111111111111111111111111111111

n3w3u7

6666666666666666666666666666666666666666666666666666666666

wlp

上千吨水 发表于 2024-7-7 22:01
记得用一下 下面这个方法  

看不懂，易语言源码，那种下载之后运行看到结果的例子，不是一部分代码

别拿个飞机零件说有问题，飞机这么大，我哪里知道哪颗螺丝有问题

上千吨水

wlp 发表于 2024-7-5 16:39
代码例子，，，，，，，，，

记得用一下 下面这个方法  


.版本 2

.子程序 删空格换行TAB1, 文本型
.参数 cs_文本, 文本型
.局部变量 bin, 字节集
.局部变量 rPos, 整数型
.局部变量 wPos, 整数型
.局部变量 c, 字节型

bin ＝ 到字节集 (cs_文本) ＋ { 0 }
.循环判断首 ()
    rPos ＝ rPos ＋ 1
    c ＝ bin [rPos]
    .如果真 (c ≠ 32 且 c ≠ 10 且 c ≠ 13 且 c ≠ #Tab键)
        wPos ＝ wPos ＋ 1
        bin [wPos] ＝ c
    .如果真结束

.循环判断尾 (c ≠ 0)
返回 (到文本 (bin))

上千吨水

wlp 发表于 2024-7-5 16:39
代码例子，，，，，，，，，

H4sIAAAAAAAAAJ1afYsbxxn/Ksf+EVp855v3mdV/stvYgSZ2ck5xa44iS3sntVqt0O5dCD5Dg3Fp
04SGUmhIQlOCadJQ0pQQ46Qt/TKWff4WfWZmd3b2RdKeDnOe3Z2X3zyvv3nm7gWjQTYIenfuBfFw
Mgp6wc5OsBtks18Oof3svS/PHz+E52GSBr2jwTSNdoPxPL2STKHrnUP4kM5gdHD++JvnHzzQA80c
GFFox2kGbYYVgod0kX+RgglmPg+Pgx42c19NFrNo4VYYZEe6q1335slsko7dN3hz4yRbTI7HmXt3
PAR0SM8Y9Bg1CG+cRotsEkcWZXzk+sbHGhSWBFHOGdI/GsvAoKOIiMCMvzlLjVDGk1FqUI7nM+iw
fPjF8pPvn//+H+fffqaH2VE85FxIPTCODZBxOk7egi8/i1Iz3exuc+x4ntmJU90T77Jdbt5aMZlm
AkuGelsGcnB/dwWe86/+bqXfigevxePGGjykxEN2qca0K0pUzKESBao9thrW8tHny6//sB0sN9bA
4mthEQeLF7DaQD198u7y/Xe3Vl9z+HoNSocKo7U6dBNvp8bm8A6axKFDp7qB206ZzeEd9ImVAydX
gBvmXSlBVuYaK+bL3/7mxR8/Pf/fxyCIHwjUQ2hPsh4Pf7i3nc47zbjCDA7m0XAymMIrzypoaatY
OsmLVbujHXe3neV0mnGtMbXvkXp7dOFrD10mfMU2WcdtbmeDnWZca5bt2yyjIWS4miqHWTov0oxA
ilIWmu5V57ImtPPSjoW23fZWTWJ2hFZFJ09HSG6B+OmTRy8+/PTFg//aVS/qWGvmWY8blZkRY1QH
zsNQEUlRR1Hv7O24ANVhB68lG6Rem2/tTijjngpqQbi5JxJ2V8bO3kV21Ukv1Sk3qMjbGMbexg7z
NozMptFp0AOqFo+nJyZhQzMxn4aZ7RLPbZBIHSGK87ARR5qbDrJsMPyV5Yj81cnsJItKjhpPIzPJ
9BTe7cGgNFnoKI30xIPpCXC74HiRnMzx/qsI7cM/IvevHr/5RjaV8x/3D/q3af9Kv9+/8fKN6fA1
lIZSXp7PjoNDQw5/VFBmaJv/i0hWI3AQMe7db3EuElqCPKzwqrKpx2ll6yEMCYpYKCDTgS0oZmzb
0t3xqY2rRt5xrpKZkVEyNbiSfA7MQxpCMiE4RCEneu3ECjPJRkYPSZaDTk51PAuRllRibCJfQeuz
bN+d2u0OtUUGtxDew0rdjTL9MTOvrCUXCDjDlCnKYDOSM6VqCFiOgBQIQu4huOQhuNQdAQGTaxM/
pBtMPPGTGpWsiJ+HiFCCkeAECWTU5oufbZQ9ZyHHiHBEGEeCoNrOSb5zfWBp3Twrdg4xZoeVW9eP
F1AABv1jigTQDoUpZjUYOIfx5mxU4lCyFQcEOh8HPHZUQ9NLZNVNmh3CTR1U2cE6Z380WuuTszz8
aS0dbuOcegKaT1DaCVg34+CtUhBGGG1z031cMxbSMBamOFFIKYTAY7kgGxyVQOeqo5o1nKvmTxd1
VpADJljgEM7HEAvqttJwVnDqqrOWKC5dBIWxlN1SppgqKSkmiFHBqOXOFZnuN4MfbcqUMYlCGM4g
/MnNwQ8c3ZfpfiX87W8bAMEmCBBdgggkYtxAUZcp0SHAk+l+JQReAEVdppSQkEE0EEQyrKioy7Ru
o6wZ0EAhoZYmxEVmyyfr5EmpH832SvvczjYJ5A+KwhABtwAAGxMJ8VPZpdIuL2STbXFiYxZpjxMK
rBATLpRATGGOa/Kn4C71nNIMExIGhoRiCb/DkNQdtC2ncD+WF6u4vFK+2Ca3KMAB5BLiJuEYG2K7
KbeQilVU8UBCqePplGN8K+fga6AozCGeAvetZ+191iFwcClC+C0klzoa14Nxi5QJrWTMfJUye7sX
20gZKUNFIB7D/hCVXTI4Fyvx6Cxew3NRKTME/iiB1FDMwQZ405Y3BhMK4YETKWiowJ8aCa/Nkqmq
Wk7NjreXLwVmxLiC3YBn4k5WrPgKLNaGLyrbw7U0qclcVvGlLj1VS8/DnEPh8kB1Z2VpoFGD8ypc
1ROMhIOHPnoA/4f4xzwzyW1jMKLQU+ppBiMemHN+UZqvZ3OI/ARsDTwSbFuGNS0JXWyt5B8W+hng
6ZN/nz/4xKnp/Y+Wjz569tf/PPvLn5//7ruWlNA3BYd2e9GxDngfkHuwFlL3R6BQ9VxEK0l9+dVn
PpQnD5YPv96EgFQQUH2yEzojw48QdYsVuLDZ2wUC7Mti+d03y3/92gEon1YDMAGgWhBbUzxq1DG9
+mDFQigoVBl+hDmccpvkuUb0rL0gZy4C7xrjqdmKgizABA8xZzpwNuXT4CqG0FyQ+60xEQJxGlP9
iwgmG2c/UF3DRPDFaV/dQrZSEauoqFmGCOHsDtZDQzjHawZWU1GbftpUAv6P4BQKYgZZc1qnwQLz
ZsSnws+qqBrx0cqIv0YvcMDmgoL7EKLpuGigEG3JlJAVMCC2o5XBfrN2IOZOTxb6oVqSoi/bktRP
VUx/Hvev3Lgu+/3+6I2YvfU6pA+kTElKV8oW+uYzuNkP7P2ou/ssqmHj9mAHCagfJyczeyMqgF1c
JtgBv2aAHy3M6DvBFV38GibxPElh5mxxAhMn82gxyCbJ7FZyspgN4miWHdhCmyAGipdI7Ig4N5p4
GpnLYd4zQR5yjpdyDu3FbzQbTLO3/Xvn4p7Y3OlayyShsndZ7qLYfLQSCZrlzzhK0+La2V5j58B0
vTEwPdIszSZ5fHE7vJ6Yrd1K5hZ/nO/jbqwhwnyL6Bi6vTKyAoDIMnd9xq0FR261i+XRT8ikfy28
prUbHY/j6/QXrwDlLAqOaeTyqAnxBl8OT9cyi/LpoJJGQG+DUm/xoOgFcxpMepJF4K7njXBz3W5O
+fn1gdeu1swM74akDzQ8JI1w3uSFzaoZEQpBZgVKyAT4Xf2Y5wIn7s9GFXLIVhCyqvHvvLTToIuW
GuRfVmQ//9ADR3lFGJwPdP6lDbpIPYRVzog7Q6yzyBLiqghTTT8SpEHM4QUOaKTOlbAqsk9ViMxy
rzaIxrrahGfJTGfhYSo4ZBw4xejyAMU5MlIgkx4yX3jrQTVItwPVSVxwkKaazILxCcVJ/SziksLt
zuIylKpVXP6XDuLSBWTIPljTJO4Kck5c3EO2UVxu6Ya4/C8r6V8HMlHc0vkP1RMBHBiJqZMy2Bv3
i+pro4KSwD003ZYImBquU26YzXM6c11nWa/PH9a42wd/a3M183aTp3FKJLAKJg2yuqdR5kcDe+Nm
mI1inZA9+/CfLcjs2w3INMUB94fzFxPgdLRmOpT5QcCJrInJOZkvpNLBuggJw0EQmQstorlUoxDL
fK8vhVTzrwaiinAcok7CERLsj2BdlcUUhfUwBJTXc6w1wnGOUxFO9e0mPcEhRYYUMWqyCm4Ix/fx
zcIp1q4Kp/q2m397d+rNKkJ+i9160eldXLeUH5A3UBOU0zS/2S55nyFymqfkNCoaLKZv52FiMk8K
5paVf9yXje0VMpDHRRInmreVJPgov3rW8nn23pfLL945f/zw+fefn7/zp/NvPzbEaqgJ0wE6oz29
3QNcNMgZsQ1+pnrMNLhrYn7Ge9S0yBnuYduCYO0e8BkqWvp1+aAXsCOpe8vcMITNHLR4IP4DLR/M
lChv605Fm3pt5rW5118Uba7nIT2St8st23lw3nbzcD0Pce9FOSc7U6hnDlUH6oyHPZ7jLJdVbo+y
WFKcyWI/PiK9NbdNf58ga++B+mN8ERDsP/hjSGUM9b5Qfx3qj6GVbqVIBejR7KeUOEXlQOa1kZaP
tzDzZmT+wszfBquA9fXH/THcrmOLeJ4L3DGFvfngOLJ/7XsvmE5Oo6tZ8RcXiTlO3L//f7c3hMkO
LAAA

wlp

上千吨水 发表于 2024-7-5 08:46
遇到一个问题   数据长了  只返回一部分内容

代码例子，，，，，，，，，

上千吨水

遇到一个问题   数据长了  只返回一部分内容

艾玛克138

楼主辛苦了