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 trimleft 删除字符串左边的空格

Delphi 日期相减 比较大小 过期时间函数

Delphi tms web core 实现下载

Delphi 制作一个内网传播的程序

Delphi使用tclientdataset时不携带midas.dll的方法

Delphi 让程序支持外来文件拖放的单元文件

dekphi qq自动发消息源码

Delphi 实现程序放放多个进程条

Delphi 文件转换base64

Delphi 远程屏幕抓取的源代码

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

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