delphi GetFileHashMD5


本文整理自网络,侵删。

 
单元:System.Hash

function GetFileHashMD5(FileName: String): String;
var
  HashMD5: THashMD5;
  Stream: TStream;
  Readed: Integer;
  Buffer: PByte;
  BufLen: Integer;
begin
  HashMD5 := THashMD5.Create;
  BufLen := 16 * 1024;
  Buffer := AllocMem(BufLen);
  try
    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      while Stream.Position < Stream.Size do
      begin
        Readed := Stream.Read(Buffer^, BufLen);
        if Readed > 0 then
        begin
          HashMD5.update(Buffer^, Readed);
        end;
      end;
    finally
      Stream.Free;
    end;
  finally
    FreeMem(Buffer)
  end;

  result := HashMD5.HashAsString;
end;

相关阅读 >>

Delphi xe程序的主题(theme)设置

Delphi console程序中一种定时方法

Delphi app检测智能手机震动

Delphi根据网络链接截取域名

Delphi的万能数据库操作

Delphi xe7中stringgrid组件的使用

Delphi 检测是否包含字符

Delphi 10 下提示sharedactivitycontext错误的解决方法

Delphi copyrect实现的几个图片的转换效果

Delphi读取文本(一行一行读入)

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...