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;

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

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678