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;

是不是很简单。原生支持，以后维护也方便。
 

相关阅读 >>

Delphi xe5 unicodestring的由来

Delphi access技巧集

aes.pas 和 elaes.pas

Delphi实现百度地图经纬度与地址互转

Delphi汉字与多字节编码的转换

Delphi获得webbrowser中的html文本

Delphi获取网卡mac地址的两种方法

Delphi分割字符串的函数--extractstrings

Delphi 获取局域网内的机器名

Delphi ipnumberipv4

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi原生方法取得文件的MD5