流的解压及压缩(代码精简高效)

用一个函数即实现流的压缩和解压,使用方法:

ZIP(源流,目标流,True/False)TRUE为压缩,FALSE为解压

函数如下:

function ZIP(mInputStream: TStream; mOutputStream: TStream;Compress:BOOL): BOOL;
var
  I: Integer;
  p:pchar;
  TCS:TCompressionStream;
  TDS:TDecompressionStream;
begin
 result:=false;
  if not (Assigned(mInputStream) and Assigned(mOutputStream)) then Exit;
 try
  if Compress then TCS:=TCompressionStream.Create(clMax,mOutputStream) else TDS:=TDecompressionStream.Create(mOutputStream);//其中的clMax表示压缩级别,可以更改,值是下列参数之一:clNone, clFastest, clDefault, clMax
  getMem(p,mInputStream.size);
  mInputStream.ReadBuffer(p^,mInputStream.Size );
  if Compress then TCS.WriteBuffer(p^,mInputStream.Size ) else TDS.WriteBuffer(p^,mInputStream.Size );  //关键代码:写入流
 finally
  if Compress then TCS.Free else TDS.Free;
  FreeMem(p);
 end;
 result:=true;
end;

 

一定先uses Zlib这个单元,它提供了DELPHI下的压缩和解压功能

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值