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 7 简单语法

Delphi压缩图片代码

Delphi中quotedstr介绍及使用

Delphi escape/unescape编码

Delphi实现票据精确打印

Delphi idhttp最简洁的修改和取得cookie例子

Delphi 使用并行库中的ttask

Delphi idhttp1下载文件防止假死

Delphi xe10.1 andriod app中文名称

Delphi 编写键盘记录器

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

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