delphi中如何如何压缩一个文件，如何解压一个文件(20分)

delphi中如何压缩一个文件，如何解压一个文件<br>

好像有一套专门的控件，什么名字忘了！

Delphi自带的ZLib.Pas就可以，另外还有好多第三方提供的组件或单元，如：ziptv,<br>lzh.pas等

<br>全文检索结果<br>寻 zip / unzip 的源码<br>ID=166667, 发贴富翁: fuliang, 2000-01-05 23:03:00 <br>寻找 zip/unzip 的源码，<br>要求：<br>1、没有额外的 .dll文件。<br>2、小、快<br>3、可实现目录压缩/解压缩<br>4、要delphi的源码。<br><br>最好不要vcl的控件，只要 底层函数就行。<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=166669, 发贴富翁: cAkk, 1999-12-09 17:10:00 <br>zipTV<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=166678, 发贴富翁: www, 1999-12-09 17:45:00 <br>底层函数恐怕不好说，因为zip采用了一种基于某种算法的压缩格式，这可能需要<br>高深的数学知识，并不是可以简单的几句话讲清楚的。<br><br>我找了一个新的ZIp/Unzip控件，带源码，需要DLL,DLL也带源码。支持分卷压缩。<br>你可以研究一下他是怎么zip和unzip的。<br><br><br><br><br>Re: 寻 zip / unzip 的源码<br>ID=166689, 发贴富翁: 阿蒙, 1999-12-09 18:05:00 <br>大富翁空间库便哟<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=166727, 发贴富翁: wuyi, 1999-12-09 19:46:00 <br>给你发了一个。好象还不错，不过没帮助，你可按readme的地址去下<br>载一个。<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=166812, 发贴富翁: ZRY, 1999-12-09 23:12:00 <br><br><br><br>Re: 寻 zip / unzip 的源码<br>ID=169371, 发贴富翁: fuliang, 1999-12-18 10:25:00 <br>=&gt;wuyi<br><br>我没有收到你发过来的原码，麻烦你再发一遍，地址是<br>fu@webinfo.au.tsinghua.edu.cn<br>fu_liang@263.net<br><br>谢谢<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=169404, 发贴富翁: Jams, 1999-12-18 13:47:00 <br>&gt;&gt;<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=169490, 发贴富翁: delphi_zm, 1999-12-18 22:01:00 <br>各位大虾：<br>&nbsp; &nbsp; 小弟也需要一份！Thanks!<br>My Email:Mingzhong@tjmail.com<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;delphi_zm@263.net<br><br><br><br>Re: 寻 zip / unzip 的源码<br>ID=171903, 发贴富翁: tomzhou, 1999-12-29 20:15:00 <br>ziptv控件有详尽的例子，和多种压缩格式<br>我给你发一份<br>非注册版没有自解压和加密码的功能<br>我发给你的虽然没注册但是有所有的功能<br>你可以看它的例子也可以看帮助<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=171946, 发贴富翁: yck, 1999-12-30 12:57:00 <br>各位大虾：<br>&nbsp; &nbsp; 小弟也需要一份！Thanks!<br>My Email:yuck@etang.com<br><br><br><br><br>Re: 寻 zip / unzip 的源码<br>ID=171965, 发贴富翁: mikecool, 2000-01-01 18:40:00 <br>me 也要一份，谢谢各位大虾了， mail to: developer@shtdu.edu.cn<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=172307, 发贴富翁: yzhu, 2000-01-02 22:17:00 <br>&lt;A HREF="http://my-wjl.scu.edu.cn/%7EKeyes/component/VCL_Zip_V217.zip"&gt;这里&lt;/A&gt;(Delphi梦幻之旅)。<br>原说明如下：<br>&nbsp; &nbsp; 压缩，解压缩的控件，可贵的是有源代码，可以把zipTV丢一边了， v2.17。<br>我没试过 <br><br><br>Re: 寻 zip / unzip 的源码<br>ID=172471, 发贴富翁: 阿蒙, 2000-01-04 18:35:00 <br>210.32.1.18 -〉象网站-〉delphi<br><br><br>Re: 寻 zip / unzip 的源码<br>ID=172732, 发贴富翁: fuliang, 2000-01-05 23:03:00 <br>谢谢大家<br><br><br>&nbsp;<br><br><br>关闭<br><br>http://www.delphibbs.com<br>http://www.richsearch.com<br>(C) Copyright 1998-2001. All rights reserved. <br>

用vclzip压缩控件不错的如下<br><br>压缩<br>VCLZip1.zipname:='c:/test.zip';//取压缩名<br>vclzip1.fileslist.add('c:/*.txt');//要压缩的内容<br>vclzip1.zip;//压缩<br><br>解压压缩<br>zipname := FileListBox1.FileName;<br>fileslist.Add(Filename);<br>UnZip;