delphi7 超大文件hash md5

在 Delphi 7 中计算超大文件的 MD5 Hash 值，可以使用 TIdHashMessageDigest5 类来实现。以下是一个示例代码：

uses
  IdHashMessageDigest;

function CalculateMD5Hash(const AFileName: string): string;
const
  BufferSize = 65536; // 64K
var
  FileStream: TFileStream;
  HashMessageDigest5: TIdHashMessageDigest5;
  Buffer: array[0..BufferSize-1] of Byte;
  BytesRead: Integer;
begin
  Result := '';
  FileStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
  try
    HashMessageDigest5 := TIdHashMessageDigest5.Create;
    try
      HashMessageDigest5.Reset;
      repeat
        BytesRead := FileStream.Read(Buffer, BufferSize);
        HashMessageDigest5.Update(Buffer, BytesRead);
      until BytesRead < BufferSize;
      Result := HashMessageDigest5.HashAsString;
    finally
      HashMessageDigest5.Free;
    end;
  finally
    FileStream.Free;
  end;
end;

这个函数会打开指定文件，分段读取文件内容，并计算出 MD5 Hash 值。由于每次读取的数据量不会太大，因此可以处理超大文件。