delphi – 文件MD5校验和

发布时间：2020-12-15 09:44:13 所属栏目：大数据来源：网络整理

导读：在 this question中提到了wcrypt2. 我需要的只是计算文件的MD5.如果我可以计算它而不必保存它将是完美的,因为它是以流格式下载的文件. 我想有最直接的方式来做到这一点. 谢谢！解决方法这是Indy 10的工作代码： function MD5File(const FileName: string):

在 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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!