用DELPHI实现文件加密压缩用DELPHI实现文件加密压缩 作者: e梦缘 (wnhoo) Mail:wnhoo@163.com 风花雪月 e梦情缘  点击下载此详细说明文件概述： 在这篇文件中，讲述对单个文件的数据加密、数据压缩、自解压的实现。同样，也可以实现对多个文件或文件夹的压缩，只要稍加修改便可实现。 关键字：加密压缩、Zlib、流、资源文件 引 言： 在日常中，我们一定使用过WINZIP、WINRAR这样的出名的压缩软件，就是我们开发软件过程中不免要遇到数据加密、数据压缩的问题！本文中就这一技术问题展开探讨,同时感谢各位网友的技巧,在我每次面对问题要解决的时候,是你们辛苦地摸索出来的技巧总是让我豁然开朗,问题迎刃而解。本篇文章主要是运用DELPH的强大的流处理方面的技巧来实现的数据加密压缩，并用于实际的软件程序开发中，将我个人的心得、开发经验写出来与大家分享。 1、 系统功能 1）、数据压缩 使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。 2）、数据加密压缩 通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现方法 3）、双击压缩文件自动关联解压 通过更改注册表的实现扩展名与程序文件的关联，主要采用Tregistry；并且，API函数SHChangeNotify实现注册效果的立即呈现。 4）、可生成自解压文件 自解压的文件实现数据压缩1）与数据加密压缩2）的自动解压；并且，通过资源文件的使用实现可执行的自解压文件与数据文件的合并，来完成数据的自解压实现。 2、 系统实现 2.1、工作原理  2.2、关键技术的讲述 （一）ZLIB 1）、基类 TCustomZlibStream：是类TCompressionStream和TDecompressionStream 类的基类，它主要有一个属性： OnProgress，在类进行压缩或解压缩的过程中会发生这个的事件 。 格式：Procedure OnProgress (Sender: TObject); dynamic; 2）、压缩类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 事件。 （二）流 在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。 TStream类中定义的属性如下： 1）、Size:此属性以字节返回流中数据大小。 2）、Position:此属性控制流中存取指针的位置。 Tstream中定义的虚方法有四个： 1）、Read:此方法实现将数据从流中读出，返回值为实际读出的字节数，它可以小于或等于指定的值。 2）、Write:此方法实现将数据写入流中，返回值为实际写入流中的字节数。 3）、Seek:此方法实现流中读取指针的移动，返回值为移动后指针的位置。 函数原形为：Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract; 参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下： soFromBeginning:Offset为指针距离数据开始的位置。此时Offset必须大于或者等于零。 soFromCurrent:Offset为移动后指针与当前指针的相对位置。 soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。 4）、Setsize:此方法实现改变数据的大小。 另外，TStream类中还定义了几个静态方法： 1）、ReadBuffer:此方法的作用是从流中当前位置读取数据，跟上面的Read相同。 注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。 2）、WriteBuffer:此方法的作用是在当前位置向流写入数据，跟上面的Write相同。 上一篇：Delphi的接口陷阱 下一篇：VCL中网格控件原理分析 更多相关文章
|
推荐文章
精彩文章
|
