我的解压缩怎么老是出错呢？(20分)

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #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;

请问那里错了。

 

B

babibean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #2

有没有设置password?
还有ZipName路径是绝对路径，一定能找到吗？

 

B

babibean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #3

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

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #4

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

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #5

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

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #6

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

 

P

photodelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #7

只能压缩成ZIP格式

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #8

这样啊。我再试试

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #9

VCLUnZip1.ZipName := '济阳建委.zip';//文件名
这样也不行。

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #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));
这句提示错误。
有知道的吗？

 

M

mfj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-14

• #11

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