当前位置:主页>销售管理软件> 列表

我的解压缩怎么老是出错呢? 找仓库进销存

销售管理软件版1楼: procedure TForm1.Button1Click(Sender: TObject);
begin
VCLUnZip1.ZipName := ''济阳建委.rar'';//文件名
VCLUnZip1.DestDir := ''E:\济阳审计'';//解压路径
VCLUnZip1.RecreateDirs := True;//是否创建子目录
VCLUnZip1.DoAll := True;
VCLUnZip1.OverwriteMode := always; //是否覆盖
try
VCLUnZip1.UnZip;
Except
MessageDlg(''文件解压缩失败!'',mtInformation,[mbOk],0);
Close;
Exit;
end;
showmessage(''文件解压缩成功'');
end;

请问那里错了。

2楼: 有没有设置password?
还有ZipName路径是绝对路径,一定能找到吗? 如仓库进销存

3楼: 解压路径写成''E:\济阳审计\''试一下。

4楼: 这个没有密码。
还有该压缩文件就存在这个目录下。。

5楼: 改了还是不行。怎么办。
出现Incomplete Zip File.

6楼: VCLUnZip 只支持ZIP格式的压缩和解压缩。

销售管理软件版7楼: 只能压缩成ZIP格式

8楼: 这样啊。我再试试

9楼: VCLUnZip1.ZipName := ''济阳建委.zip'';//文件名


这样也不行。

10楼: procedure TForm1.Button1Click(Sender: TObject);
begin
VCLUnZip1.ZipName := ''E:\济阳审计\济阳建委.zip'';//文件名
VCLUnZip1.DestDir := ''E:\济阳审计'';//解压路径
VCLUnZip1.RecreateDirs := True;//是否创建子目录
VCLUnZip1.DoAll := True;
VCLUnZip1.OverwriteMode := always; //是否覆盖
try
VCLUnZip1.UnZip;
Except
MessageDlg(''文件解压缩失败!'',mtInformation,[mbOk],0);
Close;
Exit;
end;
showmessage(''文件解压缩成功'');
end;
为什么总是在unit VCLUnZip单元里出现 raise EIncompleteZip.Create(LoadStr(IDS_INCOMPLETEZIP));
这句提示错误。
有知道的吗?

11楼: 弄好了。是我自己太粗心了。谢谢各位