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 xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

Delphi fmx 获取系统版本 android ios通用

Delphi getwindowhandle

Delphi 实现文件防删除非亢占(非hook)

Delphi强制刷新注册表方法

Delphi的枚举类型

Delphi 如何读取文件头 判断文件类型

Delphi 如何获取窗口的图标

Delphi api实现抓屏

Delphi shellexecute 打开文件夹

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

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