GZIP压缩问题

731213189

有没有不需要gzip.dll而且支持中文和符号的例子，麻烦大哥们分享一下GZIP压缩例子

LEOONL

731213189 发表于 2024-10-17 17:28
精易的网页_GZIP压缩_文本  这个不支持引号传的json格式他会url编码

那你去精易模块源码把编码去掉行不行

  

子程序名	返回值类型	公开	备 注
网页_GZIP压缩_文本	文本型		返回 Base64编码 感谢【@Surplus 】提供源码
参数名	类 型	参考	可空	数组	备 注
Text	文本型
是否线程	逻辑型

变量名	类 型	静态	数组	备 注
对象	对象
eval	变体型
ret	文本型

如果真 (是否线程)
线程_初始化COM库 ()
' Text ＝ 编码_URL编码 (Text, 真, 真)
对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “JScript”)
对象.逻辑方法 (“AddCode”, #Gzip )
eval ＝ 对象.通用方法 (“Eval”, “Gzip_Encrypt('” ＋ Text ＋ “')”)  ' 这里要填写单引号， 也就是 Gzip_Encrypt('1233')  否则遇到 易语言的引号 会冲突 导致 压缩失败
ret ＝ eval.取文本 ()
对象.清除 ()
如果真 (是否线程)
线程_取消COM库 ()
返回 (到文本 (编码_BASE64编码A (字节集_文本转字节集 (“{” ＋ ret ＋ “}”))))

子程序名	返回值类型	公开	备 注
网页_GZIP解压_文本	文本型		传递 Base64编码 感谢【@surplus 】提供源码
参数名	类 型	参考	可空	数组	备 注
Text	文本型
是否线程	逻辑型

变量名	类 型	静态	数组	备 注
对象	对象
eval	变体型
ret	文本型
局_转码内容	字节集

如果真 (是否线程)
线程_初始化COM库 ()
Text ＝ 字节集_字节集转文本ex (编码_BASE64解码A (到字节集 (Text)))
Text ＝ 取文本左边 (取文本右边 (Text, 取文本长度 (Text) － 1), 取文本长度 (Text) － 2)
对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “JScript”)
对象.逻辑方法 (“AddCode”, #Gzip )
eval ＝ 对象.通用方法 (“Eval”, “Gzip_Decrypt('” ＋ Text ＋ “')”)  ' 这里要填写单引号， 也就是 Gzip_Decrypt('1233')  否则遇到 易语言的引号 会冲突 导致 压缩失败
ret ＝ eval.取文本 ()
对象.清除 ()
如果真 (是否线程)
线程_取消COM库 ()
局_转码内容 ＝ 字节集_文本转字节集ex (“{” ＋ ret ＋ “}”)
返回 (编码_Utf8到Ansi (局_转码内容))

.版本 2<br /> <br /> .子程序 网页_GZIP压缩_文本, 文本型, 公开, 返回 Base64编码 感谢【<a href="https://bbs.125.la/home.php?mod=space&uid=587557" target="_blank">@Surplus</a> 】提供源码<br /> .参数 Text, 文本型<br /> .参数 是否线程, 逻辑型, 可空<br /> .局部变量 对象, 对象<br /> .局部变量 eval, 变体型<br /> .局部变量 ret, 文本型<br /> <br /> .如果真 (是否线程)<br />     线程_初始化COM库 ()<br /> .如果真结束<br /> ' Text ＝ 编码_URL编码 (Text, 真, 真)<br /> 对象.创建 (“ScriptControl”, )<br /> 对象.写属性 (“Language”, “JScript”)<br /> 对象.逻辑方法 (“AddCode”, #Gzip)<br /> eval ＝ 对象.通用方法 (“Eval”, “Gzip_Encrypt('” ＋ Text ＋ “')”)  ' 这里要填写单引号， 也就是 Gzip_Encrypt('1233')  否则遇到 易语言的引号 会冲突 导致 压缩失败<br /> ret ＝ eval.取文本 ()<br /> 对象.清除 ()<br /> .如果真 (是否线程)<br />     线程_取消COM库 ()<br /> .如果真结束<br /> 返回 (到文本 (编码_BASE64编码A (字节集_文本转字节集 (“{” ＋ ret ＋ “}”))))<br /> <br /> .子程序 网页_GZIP解压_文本, 文本型, 公开, 传递 Base64编码 感谢【@surplus 】提供源码<br /> .参数 Text, 文本型<br /> .参数 是否线程, 逻辑型, 可空<br /> .局部变量 对象, 对象<br /> .局部变量 eval, 变体型<br /> .局部变量 ret, 文本型<br /> .局部变量 局_转码内容, 字节集<br /> <br /> .如果真 (是否线程)<br />     线程_初始化COM库 ()<br /> .如果真结束<br /> Text ＝ 字节集_字节集转文本ex (编码_BASE64解码A (到字节集 (Text)))<br /> Text ＝ 取文本左边 (取文本右边 (Text, 取文本长度 (Text) － 1), 取文本长度 (Text) － 2)<br /> 对象.创建 (“ScriptControl”, )<br /> 对象.写属性 (“Language”, “JScript”)<br /> 对象.逻辑方法 (“AddCode”, #Gzip)<br /> eval ＝ 对象.通用方法 (“Eval”, “Gzip_Decrypt('” ＋ Text ＋ “')”)  ' 这里要填写单引号， 也就是 Gzip_Decrypt('1233')  否则遇到 易语言的引号 会冲突 导致 压缩失败<br /> ret ＝ eval.取文本 ()<br /> 对象.清除 ()<br /> .如果真 (是否线程)<br />     线程_取消COM库 ()<br /> .如果真结束<br /> 局_转码内容 ＝ 字节集_文本转字节集ex (“{” ＋ ret ＋ “}”)<br /> 返回 (编码_Utf8到Ansi (局_转码内容))

LEOONL

没问题啊

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		请在本子程序中放置易模块初始化代码

变量名	类 型	静态	数组	备 注
文本	文本型

文本 ＝ 编码_BASE64编码 (GZIP_压缩_内存 (到字节集 (“啊啊1234”)))
调试输出 (文本)
调试输出 (到文本 (GZIP_解压_内存 (编码_BASE64解码 (文本))))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ 编码_BASE64编码 (GZIP_压缩_内存 (到字节集 (“啊啊1234”)))<br /> 调试输出 (文本)<br /> 调试输出 (到文本 (GZIP_解压_内存 (编码_BASE64解码 (文本))))

731213189

LEOONL 发表于 2024-10-17 16:18
没问题啊

[e=0].版本 2

https://www.bejson.com/encrypt/gzip/   麻烦您用这个网址解压试一下大佬

LEOONL

731213189 发表于 2024-10-17 16:25
https://www.bejson.com/encrypt/gzip/   麻烦您用这个网址解压试一下大佬

没问题啊 GZIP内存压缩解压模块.e (996.9 KB, 下载次数: 7)

2024-10-17 16:27 上传

点击文件名下载附件

731213189

LEOONL 发表于 2024-10-17 16:27
没问题啊

啊啊啊111
编码_BASE64编码 (GZIP_压缩_内存 (到字节集 (“啊啊啊111”)))结果=H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv6mvxj/7e7u/j+RQIVtCQAAAA==


https://www.bejson.com/encrypt/gzip/压缩结果=H4sIAAAAAAAAA3s6tespGBkaGgIA5UGCpgwAAAA=

补充内容 (2024-10-17 16:33):
H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/Iv6mvxj/7e7u/j+RQIVtCQAAAA==  网址识别111没中文

小火包

协议头这段压缩的Accept-Encoding: gzip, deflate, br删掉就行了

731213189

小火包 发表于 2024-10-17 16:33
协议头这段压缩的Accept-Encoding: gzip, deflate, br删掉就行了

不是这个问题，需要的是GZIP压缩和解压缩的命令，不是post数据

LEOONL

731213189 发表于 2024-10-17 16:31
啊啊啊111
编码_BASE64编码 (GZIP_压缩_内存 (到字节集 (“啊啊啊111”)))结果=H4sIAAAAAAAEAO29B2AcSZYl ...

你在说啥，我测试编码解码输出都正常啊，你那边输出啥样的， GZIP内存压缩解压模块.e (997.29 KB, 下载次数: 3)

2024-10-17 16:36 上传

点击文件名下载附件

731213189

LEOONL 发表于 2024-10-17 16:37
你在说啥，我测试编码解码输出都正常啊，你那边输出啥样的，

程序里面是没问题的，但是目前gzip压缩后只有GZIP_压缩_内存 可以识别到 不会被网址识别到呀，如果方便的话可以加一下您的联系方式吗