Delphi压缩流和解压流的应用

  次阅读 来源:互联网(转载协议) 2016-01-19 12:49 我要评论(0)

软件开发者不免都要遇到压缩数据的问题!经常使用Delphi的朋友都知道,它为我们提供了两个流类(TCompressionStream和 TDecompressionStream)来完成数据的压缩和解压缩,但美中不足的是,该流在Delphi 的帮助中没有详细的说明,使得它们在使用起来有一定得困难。其实在Delphi系统中提供了这两个类的源代码和库。保存在Delphi 光盘的InfoExtraslib Src和InfoExtraslibObj目录中(其中OBJ目录中保存的是库,Src目录中保存的是源代码,感兴趣的朋友可以看看)。本人在使用的过程中,对它们有了一定的了解。

一、 类的说明

1、 基类 TCustomZlibStream:类TCustomZlibStream 是类TCompressionStream和TDecompressionStream 类的基类,它主要有一个属性: OnProgress,在类进行压缩或解压缩的过程中会发生这个的事件 ,它的定义如下:

Procedure OnProgress (Sender: TObject); dynamic;

2、 压缩类TCompressionStream:类TCompressionStream除了继承了基类的 OnProgress 属性外,又增加了一个属性:CompressionRate,它的定义如下:

Property CompressionRate: Single read GetCompressionRate;通过这个属性,可以得到压缩比。

它的几个重要的方法定义如下:

Constructor TCompressionStream.Create (CompressionLevel: TCompressionLevel; Dest: TStream);

其中:TcompressionLevel(压缩类型),它由如下几个定义:

①、 clNone :不进行数据压缩;

②、 clFastest:进行快速压缩,牺牲压缩效率;

③、 clDefault:进行正常压缩;

④、 clMax: 进行最大化压缩,牺牲速度;

Dest:目的流,用于存放压缩过的数据。

Function TCompressionStream.Write (const Buffer; Count: Longint): Longint;

其中:Buffer:需要压缩的数据;

Count: 需要压缩的数据的字节数;

函数返回写入流的字节数。

压缩类TCompressionStream的数据只能是写入的,如果试图从其内部读取数据,将发生一个"Error "异常。需要压缩的数据通过方法 Write写入流中,在写入的过程中就被压缩,并保存在由构造函数提供的内存流(TmemoryStream)中,同时触发 OnProcess 事件。

3、 解压缩类 TDecompressionStream :和压缩类TcompressionStream 相反,它的数据是只能读出的,如果试图往其内部写数据,将发生一个"Error "异常。它的几个重要方法定义如下:

构造函数:Constructor Create(Source: TStream);

其中:Source 是保存着压缩数据的流;

Function Read(var Buffer; Count: Longint): Longint;

数据读出函数,Buffer: 存数据缓冲区;

Count: 缓冲区的大小;

函数返回读出的字节数。

数据在读出的过程中,数据被解压缩,并触发 OnProcess 事件。

二、 类的使用

通过类TCompressionStream和TdecompressionStream的配合使用,我们可以非常方便地完成数据的压缩和解压,下面就是本人在编写屏幕拷贝程序中的使用例子:

Procedure TClientForm.GetScreen;

Var

SourceDC,DestDC:HDC;

Bhandle:HBITMAP;

BitMap:TBitMap;

BmpStream,Deststream:TMemoryStream;

SourceStream:TCompressionStream;

Count:Integer;

Begin

SourceDC:=CreateDC('display','','',nil);

{得到屏幕的 DC}

DestDC:=CreateCompatibleDC(SourceDC);

{建立临时 DC}

Bhandle:=CreateCompatibleBitmap(SourceDC,Screen.Width, Screen.Height);

本站部分文章来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

    品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

  • 第一批国家重点研发计划公布,旷视科技开启“五年行动”

    第一批国家重点研发计划公布,旷视科技开启“五年行动”

  • 让AI触手可及  Qualcomm携手创通联达推出全新终端侧AI开发套件

    让AI触手可及 Qualcomm携手创通联达推出全新终端侧AI开发套件

  • 长虹新款智能语音空调,告诉你空调也能玩Siri

    长虹新款智能语音空调,告诉你空调也能玩Siri

网友点评网友点评
阅读推荐阅读推荐

据外媒报道,STEER打造了首款完全自动驾驶停车技术,旨在使常规车辆转变为无人驾驶车辆。STEER的首款技术应用是4级自动驾驶及网络安全停车...

近日,美国软性机器抓手制造商 Soft Robotics 宣布,获得 2000 万美元的融资,本轮投资者包括 Scale Venture Partners,Calibrate Ventures...

据外媒报道,加州车管局发布了《2017自动驾驶脱离报告(California Autonomous Vehicle Disengagement Reports)》,其中谈及了脱离的具体...

用人机语音交互,来解决智能家居适老的问题;通过家庭门禁与安防套件、空气净化套件、可燃气体与有害气体监控套件等相互联动,在不同生活情...