Delphi后台压缩和解压单元AbZipper

unit uAbZip;

interface

uses
  System.SysUtils, AbBrowse, AbZBrows, AbZipper, AbUnzper, AbArcTyp;//它是TAbZipper各种属性的单元文件

{-------------------------------------------------------------------------------
  过程名:    AbZip
  作用:      压缩目录或指定的文件
  参数:      zipPassword: string;   压缩用密码
             inputParam: string;    要压缩目录名称或文件名
             zipFileName: string;   生成的压缩文件名称(带路径)
             isZipDir: boolean      是否压缩目录（true：目录；false：文件）
  返回值:    boolean
-------------------------------------------------------------------------------}
function AbZip(zipPassword, inputParam, zipFileName: string; isZipDir: boolean = False): boolean;

{-------------------------------------------------------------------------------
  过程名:    AbUnZip
  作用:      解压缩文件到指定的目录或指定的文件
  参数:      zipPassword: string;   解压缩用密码
             inputParam: string;    存放解压缩文件的目录或解压缩后的文件名
             zipFileName: string;   要解压缩的文件名称
             isUnZipToDir: boolean  是否解压缩文件到目录（true：解压缩到目录；false：解压缩到指定的文件）
  返回值:    boolean
-------------------------------------------------------------------------------}
function AbUnZip(zipPassword, inputParam, zipFileName: string; isUnZipToDir: boolean = False): boolean;


implementation


{-------------------------------------------------------------------------------
  过程名:    AbZip
  作用:      压缩目录或指定的文件
  参数:      zipPassword: string;   压缩用密码
             inputParam: string;    要压缩目录名称或文件名
             zipFileName: string;   生成的压缩文件名称(带路径)
             isZipDir: boolean      是否压缩目录（true：目录；false：文件）
  返回值:    boolean
-------------------------------------------------------------------------------}
function AbZip(zipPassword, inputParam, zipFileName: string; isZipDir: boolean = False): boolean;
var
  isSuccess: boolean;  //是否压缩成功的布尔值
  AbZipper1: TAbZipper;//压缩对象
begin

  isSuccess := True; // 是否压缩成功默认值为true

  try
    // 创建压缩对象
    AbZipper1 := TAbZipper.Create(nil);
    try
      with AbZipper1 do
      begin

        Password := ansistring(trim(zipPassword)); // 设置压缩密码

        //压缩目录
        if isZipDir = True then
        begin
          StoreOptions := [soRecurse]; //注意：soRecurse决定压缩子目录，不要添加其它属性了！！
          BaseDirectory := trim(inputParam); // 设置压缩文件所在目录
          FileName := trim(zipFileName); // 设置要生成的压缩文件名
          AddFiles('*.*', 0); // 压缩全部文件
        end
        else //压缩单个文件
        begin
          BaseDirectory := ExtractFilePath(inputParam); // 设置压缩文件所在目录(从当前要压缩文件中抽取)
          FileName := trim(zipFileName); // 设置要生成的压缩文件名
          AddFiles(ExtractFileName(inputParam), 0); // 压缩指定的文件(从当前要压缩文件中抽取)
        end;

        CloseArchive;
      end;
    except
      on e: Exception do
      begin
        isSuccess := False;
      end;
    end;
  finally
    AbZipper1.Free; //释放创建的对象
  end;

  Result := isSuccess;
end;


{-------------------------------------------------------------------------------
  过程名:    AbUnZip
  作用:      解压缩文件到指定的目录或指定的文件
  参数:      zipPassword: string;   解压缩用密码
             inputParam: string;    存放解压缩文件的目录或解压缩后的文件名
             zipFileName: string;   要解压缩的文件名称
             isUnZipToDir: boolean  是否解压缩文件到目录（true：解压缩到目录；false：解压缩到指定的文件）
  返回值:    boolean
-------------------------------------------------------------------------------}
function AbUnZip(zipPassword, inputParam, zipFileName: string; isUnZipToDir: boolean = False): boolean;
var
  isSuccess: boolean; // 是否解压缩成功的布尔值
  AbUnZipper1: TAbUnZipper;//解压缩对象
begin

  isSuccess := True; // 是否解压缩成功的布尔值默认值为true

  try

    // 创建解压缩控件
    AbUnZipper1 := TAbUnZipper.Create(nil);

    try

      // 把指定目录压缩成文件
      with AbUnZipper1 do
      begin
        Password := ansistring(trim(zipPassword)); // 设置解压缩密码

        //解压缩到目录
        if isUnZipToDir = True then
        begin

          //把压缩文件中的多层目录一起解压缩成压缩前的目录结构
          ExtractOptions := [eoCreateDirs, eoRestorePath];

          //如果解压缩文件存放的目录不存在，则创建
          BaseDirectory := trim(inputParam); // 设置解压缩文件存放的目录
          if DirectoryExists(BaseDirectory) = False then
          begin
            CreateDir(BaseDirectory);
          end;

          FileName := trim(zipFileName); // 设置要被解压缩的文件名
          ExtractFiles('*.*'); // 解压缩文件
        end
        else  //解压缩到文件
        begin
          BaseDirectory := ExtractFilePath(inputParam); // 设置解压缩文件存放的目录
          //如果解压缩文件存放的目录不存在，则创建
          if DirectoryExists(BaseDirectory) = False then
          begin
            CreateDir(BaseDirectory);
          end;

          FileName := trim(zipFileName); // 设置要被解压缩的文件名
          ExtractFiles('*.*'); // 解压缩文件
        end;

        CloseArchive;
      end;
    except
      on e: Exception do
      begin
        isSuccess := False;
      end;
    end;
  finally
    AbUnZipper1.Free;  //释放解压缩对象
  end;

  Result := isSuccess;
end;

end.

//引用单元
uses uAbZip

//压缩调用方法
_zipPassWord:= '';
_sGroupPath := 'D:/text';
_sFile1     := 'D:/测试.zip';
AbZip(_zipPassWord, _sGroupPath, _sFile1, True);


//解压调用方法
_zipPassWord:= '';
_sGroupPath := 'D:/text';
_sFile1     := 'D:/测试.zip';
AbUnZip(_zipPassWord, _sGroupPath, _sFile1, True);