关于VCLZIP控件问题(急死了!)(50分)

  • 主题发起人 主题发起人 diablohack
  • 开始时间 开始时间
D

diablohack

Unregistered / Unconfirmed
GUEST, unregistred user!
[?]
我在网上找了一个VCLZIP的控件包,里面有d5d6两个版本,我用的是delphi5,并且控件已经
安装好了,但是我用下面的代码:
with Unzipper do
begin
ZipName := m_sLocalFile;
ReadZip; //打开zip文件并且读取相关信息
RecreateDirs := False;
RetainAttributes := True;
ReplaceReadOnly := True;

DestDir := m_sCurrentPath;
NumUnzipped := Unzip;
end;
就是没有一点反映,而且不能debug到VCLzip的代码部分去,不知道是什么原因,是不是我要注册???
 
无须注册,我的很正常。你再试。
 
还是不行呀,救命呀!!!!!!!!!!!!
 
我的例子:
其中属性:
incompletezipmode:=izAssumeMulti;
overwritemode:=Always;
RecreateDirs := False;
RetainAttributes := True;

procedure tform1.ftpunzip(z_name,z_path:string);
begin
form1.caption:='开始解压...';
vclunzip1.ZipName:=z_name;
vclunzip1.DestDir:=z_path;
vclunzip1.UnZip;
vclunzip1.ClearZip;
deletefile(z_name); //解压后删除.zip文件
end;

 
东海小小,谢谢你的回答,看你的函数名也是为了实现ftp下载然后解压的。
我就是要实现这个东西,现在卡在了unzip上面了,找了好久就找到一个vclzip.
现在我重新安装了控件,发现有时候可以debug有时不行,而且对象的属性有时候
有值有时候没有值,不知道怎么回事真是急死了我了!!!!是不是我安装控件上面有问题???
 
多人接受答案了。
 
后退
顶部