Delphi使用zlib来压缩文件

使用时，需要Zlib.pas和 Zlibconst.pas两个单元文件，这两个文件保存在 Delphi 5.0安装光盘上 InfoExtrasZlib目录下，此外，在 InfoExtrasZlibObj目录中还保存了 Zlib.pas单元引用的 Obj文件，把这个目录拷贝到delphi的lib下，即可。可以适当的改动比如增加目录压缩和分文件压缩，其实就是在文件流前面增加一部分描述结构就是，不多说。使用 时，还要use zlib单元。 两个函数如下:

procedure CompressIt(var CompressedStream: TMemoryStream; const CompressionLevel: TCompressionLevel);
// 参数是传递的流和压缩方式
var
　　SourceStream: TCompressionStream;
　　DestStream: TMemoryStream;
　　Count: int64; //注意，此处修改了,原来是int
begin
　　//获得流的原始尺寸
　　Count := CompressedStream.Size;
　　DestStream := TMemoryStream.Create;
　　SourceStream := TCompressionStream.Create(CompressionLevel, DestStream);
　　try
　　　　//SourceStream中保存着原始的流
　　　　CompressedStream.SaveToStream(SourceStream);
　　　　//将原始流进行压缩， DestStream中保存着压缩后的流
　　　　SourceStream.Free;
　　　　CompressedStream.Clear;
　　　　//写入原始图像的尺寸
　　　　CompressedStream.WriteBuffer(Count, SizeOf(Count));
　　　　//写入经过压缩的流
　　　　CompressedStream.CopyFrom(DestStream, 0);
　　finally
　　　　DestStream.Free;
　　end;
end;


procedure UnCompressit(const CompressedStream: TMemoryStream; var UnCompressedStream: TMemoryStream);
//参数 压缩过的流，解压后的流
var
　　SourceStream: TDecompressionStream;
　　DestStream: TMemoryStream;
　　Buffer: PChar;
　　Count: int64;
begin
　　//从被压缩的图像流中读出原始的尺寸
　　CompressedStream.ReadBuffer(Count, SizeOf(Count));
　　//根据尺寸大小为将要读入的原始流分配内存块
　　GetMem(Buffer, Count);
　　DestStream := TMemoryStream.Create;
　　SourceStream := TDecompressionStream.Create(CompressedStream);
　　try
　　　　//将被压缩的流解压缩，然后存入 Buffer内存块中
　　　　SourceStream.ReadBuffer(Buffer^, Count);
　　　　//将原始流保存至 DestStream流中
　　　　DestStream.WriteBuffer(Buffer^, Count);
　　　　DestStream.Position := 0; //复位流指针
　　　　DestStream.Position := length(VER_INFO);
　　　　//从DestStream流中载入图像流
　　　　UnCompressedStream.LoadFromStream(DestStream);
　　finally
　　　　FreeMem(Buffer);
　　　　DestStream.Free;
　　end;
end;

使用的例子如下：
procedure TForm1.Button5Click(Sender: TObject);
//把指定文件压缩然后保存为另外一个压缩包，
//呵呵，我使用的时候是把后缀改成cab,可以唬一些人吧？
var
　　SM: TMemoryStream;
begin
　　if OpenDialog1.Execute then
　　begin
　　　　if SaveDialog1.Execute then
　　　　begin
　　　　　　SM := TMemoryStream.Create;
　　　　　　try
　　　　　　　　Sm.LoadFromFile(OpenDialog1.FileName);
　　　　　　　　SM.Position := 0;
　　　　　　　　Compressit(sm, clDefault);
　　　　　　　　sm.SaveToFile(SaveDialog1.FileName);
　　　　　　finally
　　　　　　　　SM.Free;
　　　　　　end;
　　　　end;
　　end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
//把指定的压缩包解成原来的文件。
var
　　SM, DM: TMemoryStream;
begin
　　if OpenDialog1.Execute then
　　begin
　　　　if SaveDialog1.Execute then
　　　　begin
　　　　　　SM := TMemoryStream.Create;
　　　　　　DM := TMemoryStream.Create;
　　　　　　try
　　　　　　　　Sm.LoadFromFile(OpenDialog1.FileName);
　　　　　　　　SM.Position := 0;
　　　　　　　　UnCompressit(sm, dm);
　　　　　　　　dm.Position := 0;
　　　　　　　　dm.SaveToFile(SaveDialog1.FileName);
　　　　　　finally
　　　　　　　　SM.Free;
　　　　　　　　DM.Free;
　　　　　　end;
　　　　end;
　　end;
end;