Delphi下7zip组件的使用

今天,闲着无聊就随手在源码库里拿出一个组件来看一看了,发现有一个从内存中加载7zip的dll来实现解压缩的组件,于是看了看Demo,结果发现只有压缩的例子,却没有解压的代码,于是就加上了解压的代码。



procedure TForm1.Button1Click(Sender: TObject);
begin
  Dz7zip1.Start := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Dz7Zip1.SevenZDeComPressFile('C:\Documents and Settings\Administrator\桌面\Dz7Zip\Demo\Del.xZip', 'C:\Documents and Settings\Administrator\桌面\Dz7Zip\Demo\Del');
end;

组件我也打包了提供给各位研究一番,下面是下载地址:



上一篇: SQL字符替换语句
下一篇: Delphi2007下CIS的clHttp使用
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Delphi 7zip 组件
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 1000 字 | UBB代码 开启 | [img]标签 关闭