delphi – 文件MD5校验和

在 this question中提到了wcrypt2.

我需要的只是计算文件的MD5.如果我可以计算它而不必保存它将是完美的,因为它是以流格式下载的文件.

我想有最直接的方式来做到这一点.

谢谢！

解决方法

这是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;

问候,OscaR1