delphi - 文件 MD5 校验和

Question

在 this question提到了wcrypt2。

我需要的只是计算文件的MD5。如果我可以计算它而不需要保存它那就完美了，因为它是流格式的下载文件。

我希望有最直接的方法来做到这一点。

谢谢!

Answer 1

这是 Indy 10 的工作代码:

function MD5File(const FileName: string): string;
var
  IdMD5: TIdHashMessageDigest5;
  FS: TFileStream;
begin
 IdMD5 := TIdHashMessageDigest5.Create;
 FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
 try
   Result := IdMD5.HashStreamAsHex(FS)
 finally
   FS.Free;
   IdMD5.Free;
 end;
end;

问候，奥斯卡R1