lazarus 操纵zip文件

源代码 在 http://wiki.freepascal.org/paszlib 页面中。

 

uses zipper;

procedure TForm1.Button5Click(Sender: TObject);
var
  Zipper: TZipper;
  i:integer;
begin
  //http://wiki.freepascal.org/paszlib
  try
    Zipper := TZipper.Create;
    Zipper.FileName := 'E:\20120411\zip\zip.zip';
    Zipper.Entries.AddFileEntry('E:\20120411\ABCD\zipper.txt','ABCD\zipper1.txt');
    Zipper.ZipAllFiles;
    showmessage('ok');
  finally
    Zipper.Free;
  end;
end;

procedure TForm1.Button6Click(Sender: TObject);
var
  UnZipper: TUnZipper;
begin
  //http://wiki.freepascal.org/paszlib
  UnZipper := TUnZipper.Create;
  try
    UnZipper.FileName := 'E:\20120411\zip\zip.zip';
    UnZipper.OutputPath := 'E:\20120411\zip\a';

    UnZipper.UnZipAllFiles;  //unzip
  finally
    UnZipper.Free;
  end;

end;