Delphi中流的使用：压缩与解压缩(TCompressionStream、TDecompressionStream)

最新推荐文章于 2022-03-13 20:04:13 发布

转载最新推荐文章于 2022-03-13 20:04:13 发布 · 304 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/bingege/archive/2010/05/02/1725877.html

本文介绍了一个使用Delphi实现文件压缩与解压缩的例子。通过TCompressionStream和TDecompressionStream类，该示例展示了如何将一个文件压缩为另一个文件，并再将其还原回原始状态的过程。

 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

转载于:https://www.cnblogs.com/bingege/archive/2010/05/02/1725877.html