Delphi-VclZip用法详解

VclZip用法详
Vclzip控件主要的类为TVclUnZip 和TVclZip 其中，TVclZip继承自TVclUnZip。
网上的转帖用法：

function　Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;　//压缩或解压缩文件
var　ziper:TVCLZip;
begin
//函数用法：Zip(压缩模式，压缩包大小，压缩文件，解压目录)
//ZipMode为0：压缩；为1：解压缩　PackSize为0则不分包；否则为分包的大小
try
if　copy(UnzipDir,　length(UnzipDir),　1)　=　‘\’　then
UnzipDir　:=　copy(UnzipDir,　1,　length(UnzipDir)　-　1);　//去除目录后的“\”
ziper:=TVCLZip.Create(application);　//创建zipper
ziper.DoAll:=true;　//加此设置将对分包文件解压缩有效
ziper.OverwriteMode:=Always;　//总是覆盖模式
if　PackSize<>0　then　begin　//如果为0则压缩成一个文件，否则压成多文件
ziper.MultiZipInfo.MultiMode:=mmBlocks;　//设置分包模式
ziper.MultiZipInfo.SaveZipInfoOnFirstDisk:=True;　//打包信息保存在第一文件中
ziper.MultiZipInfo.FirstBlockSize:=PackSize;　//分包首文件大小
ziper.MultiZipInfo.BlockSize:=PackSize;　//其他分包文件大小
end;
ziper.FilesList.Clear;
ziper.ZipName　:=　ZipFile;　//获取压缩文件名
if　ZipMode=0　then　begin　//压缩文件处理
ziper.FilesList.Add(UnzipDir+’*.*’);　//添加解压缩文件列表
Application.ProcessMessages;　//响应WINDOWS事件
ziper.Zip;　//压缩
end　else　begin
ziper.DestDir:=　UnzipDir;　//解压缩的目标目录
ziper.UnZip;　//解压缩
end;
ziper.Free;　//释放压缩工具资源
Result:=True;　//执行成功
except
Result:=False;//执行失败
end;
end;
制作带目录结构的压缩指定目录：

function AddZipFile(ZipFileName,FileName:pchar):integer;stdcall;
var
ziper:TVclZip;
begin
result:=0;
try
try
ziper:=TVclZip.Create(nil);
ziper.OverwriteMode:=Always;//总是覆盖
ziper.DoAll:=true;//压缩所有文件
ziper.RelativePaths:=true;//是否保持目录结构
ziper.AddDirEntriesOnRecurse:=true;
ziper.RecreateDirs:=true;//创建目录
ziper.StorePaths:=true;//保存目录信息
//ziper.Recurse:=true;
except
exit;
end;
if FileExists(StrPas(ZipFileName)) then
begin
if UnZipFile(ZipFileName,TempDir)=1 then
begin
ziper.FilesList.Add(TempDir+StrPas(ZipFileName)+’*.*’);
ziper.FilesList.Add(StrPas(FileName));
ziper.ZipName:=strpas(ZipFileName);
ziper.Zip;
result:=1;
end;
end
else
begin
ziper.FilesList.Add(FileName);
ziper.ZipName:=StrPas(ZipFileName);
ziper.zip;
result:=1;
end;
finally
ziper.Free;
end;

把指定目录（带子目录）的所有文件压缩到一个目录下：

function AddDirAll(Dir,ZipFileName:pchar):integer;stdcall;
var
Ziper:TVclZip;
FileRec: TSearchrec;
TempDir:String;
begin
if FindFirst(Strpas(Dir),faAnyFile,FileRec) = 0 then
begin
repeat
if (FileRec.Attr and faDirectory) <> 0 then
begin
TempDir:=StrPas(Dir)+’\’+FileRec.Name;
AddDirAll(PChar(TempDir),ZipFileName);
end;
if (FileRec.Attr and faAnyFile )<> 0 then
begin
result:=AddZipFile(ZipFileName,Pchar(TempDir+’*.*’));
end;
until FindNext(FileRec) <> 0 ;
end

end;