Unit1; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; TForm1 = (TForm) Button1: TButton; Button2: TButton; Button1Click(Sender: TObject); Button2Click(Sender: TObject); ; Form1: TForm1; Zlib; TForm1.Button1Click(Sender: TObject); cs: TCompressionStream; fs,ms: TMemoryStream; num: Integer; fs := TMemoryStream.Create; fs.LoadFromFile(); num := fs.Size; ms := TMemoryStream.Create; ms.Write(num, SizeOf(num)); cs := TCompressionStream.Create(clMax, ms); fs.SaveToStream(cs); cs.Free; ms.SaveToFile(); ms.Free; fs.Free; ; TForm1.Button2Click(Sender: TObject); ds: TDecompressionStream; fs,ms: TMemoryStream; num: Integer; fs := TMemoryStream.Create; fs.LoadFromFile(); fs.Position := ; fs.ReadBuffer(num,SizeOf(num)); ms := TMemoryStream.Create; ms.SetSize(num); ds := TDecompressionStream.Create(fs); ds.Read(ms.Memory^, num); ms.SaveToFile(); ds.Free; ms.Free; fs.Free; ; .
摘自万一老师的博客:http://www.cnblogs.com/del/archive/2008/01/01/1022539.html