前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Delphi XE2 新增 System.Zip 单元, 可用一句话压缩整个文件夹了

Delphi XE2 新增 System.Zip 单元, 可用一句话压缩整个文件夹了

作者头像
战神伽罗
发布2019-08-20 16:55:41
8110
发布2019-08-20 16:55:41
举报
文章被收录于专栏:Eureka的技术时光轴

单元内主要就是 TZipFile 类, 最方便使用的是它的类方法:

TZipFile.ExtractZipFile() //解压 Zip 文件到指定文件夹 TZipFile.IsValid() //判断指定文件是否是有效的 Zip 文件 TZipFile.ZipDirectoryContents() //压缩指定路径下的所有文件

测试:

uses System.Zip;

{ 把 C:\Temp\TestDir 下的所有文件压缩到 C:\Temp\Test.zip } procedure TForm1.Button1Click(Sender: TObject); begin TZipFile.ZipDirectoryContents('C:\Temp\Test.zip', 'C:\Temp\TestDir\'); //参数3可以指定压缩算法 end;

{ 把 C:\Temp\Test.zip 解压到 C:\Temp\TestDir2\ } procedure TForm1.Button2Click(Sender: TObject); begin TZipFile.ExtractZipFile('C:\Temp\Test.zip', 'C:\Temp\TestDir2\'); end;

使用实例化类的方式:

uses System.Zip;

{ 压缩 } procedure TForm1.Button1Click(Sender: TObject); var zip: TZipFile; begin zip := TZipFile.Create; zip.Open('C:\Temp\001.zip', TZipMode.zmWrite); //准备要压缩为 001.zip zip.Add('C:\Temp\Test.txt', 'Test.txt'); //参1是要压缩的文件; 参2是要使用的文件名; 参数3可指定压缩算法 // zip.Add... // zip.Close; //Close 时才执行实际压缩过程; 不过在销毁前会调用它 zip.Free; end;

{ 解压 } procedure TForm1.Button2Click(Sender: TObject); var zip: TZipFile; begin zip := TZipFile.Create; zip.Open('C:\Temp\001.zip', TZipMode.zmRead); zip.ExtractAll('C:\Temp\002\'); zip.Free; end;

本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
相关产品与服务
文件存储
文件存储(Cloud File Storage,CFS)为您提供安全可靠、可扩展的共享文件存储服务。文件存储可与腾讯云服务器、容器服务、批量计算等服务搭配使用,为多个计算节点提供容量和性能可弹性扩展的高性能共享存储。腾讯云文件存储的管理界面简单、易使用,可实现对现有应用的无缝集成;按实际用量付费,为您节约成本,简化 IT 运维工作。
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档