unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses Zlib; {压缩流 TCompressionStream 与解压缩流 TDecompressionStream 来自 Zlib 单元} //压缩 procedure TForm1.Button1Click(Sender: TObject); var cs: TCompressionStream; {定义压缩流} fs,ms: TMemoryStream; {fs 是要压缩的流; ms 是接收压缩后文件的流} num: Integer; {原始文件大小} begin {第一步: 调入要压缩的文件, 并获取大小} fs := TMemoryStream.Create; fs.LoadFromFile(‘c:\temp\test.txt‘); {文件要存在啊} num := fs.Size; {第二步: 建立接收的流, 并先写入原始文件大小} ms := TMemoryStream.Create; ms.Write(num, SizeOf(num)); {第三步: 压缩} cs := TCompressionStream.Create(clMax, ms); {参数1是压缩比; 参数2是接收流} fs.SaveToStream(cs); {传入要压缩的数据} cs.Free; {压缩流 Free 后才真正完成压缩, 所以提前 Free} {第四步: 保存} ms.SaveToFile(‘c:\temp\test.zipx‘); {第五步: 释放} ms.Free; fs.Free; {压缩比参数: clNone 无压缩 clFastest 快速 clDefault 默认 clMax 最大比例 } end; //解压缩 procedure TForm1.Button2Click(Sender: TObject); var ds: TDecompressionStream; {解压流} fs,ms: TMemoryStream; {fs 是准备要解压的流; ms 是接受解压数据的流} num: Integer; {接受文件压缩前的大小} begin {第一步: 准要解压的文件} fs := TMemoryStream.Create; fs.LoadFromFile(‘c:\temp\test.zipx‘); {必须是上一个压缩方法生成的文件} {第二步: 读出文件压缩前的大小} fs.Position := 0; fs.ReadBuffer(num,SizeOf(num)); {第三步: 准备好要接收的流, 并设置需要的大小} ms := TMemoryStream.Create; ms.SetSize(num); {第四步: 解压} ds := TDecompressionStream.Create(fs); {参数是要解压的流} {第五步: 把解压后的数据读出存放到已准备好接收的流} ds.Read(ms.Memory^, num); {第六步: 保存} ms.SaveToFile(‘c:\temp\test2.txt‘); ds.Free; ms.Free; fs.Free; end; end.
时间: 2024-10-25 22:36:05