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;