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 读取文件获取指定字符串

Delphi 让程序自己更新本程序

Delphi net.httpclient用最精简的代码获取网页数据

Delphi webbrowser1提取网页中的所有链接、点击第 n 个链接

Delphi api读写ini文件

Delphi idhttp造成程序假死的解决办法

Delphi 2009 中 string 与 char 的改变

Delphi edit控制字居中,居左,居右

Delphi winsock远程唤醒计算机的函数

dbgrid的cellclick事件,单击当前行记录的那一行时,不发生

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



打赏

取消

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

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

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

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

评论

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

    正在狠努力加载,请稍候...