请问如何利用vclunzip 控件从压缩控件中将指定文件解出来(200分)

B

Bigant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-06

• #1

我正在利用vclzip编程，其中想从zip文件中将某个文件解压出来，
一般的文件没有问题，但是遇到目录结构下的文件时，却只能
自动建立目录，不能解压文件，不知何故？
源码如下：
with vclunzip1 do
begin
dir:='e:/hh/aaaa/';
zipname:='e:/hh/asdfas.zip';
readzip;
doall:=false;
for i:=0 to count-1 do
begin
if pathname<>'' then
begin
temp:=dir+pathname;
destdir:=dir+pathname;
rootdir:=pathname;
temp:=filename;
fileslist.Add(filename);
unzip;
end
else
begin
destdir:=dir;
fileslist.Add(filename);
unzip;
end;
end;
end;

 

C

caowei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-06

• #2

看看带的例子呗....
有一个例子是可以从列表中选择某个文件进行解压的....

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #3

提问者:
如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。
请认真阅读大富翁论坛规则说明 http://www.delphibbs.com/delphibbs/rules.asp

 

C

cch_b

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-05

• #4

怎么能不看帮助呢？
例：
v.ZipName:='e:/a.zip';
v.descdir:='c:/'
v.RecreateDirs:=false; //这句最重要，意思明白吧。为TRUE则按目录结构解压了
v.ReadZip;
v.Selected[5]:=true;
v.UnZipSelected;

搞定了。

 

B

bigtt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-30

• #5

z.FilesList.Add('c:/a.xml');
z.ZipAction := zaReplace;
z.RecreateDirs := True;
z.Password:='@_@';
z.ZipName:='c:/aa.zip';
z.Zip;
z.Zip;

u.ZipName :='c:/aa.zip';
u.Password:='@_@';
u.DestDir := 'd:/1/';
u.DoAll := True;
u.Unzip;

 

G

gz_ddc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-08

• #6

各位大大,告诉我哪里可以下载vclzip啦。 我需要个最新或较新的 For Delphi3 的版本阿。要解了密的。谢谢。

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #7

顺便问问各位：
好象VCLZIP里有好多BUG，比如在ONSTRATZIP这个事里，却提示找不到标识符，是什么
原因呢？
自动分盘后解压时却提示坏的压缩包？
请各位解答，谢谢了！

 

Y

YNTW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-30

• #8

cch_b说的是对的，把分给他了

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #9

解出文件比较简单，能不能直接读取zip压缩包的文件！！！如果有人会的告知一下，

我加200

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #10

if saveDialog1.Execute then
begin
VCLUnZIp1.ZipName := 'c:/test/Zipfile.zip' // set the zip filename
VCLUnZIp1.ReadZip; // open it and read its information
VCLUnZIp1.for i := 0 to Count-1 do
VCLUnZIp1.MemoPad.Lines.Add( Filename + #9 + Pathname );
VCLUnZIp1.FilesList.Add( 'myprog.exe' );
VCLUnZIp1.DestDir := 'c:/mydir';
VCLUnZIp1.RecreateDirs := False;
VCLUnZIp1.RetainAttributes := True
VCLUnZIp1.NumUnzipped := Unzip;
end;
试试看，随手写的

 

X

Xxfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #11

to laohe:
你是要列出zip压缩包的文件列表吗？

 

L

laohe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-23

• #12

不是读列表，是读取文件，

例如：压缩包中有一个test.txt；我不用将文件释放到硬盘就可以用，memo1控件读取文件;

还请大侠多多指点，谢谢

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-15

• #13

如果你要解出所有文件，就：
VCLUnZIp1.FilesList.Add( '*.*' );