delphi中进行zip压缩解压缩 - CSDN文库

3星 · 超过75%的资源需积分: 50 178 浏览量更新于2023-03-16 收藏 25KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源推荐

delphi 中进行 zip 压缩解压缩

2009-05-21 17:29

在 delphi 中，进行文件的 zip 压缩解压缩可以使用一个第三方控件 VCLZip 来

完成。

压缩：

 vclzip:=TVCLZip.create(nil);

 with vclzp do

 begin

 ZipName:=dstFile;

 RecreateDirs:=true; //注意这里

 StorePaths:=False;

 FilesList.Add(srcFile);

 Recurse := True;

 try

 Zip;

 except

 Application.MessageBox('压缩文件失败','错

误',MB_OK+MB_ICONINFORMATION);

 exit;

 end;

 end;

解压缩：

vcluzip:=TVCLUnZip.Create(nil);

with vcluzip do

begin

 ZipName:=sFile;

 ReadZip;

 FilesList.Add('*.*');

 DoAll := False;

 DestDir := ExtractFilePath(sFile);

 RecreateDirs := False;

 RetainAttributes := True;

 Unzip;

end;

vcluzip.Free;

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余0页未读，立即下载

Luoyanyan997

粉丝: 0
资源: 1

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈