内存压缩解压源码.e

jy5 · 发表于 2015-11-18 18:29:18

本帖最后由 jy5 于 2015-11-18 19:36 编辑

本源码实现了易语言怎样在中内存调用C++写的ZIp，动态库.子程序压缩数据_, 字节集, 公开, 内存压缩
.参数数据, 字节集
.局部变量 sourceLen, 整数型
.局部变量 dest, 字节集
.局部变量 destLen, 整数型
.局部变量 ret, 逻辑型
sourceLen ＝取字节集长度 (数据)
.如果真 (sourceLen ＝ 0)
返回 ({ })
.如果真结束
.如果真 (yj ＝ 0)
yj ＝内存加载dll (#zlib, “zip”)
.如果真结束
destLen ＝ sourceLen × 1.001 ＋ 12
dest ＝取空白字节集 (destLen)
ret ＝ winapi (“Mem|zip”, “compress”, 7, 取址2 (dest), 取址 (destLen), 取址2 (数据), sourceLen)
dest ＝到字节集 (“Gz”) ＋ { 0 } ＋到字节集 (sourceLen) ＋取字节集左边 (dest, destLen)
返回 (dest)