关于 Delphi 中流的使用(7) 压缩与解压缩(TCompressionStream、TDecompressionStream)

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.