/// <author>cxg 2020-7-7</author>/// 支持跨os，支持d7及以上版本unit zip; interface {$if CompilerVersion>= 21}  //d2...

压缩指定路径MyZipDir下的文件夹b及b目录下的所有文件和文件b.txtfunction ZipDir(zipMode:Integer;zipControl:TVCLZip;MyZipName,MyZipDir:string):Boolean;  begin    {压缩指...

function   Zip(ZipMode,PackSize:Integer;ZipFile,UnzipDir:String):Boolean;   //压缩或解压缩文件var  ziper:TVCLZip;begin  //函数用法：Zip(压缩模式，压缩...

对Zlib单元进行再封装低版本DELPHI，如D7，ZLIB.pas单元封装的很简陋，因此有必要再封装，以增加使用的便利性。高版本DELPHI，zlib.pas本身提供的接口已经相当完善。Zlib.pas是DELPHI自带的压缩...

delphi压缩与解压，比较简单，也比较实用，对我来说已经足够，我只想让客户端下载一个压缩文件到本地后解压出来就行，看网上有用什么控件的，我的是delphi6没装那控件，在公司管的比较严，要装...

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Butt...

Delphi XE2支持ZIP压缩文件的操作了，新增 System.Zip 单元, 可用一句话压缩整个文件夹，太强大了，如下是一小段测试的代码：uses System.Zip; procedure TForm1.FormCreate(Sender: TObject); ...

delphi 使用ZLIB对datasetProvider.data数据包进行压缩传输的测试uses Datasnap.DSIntf 设置ZLIB压缩等级(zcFastest表示最快的压缩速度)      ZCompre...

 单元内主要就是 TZipFile 类, 最方便使用的是它的类方法:--------------------------------------------------------------------------------TZipFile.ExtractZipFile() //解压 Zip 文件...

Daniel注：是一套不错的库，我写的这篇简短的介绍希望对大家有用^_^ZlibEx作者： brent sherwood(http://www.base2ti.com/)--------------------------------------------------------最新版下...

呵呵，终于做出来了，有一定收获， 在算法上还是花了不少时间， 以前解gzip内容，现在是deflate，少了文件头内容，所以 用以前思路老是碰到'data error'问题。 用的是zLib控件： (http://www.2c...

(** 单元说明: 文件/流的加密解密方法(For Delphi 6-7)*** 使用说明: 此文件的代码可以直接编译使用,* 您可以根据需要编写自己的加密/解密代码.** 声 明: 以下代码属作者原创, 请转载时保留本信...

VCLZip压缩解压文件支持winzip，下面给个简单调用的例子，控件在本站可以下载：uses VCLUnZip, VCLZip;function ComPressFile(dstFile,srcFile:string):Boolean;varvclzip:TVCLZip;beginResult:...

软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该流在...

procedure UnCompressionStream(var ASrcStream:TMemoryStream); //解压缩varnTmpStream:TDecompressionStream;nDestStream:TMemoryStream;nBuf: array[1..512] of Byte;nSrcCount: integer;beg...