myzip.txt

来自「用pb10和myzip.dll实现的压缩解压程序」· 文本 代码 · 共 63 行

文件名:MyZip.dll

函 数:

**************************************************
*** ***
*** 压缩文件 ***
*** ***
**************************************************
1.
Function MyZip_AddFile(SrcFile,ZipFile:pchar):integer;stdcall;
功能 : 将文件SrcFile添加到压缩文档ZipFile
参数 : SrcFile 待压缩文件(全路径)
Zipfile 目标文件(全路径)
返回 : <0 失败
>0 成功
说明 : 同名文件将自动被替换(overwrite)
2.
Function MyZip_AddDirectory(SrcPath,ZipFile:pchar):integer;stdcall;
功能 : 将目录SrcPath里的所有文件(子目录)添加到压缩文档ZipFile
参数 : SrcPath 待压缩目录(全路径)

织梦网站管理系统真的好

Zipfile 目标文件(全路径)
返回 : <0 失败
>0 成功
说明 : 同名文件将自动被替换(overwrite)
**************************************************
*** ***
*** 解压缩文件 ***
*** ***
**************************************************
1.
Function MyZip_ExtractFileAll(ZipFile,PathName:pchar):integer;stdcall;
功能 : 将ZipFile中包含的所有文件解包到文件夹PathName
参数 : ZipFile 压缩文件(全路径)
PathName 文件输出路径(如果不存在,则自动创建该目录)
返回 : <0 失败
=0 压缩文件中未包含任何文件
>0 解包的文件数量
说明 : 同名文件将自动被替换(overwrite)
2.
Function MyZip_ExtractFile(ZipFile,srcName,DstName:pchar):integer;stdcall;
功能 : 从ZipFile中将由SrcName指定的文件解包到由DstName指定的目标文件
参数 : Zipfile 压缩文件(全路径) 织梦好，好织梦
SrcName 需要解包的文件(不包含路径)
DstName 目标文件(全路径)
返回 : <0 失败
=0 压缩文件中未包含SrcName
>0 成功
说明 : 同名文件将自动被替换(overwrite)
**************************************************
*** ***
*** 获取错误信息 ***
*** ***
**************************************************
1.
Function MyZip_GetLastError(out msg : ShortString):integer;stdcall;
功能 : 在压缩/解压的过程中,如有错误发生,可立即调用该函数获取相关错误信息,并由msg返回
参数 : msg 用于返回相关错误信息
返回 : <0 失败
>0 成功