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....
unituntCheckCode; interface functionGetFile_MD5(constiFileName:String):String;//获取文件MD5 functionGetFile_CRC(constiFileName:String):String;//获取文件CRC functionGetFile_SHA1(constiFileName:String):String;//获取文件SHA1 functi...
unit untCRCMD5; interface { 获取文件CRC校验码 } function GetFileCRC(const iFileName: string): String; { 获取字符串CRC校验码 } function GetStringCRC(const Str: string): Cardinal; { 取文件MD5码 } function GetFileMD5(const i...
调用： var s:string; begin s:=SHA1encode('abc'); ShowMessage(s); end; {****************************************************AbinarycompatibleSHA1implementation**writtenbyDaveBarton(davebarton@bigfoot.com)**********************************...