Daniel注：是一套不错的库，我写的这篇简短的介绍希望对大家有用^_^ ZlibEx 作者： brent sherwood(http://www.base2ti.com/) -------------------------------------------------------- 最新版下载Download -----------...
呵呵，终于做出来了，有一定收获， 在算法上还是花了不少时间， 以前解gzip内容，现在是deflate，少了文件头内容，所以 用以前思路老是碰到"data error"问题。 用的是zLib控件： (http:/...
(* * 单元说明: 文件/流的加密解密方法(For Delphi 6-7) * * * 使用说明: 此文件的代码可以直接编译使用, * 您可以根据需要编写自己的加密/解密代码. * * 声 明: 以下代码属作者原创, 请转载时...
VCLZip压缩解压文件支持winzip，下面给个简单调用的例子，控件在本站可以下载： uses VCLUnZip, VCLZip; function ComPressFile(dstFile,srcFile:string):Boolean; var vclzip:TVCLZip; begin Result:=False; vclzip:=TVCLZip...
软件开发者不免都要遇到压缩数据的问题！经常使用Delphi的朋友都知道，它为我们提供了两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩，但美中不足的是，该...
procedure UnCompressionStream(var ASrcStream:TMemoryStream); //解压缩 var nTmpStream:TDecompressionStream; nDestStream:TMemoryStream; nBuf: array[1..512] of Byte; nSrcCount: integer; begin ASrcStream.Position := 0; nDestStream := TMemory...
介绍 本文章介绍了DelphiXE6实现Base64字符串的解析，首先将Base64字符串转换成TStringStream，然后将TStringStream字符串转换成UTF8. 具体代码 procedureTForm1.Button1Click(Sender:TObject); varf:TFileStream; I...
介绍 本文章介绍了DelphiXE7使用本身的MD5单元进行字符串加密，在delphiXE7安装目录下面有一个MessageDigest_5单元，我本地在下面的路径中 E:\ProgramFiles(x86)\Embarcadero\Studio\15.0\source\soap\wsdlimp...
MessageDigest_5.pas路徑source/Win32/soap/wsdlimporter usesTypes,MessageDigest_5; procedureTForm1.Button1Click(Sender:TObject); var MD5:IMD5; begin MD5:=GetMD5; MD5.Init; MD5.Update (TByteDynArray(RawByteString(Edit1.Text)),Length(Edit1.Te...
unit MD5; interface uses Windows,SysUtils; //自定函数 计算字符串的MD5值 function StrToMD5(str:string):string; //计算字符串的MD5值 function FileToMD5(FilePath:string):string; //计算文件的MD5值 type MD5Count = array[0....