Aplib开源压缩引擎使用

.如果真 (通用对话框1.打开 ())
编辑框1.加入文本 (“正在选解压缩文件....” ＋ #换行符)
.如果真 (通用对话框1.文件名 ＝ “”)
信息框 (“未读入文件！”, 0, )
返回 ()
.如果真结束
文件 ＝ 读入文件 (通用对话框1.文件名)
编辑框1.加入文本 (“文件大小:” ＋ 到文本 (取字节集长度 (文件)) ＋ #换行符)
.如果真结束
.如果真 (文件 ＝ { })
信息框 (“未读入文件！”, 0, )
返回 ()
.如果真结束
' 解压后大小 ＝ aPsafe_get_orig_size (文件)
解压后大小 ＝ 取字节集长度 (文件) × 5
解压后 ＝ 指针到字节集 (申请内存 (解压后大小, 真), 解压后大小)
真正大小 ＝ aP_depack (文件, 解压后)
解压后 ＝ 取字节集左边 (解压后, 真正大小)
写到文件 (通用对话框1.文件名, 解压后)
编辑框1.加入文本 (“解压缩完毕！” ＋ #换行符, “压缩文件大小:” ＋ 到文本 (取字节集长度 (文件)) ＋ #换行符, “解压后大小:” ＋ 到文本 (真正大小) ＋ #换行符)