delphi 怎么来压缩文件

使用时，需要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;