易语言zip压缩模块源码

系统结构:压缩文件,压缩目录,解压文件,解压指定文件,取错误信息,ZIP压缩文件_API,ZIP压缩目录_API,ZIP解压文件_API,ZIP解压指定文件_API,ZIP获取错误信息_API,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 压缩文件
           |  |
           |  |------ 压缩目录
           |  |
           |  |------ 解压文件
           |  |
           |  |------ 解压指定文件
           |  |
           |  |------ 取错误信息
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ZIP压缩文件_API
           |  |
           |  |---[dll]------   ZIP压缩目录_API
           |  |
           |  |---[dll]------   ZIP解压文件_API
           |  |
           |  |---[dll]------   ZIP解压指定文件_API
           |  |
           |  |---[dll]------   ZIP获取错误信息_API

调用的DLL命令:

.DLL命令 ZIP压缩文件_API, 整数型, "zip.dll", "MyZip_AddFile", 公开,   <0 失败 , >0成功     同名文件将自动被替换(overwrite)
    .参数 待压缩文件, 文本型, , (全路径)
    .参数 目标文件, 文本型, , (全路径)

.DLL命令 ZIP压缩目录_API, 整数型, "zip.dll", "MyZip_AddDirectory", 公开,   <0 失败 , >0成功     同名文件将自动被替换(overwrite)
    .参数 待压缩目录, 文本型, , (全路径)
    .参数 目标文件, 文本型, , (全路径)

.DLL命令 ZIP解压文件_API, 整数型, "zip.dll", "MyZip_ExtractFileAll", 公开,  <0 失败 , >0成功     
    .参数 压缩文件, 文本型, , (全路径)
    .参数 文件输出路径, 文本型, , (如果不存在,则自动创建该目录)

.DLL命令 ZIP解压指定文件_API, 整数型, "zip.dll", "MyZip_ExtractFileAll", 公开,   <0 失败 , >0成功     同名文件将自动被替换(overwrite)
    .参数 压缩文件, 文本型, , (全路径)
    .参数 需要解包的文件, 文本型, , (不包含路径)  解压指定文件
    .参数 目标文件, 文本型, , 全路径)

.DLL命令 ZIP获取错误信息_API, 整数型, "zip.dll", "MyZip_GetLastError", 公开, 在压缩/解压的过程中,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回
    .参数 用于返回相关错误信息, 整数型, 传址, <0 失败 ,>0 成功