使用Lazarus压缩/解压zip

Lazarus默认已经提供了zip文件的压缩和解压功能,在Zipper单元中,不过,使用过程中还是有一些细节需要注意。

压缩

pascal 复制代码
uses Zipper;

{ 使用类方法进行压缩 }

//压缩单个文件
TZipper.Zip('压缩后的文件.zip', '待压缩的文件.txt');
//压缩多个文件
TZipper.Zip('压缩后的文件.zip', ['待压缩的文件1.txt', '待压缩的文件2.pdf']);

{ 使用实例对象进行压缩 }

var zip: TZipper;
zip := TZipper.Create;
try
  //压缩单个文件
  zip.ZipFile('压缩后的文件.zip', '待压缩的文件.txt');
  //压缩多个文件
  zip.ZipFiles('压缩后的文件.zip', ['待压缩的文件1.txt', '待压缩的文件2.pdf']);
finally
  zip.Free;
end; 

以上为比较方便的使用方法,但是还存在一些问题:

  1. 以上仅限于文件名为英文的情况,若文件名为中文则会出现乱码(主要是在windows平台上,用专门的压缩/解压工具打开查看列表和解压时)。查看解决方案

  2. 待压缩的文件包括路径,则压缩后的文件内也会包含传参时传入的路径。查看解决方案

另外,也可以配合FileName(压缩后的文件名)和Entries(待压缩的文件)属性使用ZipAllFiles方法;或者配合Entries(待压缩的文件)属性使用SaveToFile方法。不过,多次调用前一定要调用Clear方法,否则就会受前一次压缩操作的影响。

解压

pascal 复制代码
uses Zipper;

{ 使用类方法进行解压 }

//解压出全部文件
TUnZipper.Unzip('待解压文件.zip');
//解压出指定的多个文件
TUnZipper.Unzip('待解压文件.zip', ['指定解压出的文件1.txt', '指定解压出的文件2.pdf']);
//解压出指定的一个文件
TUnZipper.Unzip('待解压文件.zip', '指定解压出的文件.txt');

{ 使用实例对象进行解压 }

var unzip: TUnZipper;
unzip := TUnZipper.Create;
try
  //解压出全部文件
  unzip.UnZipAllFiles('待解压文件.zip');
  //解压出指定的多个文件
  unzip.UnZipFiles('待解压文件.zip', ['指定解压出的文件1.txt', '指定解压出的文件2.pdf']);
  //解压出指定的一个文件
  unzip.UnZipFile('待解压文件.zip', '指定解压出的文件.txt');
finally
  unzip.Free;
end; 

以上为比较方便的使用方法,另外,也可以配合FileName(待解压的压缩文件名)属性使用UnZipAllFilesUnZipFiles方法。

与压缩类似,同样也存在中文乱码。查看解决方案

中文乱码问题

使用类方法是无法解决中文乱码问题的。

使用实例对象,对于压缩,只需在压缩前把UseLanguageEncoding属性设置为True即可;对于解压,只需在解压前把UseUTF8属性设置为True即可。

路径问题

  • 如果压缩时传入的待压缩文件是包含绝对路径的文件名,则生成的zip文件也包含了完整的目录结构,直接解压也会按照对应的目录生成对应的文件。

  • 如果压缩时传入的待压缩文件包含部分路径,即相对路径,那么,在该相对路径下必须存在对应的待压缩文件,否则将报错;而生成的zip文件也将包含该相对路径,解压时也会按该相对路径生成对应的文件。

  • 如果压缩时传入的待压缩文件不包含任何路径,则表示相对路径为当前路径,压缩/解压规则与相对路径的规则完全一样。

注意事项

  1. 以上提及的相对路径都是对于当前路径来说的。默认情况下,当前路径是指程序所在的路径,除非程序运行时执行过ChDir,那么当前路径就是指最后一次执行过ChDir之后所在的路径。

  2. 解压时也可给OutputPath属性赋值指定路径,该路径即为解压输出时的路径,若不指定,则默认当前路径为输出路径。

  3. 当解压指定的文件时,若压缩文件中包含有路径,那么路径分隔符应使用Linux路径分隔符/,即使在Windows上也是如此。

  4. 压缩时,路径分隔符既可以使用\(仅Windows平台),也可以使用/,甚至同时使用/\也没什么问题,但非常不建议混合使用;解压时,则只能使用/

pascal 复制代码
//压缩
zip.ZipFiles('test.zip', ['a\abc.txt', '123.pdf']);
//or
zip.ZipFiles('test.zip', ['a/abc.txt', '123.pdf']); //效果完全一样

//解压 a\abc.txt
unzip.UnZipFile('test.zip', 'a/abc.txt');
相关推荐
程序员爱钓鱼1 天前
Python编程实战 · 基础入门篇 | 第一个Python程序:Hello World
后端·python·编程语言
liulilittle1 天前
Y组合子剖析:C++ 中的递归魔法
开发语言·c++·编程语言·函数式编程·函数式·函数编程·y组合子
该用户已不存在3 天前
工具用得好,Python写得妙,9个效率工具你值得拥有
后端·python·编程语言
大熊猫侯佩3 天前
月球矩阵日志:Swift 6.2 主线程隔离抉择(下)
swift·编程语言·apple
大熊猫侯佩3 天前
月球矩阵日志:Swift 6.2 主线程隔离抉择(上)
swift·编程语言·apple
Moonbit4 天前
月报 Vol.04 : 新增 async test 与 async fn main 语法,新增 lexmatch 表达式
后端·github·编程语言
马尚来4 天前
图灵核心编程实战班 语法+函数+面向对象+并发编程与数据库全覆盖
编程语言
hqyjzsb4 天前
2025 年项目管理转型白皮书:AI 驱动下的能力重构与跨域突破
开发语言·人工智能·重构·产品经理·编程语言·caie