Delphi IdHashMessageDigest 获取文件MD5

本文整理自网络，侵删。

 
uses IdHashMessageDigest;

function MD5(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;
 

相关阅读 >>

Delphi unigui unistringgrid1 清空

Delphi memo1删除前n行

Delphi: ttreeview 中禁止双击事件展开或关闭节点

Delphi 动态调整打印机纸张大小

Delphi开发ie右键菜单扩展

Delphi 利用tmemorystream对象存取缓存

Delphi经常用到的公共代码(tools.pas)

Delphi 一行关键代码阻止360云查杀

Delphi 去字符串长度函数 strlen,length

Delphi 将字符串转换成 utf8 编码的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi IdHashMessageDigest 获取文件MD5