delphi中进行zip压缩解压缩

在delphi中，进行文件的zip压缩解压缩可以使用一个第三方控件VCLZip来完成。

压缩：

        vclzip:=TVCLZip.create(nil);

        with vclzp do
        begin
          ZipName:=dstFile;
          RecreateDirs:=true; //注意这里
          StorePaths:=False;
          FilesList.Add(srcFile);
          Recurse := True;
          try
            Zip;
          except
            Application.MessageBox('压缩文件失败','错误',MB_OK+MB_ICONINFORMATION);
            exit;
          end;
        end;

解压缩：

vcluzip:=TVCLUnZip.Create(nil);
with vcluzip do
begin
    ZipName:=sFile;
    ReadZip;
    FilesList.Add('*.*');
    DoAll := False;
    DestDir := ExtractFilePath(sFile);
    RecreateDirs := False;
    RetainAttributes := True;
    Unzip;
end;
vcluzip.Free;

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: DELPHIDELPHI winzipwinzip vclzipvclzip