Delphi 2010 获取文件MD5

最新推荐文章于 2024-05-22 08:30:28 发布

pnzebin

最新推荐文章于 2024-05-22 08:30:28 发布

阅读量360

点赞数

文章标签： delphi 哈希

本文链接：https://blog.csdn.net/xiaobin_zb/article/details/132335256

版权

Delphi 计算文件的MD5哈希值

uses StdCtrls, IdHashMessageDigest, IdGlobal, IdHash;


function CalculateFileMD5(const FileName: string): string;
var
  FileStream: TFileStream;
  MD5Hash: TIdHashMessageDigest5;
  MD5Digest: TIdBytes;
  i: Integer;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  MD5Hash := TIdHashMessageDigest5.Create;

  try
    MD5Digest := MD5Hash.HashStream(FileStream);
    Result := '';

    for i := 0 to Length(MD5Digest) - 1 do
      Result := Result + IntToHex(MD5Digest[i], 2);

  finally
    MD5Hash.Free;
    FileStream.Free;
  end;
end;