delphi原生方法取得文件的MD5
Delphi自带了System.Hash单元，提供了相关的方法，处理Hash相关内容，经过几个版本，已经成熟。利用他提供的功能，我们很容易实现取得文件的MD5.
if FileExists(lpath) then
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile(lpath);
md5 := THashMD5.Create;
md5.Update(ms.Memory, ms.Size);
Result := md5.HashAsString;
finally
ms.DisposeOf;
end;
end;
是不是很简单。原生支持，以后维护也方便。
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043124914169312 seconds