lazarus 操纵zip文件

最新推荐文章于 2024-09-05 16:21:59 发布

转载最新推荐文章于 2024-09-05 16:21:59 发布 · 425 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lukisy/archive/2012/04/11/2442550.html

本文介绍如何使用FreePascal的paszlib库进行文件的压缩与解压缩操作，通过示例代码展示了如何创建TZipper对象来压缩文件，并使用TUnZipper对象来解压缩文件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

源代码在 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;

转载于:https://www.cnblogs.com/lukisy/archive/2012/04/11/2442550.html