味味A

TurboPower Abbrevia 是一套for Embarcadero Delphi, C++Builder 程式開發工具上的壓縮軟體工具。

從Delphi 6所使用的Vclzip 無法繼續在Delphi XE2使用。

於是找到這套FREEWARE的壓縮軟體。

官網：http://sourceforge.net/projects/tpabbrevia/

下載：http://sourceforge.net/projects/tpabbrevia/files/latest/download

咦!! Delphi XE2不是有Native的壓縮軟體 TZIPFILE，但是發現java.util.zip 壓出來的zip(ZLIB格式)不行解壓縮。(希望下個版本能提供修正)

Embarcadero Bug report：TZipFile: zip extracted with 0-size files.
http://qc.embarcadero.com/wc/qcmain.aspx?da=128 顯示Zip蠻多Bug尚未解決(101/3/17 updated)

紀錄Abbrevia幾個使用壓縮及解壓縮的程式碼範例。

unit Unit1; 

interface 

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, AbZipper, Vcl.StdCtrls, AbUnzper,
  AbUtils; 

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BtnZipOne: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    BtnZipFolder: TButton;
    BtnUnzip: TButton;
    Label6: TLabel;
    Edit6: TEdit;
    Memo1: TMemo;
    procedure BtnZipOneClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnZipFolderClick(Sender: TObject);
    procedure BtnUnzipClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end; 

var
  Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.BtnZipOneClick(Sender: TObject);
VAR
  oZip: TAbZipper; // uses  AbZipper
begin
{壓縮一個檔案}
  oZip := TAbZipper.Create(self);
  try
    oZip.FileName := Edit4.Text; // 'c:\test1.zip';
    // oZip.BaseDirectory := 'c:\temp\';
    oZip.DeleteFiles('*.*'); // 清除zip內所有檔案
    oZip.AddFiles(Edit1.Text, faAnyFile);
    oZip.Save;
    Memo1.Lines.Add(Edit1.Text + ' zip to ' + Edit4.Text);
  finally
    freeandNil(oZip);
  end;
end; 

procedure TForm1.BtnZipFolderClick(Sender: TObject);
VAR
  oZip: TAbZipper; // uses  AbZipper
begin
{壓縮一個目錄}
  oZip := TAbZipper.Create(self);
  try
    oZip.FileName := Edit5.Text; // 'c:\test1.zip';
    oZip.BaseDirectory := Edit2.Text;  // 'c:\auto\
    oZip.DeleteFiles('*.*'); // 清除zip內所有檔案
    oZip.AddFiles('*', faAnyFile);
    oZip.Save;
    Memo1.Lines.Add(Edit2.Text + ' zip to ' + Edit5.Text);
  finally
    freeandNil(oZip);
  end; 

end; 

procedure TForm1.BtnUnzipClick(Sender: TObject);
var
  AbUnZip: TAbUnZipper; // uses AbUnzper
  aPath: string;
begin
{解壓縮檔案}
  AbUnZip := TAbUnZipper.Create(nil);
  try
      //unzip 包含路徑也一併解
    AbUnZip.ExtractOptions := oAbUnZipper.ExtractOptions +[eoRestorePath];
    AbUnZip.FileName := Edit3.Text; // c:\test3.zip
    aPath := Edit6.Text; // 'c:\temp\a1\';
    AbUtils.AbCreateDirectory(aPath); // 不會自己建目錄，須自己來 uses AbUtils
    AbUnZip.BaseDirectory := aPath; // set BaseDirectory 若目錄不存在會報錯
    AbUnZip.ExtractFiles('*.*');
    Memo1.Lines.Add(Edit3.Text + ' unzip to ' + Edit6.Text);
  finally
    freeandNil(AbUnZip);
  end;
end; 

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Clear;
end; 

end.