ZipClass模块封装zlib操作ZIP文件支持静态黑月

.子程序 解压当前文件到内存, 逻辑型, 公开, 请注意文件大小和内存占用
.参数 参_缓冲区, 字节集
.局部变量 err, 整数型
.局部变量 buf, 字节集
.局部变量 mfile, 整数型

err ＝ unzOpenCurrentFile (hZFile)
.如果真 (err ≠ #UNZ_OK)
返回 (假)
.如果真结束
buf ＝ 取空白字节集 (#WRITEBUFFERSIZE)
mfile ＝ 打开内存文件 ()
.如果真 (mfile ＝ 0)
unzCloseCurrentFile (hZFile)
输出调试文本 (“UnZipClass:申请内存错误”)
返回 (假)
.如果真结束
.循环判断首 ()
err ＝ unzReadCurrentFile (hZFile, buf, #WRITEBUFFERSIZE)
.如果真 (err ＜ 0)
输出调试文本 (“UnZipClass:读取当前文件错误”)
跳出循环 ()
.如果真结束
.如果真 (err ＞ 0)
.如果真 (写出字节集 (mfile, 取字节集左边 (buf, err)) ＝ 假)
输出调试文本 (“UnZipClass:写数据到内存失败”)
跳出循环 ()
.如果真结束

.如果真结束

.循环判断尾 (err ＞ 0)
移到文件首 (mfile)
参_缓冲区 ＝ 读入字节集 (mfile, 取文件长度 (mfile))
关闭文件 (mfile)
.如果 (err ≠ 0)
unzCloseCurrentFile (hZFile)
.否则
err ＝ unzCloseCurrentFile (hZFile)
.如果结束
返回 (选择 (err ＝ #UNZ_OK, 真, 假))

封装zlib操作ZIP文件支持静态黑月源码，返回读取的字节集长度如果长度不为零，则需要继续调用本方法读取错误返回负值，请注意文件大小和内存占用。