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;

finally

Stream.Free;

end;

finally

FreeMem(Buffer)

end;

result := HashMD5.HashAsString;

end;

推荐分享