CnPack Forum

#1 cnmd5发现在delphi xe有问题，转向采用自带的MessageDigest_5.pas。
MessageDigest_5.pas 在 C:\Program Files\Embarcadero\RAD Studio\8.0\source\soap\wsdlimporter 下面

uses
Types,
MessageDigest_5;

function MD5Str(AStr:string):string;
var
MD5: IMD5;
begin
MD5 := GetMD5;
MD5.Init;
MD5.Update(TByteDynArray(RawByteString(AStr)), Length(AStr));
Result := LowerCase(MD5.AsString);
end;
8/18 21:59
mrlong

#1 End

Forum:CnVCL 组件包
Thread:cnmd5发现在delphi xe ...
Next Thread:SVN网站是不是改版了？ ...

Home
Login

Powered by Discuz!