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 检测进程是否存在

delhi 获取进程图片

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

Delphi 个人所得税计算函数

Delphi 提取网页源文件纯文本函数

Delphi 删除字符串中指定字符

Delphi xe5实现按android的back键无法退出关闭程序

Delphi 的内存操作函数(4): 清空与填充内存

Delphi 几个和当前路径相关的新函数

Delphi richedit的实现msn / qq 中的动画表情

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

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