本文整理自网络,侵删。
单元: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 webbrowser中模拟连接点击(非鼠标模拟)
Delphi提示‘error loading midas.dll’的原因及解决方案
Delphi clientdataset 与fdmemtable 创建 字段与追加记录
更多相关阅读请进入《Delphi》频道 >>