易语言自带的压缩数据和ZLIB压缩的区别

江山少主

在使用压缩和解压数据过程中，易自带有这项功能，
在论坛搜索看还有没有更好的方式，
发现下贴ZLIB压缩方式。
原贴：https://bbs.125.la/forum.php?mod ... 9%E6%95%B0%E6%8D%AE

但在两项测试对比后，发现一个问题。搞不明白，放上来讨论一下。

  

子程序名	返回值类型	公开	备 注
测试

变量名	类 型	静态	数组	备 注
文件号	整数型
文本内容	文本型
原始内容	字节集
压缩内容	字节集
解压内容	字节集

文件号 ＝ 打开文件 (取特定目录 ( #系统桌面 ) ＋ “\8.dll”, #读入, )
文本内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
原始内容 ＝ 到字节集 (文本内容)
调试输出 (“原始内容长度：” ＋ 到文本 (取字节集长度 (原始内容)))
压缩内容 ＝ {  }
解压内容 ＝ {  }
压缩内容 ＝ 压缩数据 (原始内容)
' 解压内容 ＝ 解压数据 (压缩内容)
调试输出 (“易压缩后长度：” ＋ 到文本 (取字节集长度 (压缩内容)) ＋ “    易解压后长度：” ＋ 到文本 (取字节集长度 (解压内容)))
压缩内容 ＝ {  }
解压内容 ＝ {  }
压缩内容 ＝ ZLIB压缩 (原始内容)
' 解压内容 ＝ ZLIB解压 (压缩内容)
调试输出 (“ZLIB压缩长度：” ＋ 到文本 (取字节集长度 (压缩内容)) ＋ “    ZLIB解压长度：” ＋ 到文本 (取字节集长度 (解压内容)))

i支持库列表	支持库注释
shell	操作系统界面功能支持库
spec	特殊功能支持库
dp1	数据操作支持库一

.版本 2<br /> .支持库 shell<br /> .支持库 spec<br /> .支持库 dp1<br /> <br /> .子程序 测试<br /> .局部变量 文件号, 整数型<br /> .局部变量 文本内容, 文本型<br /> .局部变量 原始内容, 字节集<br /> .局部变量 压缩内容, 字节集<br /> .局部变量 解压内容, 字节集<br /> <br /> 文件号 ＝ 打开文件 (取特定目录 (#系统桌面) ＋ “\8.dll”, #读入, )<br /> 文本内容 ＝ 读入文本 (文件号, )<br /> 关闭文件 (文件号)<br /> 原始内容 ＝ 到字节集 (文本内容)<br /> 调试输出 (“原始内容长度：” ＋ 到文本 (取字节集长度 (原始内容)))<br /> <br /> 压缩内容 ＝ {  }<br /> 解压内容 ＝ {  }<br /> 压缩内容 ＝ 压缩数据 (原始内容)<br /> ' 解压内容 ＝ 解压数据 (压缩内容)<br /> 调试输出 (“易压缩后长度：” ＋ 到文本 (取字节集长度 (压缩内容)) ＋ “    易解压后长度：” ＋ 到文本 (取字节集长度 (解压内容)))<br /> <br /> 压缩内容 ＝ {  }<br /> 解压内容 ＝ {  }<br /> 压缩内容 ＝ ZLIB压缩 (原始内容)<br /> ' 解压内容 ＝ ZLIB解压 (压缩内容)<br /> 调试输出 (“ZLIB压缩长度：” ＋ 到文本 (取字节集长度 (压缩内容)) ＋ “    ZLIB解压长度：” ＋ 到文本 (取字节集长度 (解压内容)))

这是源码。

在屏蔽解压内容的时候，两件压缩的长度是一样的。



但在屏蔽解压内容后，两项压缩长度就不一样了。ZLIB会少8个字节。我调换了先后顺序者都是一样的。


在经过第三次测试时，
发现ZLIB先压缩，立刻取压缩后的长度，和等解压后，取未解压的长度居然不一样。难道是解后会影响，原字节集内容？
但易自带的解压数据就没有这个问题。

搞不明白，放到上面讨论下。


附源码。
压缩数据.rar (891.26 KB, 下载次数: 21)

2024-1-12 12:27 上传

点击文件名下载附件

3641977

3641977

江山少主

2576605471 发表于 2024-1-12 14:20
测试例子, 这样是真的, 真的是BUG, 调用函数后, 外面的值反而被改变了, 跟打钩了参考一样. ...

看了一下，参数对参考的解释：其中就有文本型是作为指针传递的，所以不管勾没勾参考，都将默认为勾了参考

设置系统为当前子程序参数传递数据时是否为传递指向数据的指针。如果所传递过来的参数数据为数组、用户定义数据类型、库定义数据类型、文本型、字节集型数据，则无论此属性是否为真，都将传递指针。如果所传递过来数据的类型与相应位置处参数的数据类型不一致但可以相互转换，譬如将“整数型”数据传递到“小数型”的参数中，则在数据被实际传递前，系统将首先自动将“整数型”数据转换为“小数型” 数据，然后再进行传递。因此在这种情况下，即使本属性为真，系统也无法传递指向原数据的指针，只能传递数据本身。如果系统将数据指针成功地传递过来，那么在子程序中对此参数内容的更改将会相应地反映到调用子程序时所提供的参数数据上。

人善帝王心

2576605471 发表于 2024-1-12 14:20
测试例子, 这样是真的, 真的是BUG, 调用函数后, 外面的值反而被改变了, 跟打钩了参考一样. ...

嗯 整数就不会改变.

2576605471

人善帝王心 发表于 2024-1-12 14:06
[e=2].版本 2

.子程序 ZLIB解压, 字节集, 公开, 将被zlib压缩过的字节集数据进行解压，成功返回解压后字节 ...

测试例子, 这样是真的, 真的是BUG, 调用函数后, 外面的值反而被改变了, 跟打钩了参考一样.

人善帝王心

  

子程序名	返回值类型	公开	备 注
ZLIB解压	字节集		将被zlib压缩过的字节集数据进行解压，成功返回解压后字节集，失败返回空字节集
参数名	类 型	参考	可空	数组	备 注
source	字节集				被zlib压缩过的字节集数据

变量名	类 型	静态	数组	备 注
原始数据	字节集
原始长度	整数型
source1	字节集			被zlib压缩过的字节集数据
postion	整数型

source1 ＝ source
postion ＝ 1
如果真 (取字节集数据 (source1, #整数型, postion) ≠ #ezlib )
返回 ({  })
原始长度 ＝ 取字节集数据 (source1, #整数型, postion)
source1 ＝ 取字节集右边 (source1, 取字节集长度 (source1) ��� (postion － 1))
原始数据 ＝ 取空白字节集 (原始长度)
判断 (uncompress (原始数据, 原始长度, source1, 取字节集长度 (source1)) ＝ 0)
返回 (取字节集左边 (原始数据, 原始长度))  ' 原始长度会在数据成功解压后返回解压后的正确长度，直接取回左边即可
返回 ({  })

.版本 2<br /> <br /> .子程序 ZLIB解压, 字节集, 公开, 将被zlib压缩过的字节集数据进行解压，成功返回解压后字节集，失败返回空字节集<br /> .参数 source, 字节集, , 被zlib压缩过的字节集数据<br /> .局部变量 原始数据, 字节集<br /> .局部变量 原始长度, 整数型<br /> .局部变量 source1, 字节集, , , 被zlib压缩过的字节集数据<br /> .局部变量 postion, 整数型<br /> <br /> source1 ＝ source<br /> postion ＝ 1<br /> .如果真 (取字节集数据 (source1, #整数型, postion) ≠ #ezlib)<br />     返回 ({  })<br /> .如果真结束<br /> 原始长度 ＝ 取字节集数据 (source1, #整数型, postion)<br /> source1 ＝ 取字节集右边 (source1, 取字节集长度 (source1) － (postion － 1))<br /> 原始数据 ＝ 取空白字节集 (原始长度)<br /> .判断开始 (uncompress (原始数据, 原始长度, source1, 取字节集长度 (source1)) ＝ 0)<br />     返回 (取字节集左边 (原始数据, 原始长度))  ' 原始长度会在数据成功解压后返回解压后的正确长度，直接取回左边即可<br /> .默认<br />     返回 ({  })<br /> .判断结束

这样就影响不到传值！这应该是易语言的BUG

  

s ＝ “1”
子程序1 (s)
调试输出 (s)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
s	文本型

s ＝ “2”

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

.版本 2<br /> .支持库 spec<br /> <br /> s ＝ “1”<br /> 子程序1 (s)<br /> 调试输出 (s)<br /> <br /> .子程序 子程序1<br /> .参数 s, 文本型<br /> <br /> s ＝ “2”

调试结果  按理没选择参数  结果是“1”  返回会是2

人善帝王心

解压参数source 在解压里去掉了前8个字节  所以长度不一样，参数被参考了，那个长度没影响。