function MD5File

最新推荐文章于 2022-07-31 12:43:21 发布

seagull327

最新推荐文章于 2022-07-31 12:43:21 发布

阅读量536

点赞数

分类专栏：字符串文章标签： function file string

本文链接：https://blog.csdn.net/haiou327/article/details/6614373

版权

字符串专栏收录该内容

14 篇文章 0 订阅

订阅专栏

function MD5File(FileName: string): string;
var
  Md5: TIdHashMessageDigest5; //uses IdHashMessageDigest
  FS: TMemoryStream;
begin
  Result := '';
  if FileExists(FileName) then
  begin
    try
      MD5 := TIdHashMessageDigest5.Create;
      FS := TMemoryStream.Create;
      FS.LoadFromFile(FileName); 
      Result := Md5.AsHex(Md5.HashValue(FileName));
    finally
      FreeAndNil(FS);
      FreeAndNil(MD5);
    end;
  end;
end;