<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="cache-control" content="max-age=180,private" />
</head>
<card id="discuz_wml" title="CnPack Forum">
<p>#1 cnmd5发现在delphi xe有问题，转向采用自带的MessageDigest_5.pas。<br /><small>MessageDigest_5.pas 在  C:\Program Files\Embarcadero\RAD Studio\8.0\source\soap\wsdlimporter 下面<br />
<br />
uses<br />
  Types,<br />
  MessageDigest_5;<br />
<br />
function MD5Str(AStr:string):string;<br />
var<br />
  MD5: IMD5;<br />
begin<br />
  MD5 := GetMD5;<br />
  MD5.Init;<br />
  MD5.Update(TByteDynArray(RawByteString(AStr)), Length(AStr));<br />
  Result := LowerCase(MD5.AsString);<br />
end;</small><br />
8/18 21:59<br />
mrlong<br /></p>
<p>#1 End<br />
<br />Forum:<a href="index.php?action=forum&amp;fid=14&amp;sid=e9GIBQ">CnVCL 组件包</a>
<br />Thread:<a href="index.php?action=thread&amp;tid=11853&amp;sid=e9GIBQ">cnmd5发现在delphi xe ...</a>
<br />Next Thread:<a href="index.php?action=thread&amp;tid=11848&amp;sid=e9GIBQ">SVN网站是不是改版了？ ...</a>
</p>
<p align="center"><br /><a href="index.php?sid=e9GIBQ">Home</a><br />
<a href="index.php?action=login&amp;sid=">Login</a><br /><br />
<small>Powered by Discuz!</small></p>
</card>
</wml>