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

怎么安装打印机？有用户买了打印机后却不懂该如何安装并且连接电脑，下面就给大家分享打印机的具体安装方法。
本地打印机安装：
1.先把随机配送光盘放进光驱，如电脑没有光驱的话，可以直接把文件拷到U盘，再放到电脑上。
2.光盘启动，系统会自动运行安装引导界面，如图，如果拷贝文件则需要找到launcher.exe文件，双击运行。
3.系统会提示是安装一台打印机或者修复本机程序，如果是新的打印机则需要先添加选项，如果修复程序则点“修复”。
4.系统会提示你把打印机插上电源，连接到电脑。
5.接着把打印机和电脑连上，并打开开关，然后系统就会在本机装驱动。
6.装完后会提示安装完成。
7.在打印机和传真里面，对着刚装的打印机，点右键选择“属性”，点击“打印测试页”，那样就说明打印机安装成功了。
网络打印机安装：
1.网络打印机安装，无须驱动盘，也无须连接打印机，只要电脑能连上共享打印机即可。
2.首先点开始，再点开运行，然后输入共享打印服务端IP，再点确定。
3.接着在弹出共享窗口时，双击共享的打印机。
4.最后在弹出连接打印机的提示，点击确定完成网络打印机安装。

怎么安装打印机？有用户买了打印机后却不懂该如何安装并且连接电脑，下面就给大家分享打印机的具体安装方法。
本地打印机安装：
1.先把随机配送光盘放进光驱，如电脑没有光驱的话，可以直接把文件拷到U盘，再放到电脑上。
2.光盘启动，系统会自动运行安装引导界面，如图，如果拷贝文件则需要找到launcher.exe文件，双击运行。
3.系统会提示是安装一台打印机或者修复本机程序，如果是新的打印机则需要先添加选项，如果修复程序则点“修复”。
4.系统会提示你把打印机插上电源，连接到电脑。
5.接着把打印机和电脑连上，并打开开关，然后系统就会在本机装驱动。
6.装完后会提示安装完成。
7.在打印机和传真里面，对着刚装的打印机，点右键选择“属性”，点击“打印测试页”，那样就说明打印机安装成功了。
网络打印机安装：
1.网络打印机安装，无须驱动盘，也无须连接打印机，只要电脑能连上共享打印机即可。
2.首先点开始，再点开运行，然后输入共享打印服务端IP，再点确定。
3.接着在弹出共享窗口时，双击共享的打印机。
4.最后在弹出连接打印机的提示，点击确定完成网络打印机安装。

 1、刻录数据光盘——你就把光盘看成是你电脑上的另一个硬盘，或者当成U盘也行。数据就是硬盘上的文件。刻录数据光盘，实际上就是拷贝文件到其它存储介质上。
2、刻录音乐光盘——就是常见的那种播放时没有画面的CD音乐盘。
3、制作影视光盘——VCD视频光盘。常见的VCD影碟。
4、制作光盘映像——常见的映像文件cue,iso,bwt,cdi,b5t,ccd,mds,nrg 如果是批量刻录的话，先制作成映像文件，然后在刻录。减少刻录时间。当然映像文件还有其它的功能。制作电脑启动光盘时也会用到映像文件。。这个你可能接触不到。。我就不说啦。
5、刻录光盘映像文件——这个很有意思的。。。看你的映像文件是类型的。支不支持多轨啊，支不支启动啊。。主要是看你怎么制作映像文件啦。你就这么理解吧。Ghost应该知道吧，刻录机相当于Ghost，光盘相当于是Ghost要备份的目标硬盘，数据相当于Ghost要备份的是哪个盘，光盘映像文件就是Ghost最终生成的备份文件。这么理解，你就应该明白很多啦。
6、刻录DVD文件夹——指的是DVD视频光盘。。。光盘的选择：只分两种VCD光盘和DVD光盘，你要刻录CD、VCD的话，就买VCD光盘。刻录DVD的话，买DVD光盘。刻录SVCD的话，也买VCD光盘。VCD光盘的容量为700MB，DVD的容量为4GB。至于刻录数据光盘，VCD光盘和DVD光盘都可以。