T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
谁有压缩，解压缩的控件包啊，救急！能发一个给我吗？谢谢了！
我家里有的！现在来不急了！
terminal_guo@263.net
我家里有的！现在来不急了！
terminal_guo@263.net
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
那你直接用DELPHI的ZLib.pas好了。
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
压缩的比例高吗？
没用过啊！
没用过啊！
B
bluerain
Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.chinasoft.net.cn/download/otheru.htm
数据压缩类
数据压缩类
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
一般，但也够用了，功能当然就更少了，只有基本的压缩和解压。
有更多的要求，可以使用zipTV等
有更多的要求，可以使用zipTV等
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
我找不到ZLib.pas！
我是D6
我是D6
T
tianhf
Unregistered / Unconfirmed
GUEST, unregistred user!
我觉得VCLZip 最好用: http://www.donet.com/~vclzip/
看他的帮助/实例,功能很多,几句搞定,我一直用它!
看他的帮助/实例,功能很多,几句搞定,我一直用它!
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
能写个简单的例程吗？（VCLZip）
谢谢！
谢谢！
O
only you
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi5自带的Zlib就很好！
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi5自带的Zlib找不到呢！
我用的是DELPHI6，能告诉我D6中在哪儿吗？
我用的是DELPHI6，能告诉我D6中在哪儿吗？
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
得有光盘版，去D5的光盘上找，D6也有
D
DreamLand
Unregistered / Unconfirmed
GUEST, unregistred user!
d8德imports目录下面，有一个叫zlib.dcu的文件，就是他了
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
我在D6的imports下面没有发现啊！并且只有个zlib.dcu文件怎么用啊！
望上面的大哥指导一下，谢了！
望上面的大哥指导一下，谢了！
卷
卷起千堆雪tyn
Unregistered / Unconfirmed
GUEST, unregistred user!
ZLib.pas位于D5的安装盘里，D6的安装盘里也应该有的,你搜索一下。
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
我手上没有安装盘，谢谢，等明天有了我试一下！
T
tianhf
Unregistered / Unconfirmed
GUEST, unregistred user!
VCLZip:
(*With VCLZip1 do
begin
ZipName := 'C:/BACKUP.ZIP';
FilesList.Add('C:/MYFILES/*.PAS'); /* Zip all .PAS files */
Recurse := True; /* Recurse directories */
StorePaths := True; /* Keep path information */
PackLevel := 9; /* Highest level of compression */
NumberZipped := Zip; /* Return value of Zip is the actual number of files zipped */
end;
---
With Unzipper do
begin
ZipName := 'c:/test/Zipfile.zip' // set the zip filename
ReadZip; // open it and read its information
// List filenames in zip file
for i := 0 to Count-1 do MemoPad.Lines.Add( Filename + #9 + Pathname );
// extract some files
// determine which files to unzip
FilesList.Add( '*.cpp' ); // unzip all .cpp files
FilesList.Add( 'myprog.exe' ); // unzip myprog.exe
FilesList.Add( '?<0-9>*/*.h' ); // .h files, if 2nd letter of dir starts with digit only
FilesList.Add( Filename[Count-1] ); // extract last entry in zipfile
DoAll := False; // Don't unzip all files
DestDir := 'c:/mydir' // Set destination directory
RecreateDirs := False; // don't recreate directory structures
RetainAttributes := True // Set attributes to original after unzipping
NumUnzipped := Unzip; // Extract files, return value is the number of files actually unzipped
end; *)
(*With VCLZip1 do
begin
ZipName := 'C:/BACKUP.ZIP';
FilesList.Add('C:/MYFILES/*.PAS'); /* Zip all .PAS files */
Recurse := True; /* Recurse directories */
StorePaths := True; /* Keep path information */
PackLevel := 9; /* Highest level of compression */
NumberZipped := Zip; /* Return value of Zip is the actual number of files zipped */
end;
---
With Unzipper do
begin
ZipName := 'c:/test/Zipfile.zip' // set the zip filename
ReadZip; // open it and read its information
// List filenames in zip file
for i := 0 to Count-1 do MemoPad.Lines.Add( Filename + #9 + Pathname );
// extract some files
// determine which files to unzip
FilesList.Add( '*.cpp' ); // unzip all .cpp files
FilesList.Add( 'myprog.exe' ); // unzip myprog.exe
FilesList.Add( '?<0-9>*/*.h' ); // .h files, if 2nd letter of dir starts with digit only
FilesList.Add( Filename[Count-1] ); // extract last entry in zipfile
DoAll := False; // Don't unzip all files
DestDir := 'c:/mydir' // Set destination directory
RecreateDirs := False; // don't recreate directory structures
RetainAttributes := True // Set attributes to original after unzipping
NumUnzipped := Unzip; // Extract files, return value is the number of files actually unzipped
end; *)
A
aizb
Unregistered / Unconfirmed
GUEST, unregistred user!
我的主页上有用ZLib.pas的一个完整的例子！去看看吧！http://aizb.6to23.com
S
Slocker
Unregistered / Unconfirmed
GUEST, unregistred user!
去找一个叫backfile.zip的控件包，很好用！
有例子、原码、帮助，文件很小，300k的数据表能压缩到30k!
满意了吧，给分吧。
有例子、原码、帮助，文件很小，300k的数据表能压缩到30k!
满意了吧，给分吧。
Y
yyxhcf
Unregistered / Unconfirmed
GUEST, unregistred user!
如果是压缩文件，用MS的MakeCab.exe就很好，以前叫Compress.exe。
生成的是标准的Cab文件或扩展名后加下划线的文件(单文件压缩时)，
MS的安装程序基本都是用这两种文件。
解压更简单了，用Windows自带的Extrac32.exe可轻松搞定，调用WINAPI也可解压，
这是标准的解压方法。
支持多文件压缩。压缩率比WinRar还高!
生成的是标准的Cab文件或扩展名后加下划线的文件(单文件压缩时)，
MS的安装程序基本都是用这两种文件。
解压更简单了，用Windows自带的Extrac32.exe可轻松搞定，调用WINAPI也可解压，
这是标准的解压方法。
支持多文件压缩。压缩率比WinRar还高!
T
terminal_guo
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
Similar threads
- 回复
- 4
- 查看
- 4K