打印文档：流的解压及压缩(代码精简高效)

来源：百度文库编辑：神马文学网时间：2024/04/30 02:33:02

流的解压及压缩(代码精简高效)
文章类别：Delphi 发表日期：2006-2-4 星期六

用一个函数即实现流的压缩和解压,使用方法:
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下的压缩和解压功能

打印文档：流的解压及压缩(代码精简高效) 分卷解压及压缩教程分卷解压及压缩教程 Linux下常用压缩格式的压缩与解压方法 Linux下常见文件格式的压缩、解压小结 linux下常见文件格式的压缩、解压小结 Linux下tar bz gz等压缩包的压缩和解压分卷压缩与解压2 如何将PPT文件转化为Word文档及最佳打印？_学明的桃源 Linux下常见文件格式的压缩、解压小结 ---中国IT实验室文档双面打印的四种方法文档双面打印的四种方法打印文档：IP网络的服务质量问题专门用于打印的CSS文档闲扯详解Linux压缩程式文件解压 Linux常用的压缩及解压缩命令精简的css圆角边框代码o 如何才能写出高效规范的CSS代码轻松打印Word文档的八条秘技 - 新农村商网 linux和unix下常用解压和压缩命令 CSDN 文档中心：高效程序员应该养成的七个习惯 ZIP压缩文档格式发明人之死--蒜泥的电影世界超精简加封装的VB注册表读写删改操作代码超精简加封装的VB注册表读写删改操作代码