RSS订阅 | 匿名投稿
您的位置:网站首页 > 加密 > 正文

Delphi原生方法取得文件的MD5

作者:admin 来源: 日期:2018/2/11 13:10:31 人气: 标签:

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;

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料