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;
 

相关阅读 >>

Delphi中动态加载treeview信息

Delphi让文本框接受文件拖放

Delphi 逐个分解后字符串加载到stringgrid1

Delphi简单加密解密

Delphi如何自动重启程序

Delphi 杨辉三角

Delphi 最简单的ttcpserver与ttcpclient通信实例

Delphi 密码框写完后按enter直接登录

Delphi 打开"我的电脑"等特殊文件夹

Delphi stringtowidestring widestringtostring

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

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