delphi GetFileHashMD5获取文件 HashMD5值

本文整理自网络，侵删。

 
单元文件 System.Hash

function GetFileHashMD5(FileName: String): String;
var
HashMD5: THashMD5;
begin
  HashMD5 := THashMD5.Create;
  BufLen := 16 * 1024;
  Buffer := AllocMem(BufLen);
  try
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      while Stream.Position < Stream.Size do
      begin
        Readed := Stream.Read(Buffer^, BufLen);
        if Readed > 0 then
        begin
          HashMD5.update(Buffer^, Readed);
        end;
      end;
    finally
      Stream.Free;
    end;
  finally
    FreeMem(Buffer)
  end;

  result := HashMD5.HashAsString;
end;
 

相关阅读 >>

python4Delphi 示例应用程序在 Delphi 应用程序中运行简单的 python 脚本

Delphi console程序中一种定时方法

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 在运行时改变控件的大小

Delphi sqlite vacuum 压缩数据库体积

Delphi 提取标签之间的字符串（重复标签）

Delphi shellexecute最简单的结束进程代码

Delphi 内存加载并运行exe程序

Delphi textfile utf8编码读写

Delphi 判断文件路径，不存在则建立

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

转载请注明出处：木庄网络博客 » delphi GetFileHashMD5获取文件 HashMD5值