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 json字符串转义

Delphi 保存导出或加载资源文件

Delphi mediaplayer循环播放mp3所有音乐文件问题？

Delphi 的按位运算详解

Delphi 10.3.x与android 10兼容性的问题

Delphi 实现文件上传下载

Delphi中关键字inherited

Delphi tclientdataset用法详解

Delphi xe5 给edit增加自定义按钮

Delphi 大小写字符串转换

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

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