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;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
