function<\/span> <\/span>MD5<\/span>(<\/span>const<\/span> <\/span>fileName<\/span> <\/span>:<\/span> <\/span>string<\/span>)<\/span> <\/span>:<\/span> <\/span>string<\/span>;<\/span>
<\/span>var<\/span>
<\/span>idmd5<\/span> <\/span>:<\/span> <\/span>TIdHashMessageDigest5<\/span>;<\/span>
<\/span>fs<\/span> <\/span>:<\/span> <\/span>TFileStream<\/span>;<\/span>
<\/span>begin<\/span>
<\/span>idmd5<\/span> <\/span>:=<\/span> <\/span>TIdHashMessageDigest5<\/span>.<\/span>Create<\/span>;<\/span>
<\/span>try<\/span>
<\/span>fs<\/span> <\/span>:=<\/span> <\/span>TFileStream<\/span>.<\/span>Create<\/span>(<\/span>fileName<\/span>,<\/span> <\/span>fmOpenRead<\/span> <\/span>)<\/span> <\/span>;<\/span>
<\/span>try<\/span>
<\/span>Result<\/span> <\/span>:=<\/span> <\/span>idmd5<\/span>.<\/span>HashStreamAsHex<\/span>(<\/span>fs<\/span>)<\/span>;<\/span>
<\/span>finally<\/span>
<\/span>fs<\/span>.<\/span>Free<\/span>;<\/span>
<\/span>end<\/span>;<\/span>
<\/span>finally<\/span>
<\/span>idmd5<\/span>.<\/span>Free<\/span>;<\/span>
<\/span>end<\/span>;<\/span>
<\/span>end<\/span>;<\/span><\/pre><\/td>\n<\/tr><\/table>\n\n");
|