关于压缩控件VCLZip，如何在B5中或在D5中安装和使用？？

我想在B5中或D5中使用VCLZip，
谁能提供我安装和使用的例子？？？
这个控件可以压缩大的文件吗（几十M）？？？

11 个解决方案

#1

谁知道？？？

#2

问题已经解决。。。
OK！！！！

#3

UP!

#4

压缩控件VCLZip,哪里有下？

#5

说说怎么装和用？

#6

UP_!

#7

你可以看一下以前的帖子，
搜索一下。
我也是这样解决的。

#8

up                                                            `

#9

安装时请看它的帮助，当中有说明，是要先编译，再选中bpl文件来安装的。

#10

代码如下，为什么ZIP
返回直procedure TForm1.OnClick(Sender: TObject);
var
 dir:string;
begin
    dir:= Edit1.Text;

With VCLZip1 do
begin
ZipName := 'D:\BACKUP.ZIP';
FilesList.Add(dir);    // /* Zip all .PAS files */
Recurse := True; ///* Recurse directories */
StorePaths := True; ///* Keep path information */
PackLevel := 9; ///* Highest level of compression */
end;
 Edit1.Text:=inttostr(VCLZip1.Zip);

end;是0!

#11

我想你用的是D5，我用的是B5。
不知道你的dir:= Edit1.Text 指的是一个文件还是目录，
我记得，FilesList.Add(dir); 其中的dir，应该指定的是"*.*" 目录下所有文件或者是一个具体的文件名称。不包括路径。
在VCLZip1中专门有一个参数是指定源路径的。
好想是Root。你可以找一找。