Delphi-Quellcode:
uses
WinApi.Windows, IdHashMessageDigest, IdHash;
//returns MD5 hash for a file, von Zarko Gajic
function MD5(
const fileName :
string) :
string;
var
idmd5 : TIdHashMessageDigest5;
fs : TFileStream;
hash : T4x4LongWordRecord;
begin
idmd5 := TIdHashMessageDigest5.Create;
fs := TFileStream.Create(fileName, fmOpenRead
OR fmShareDenyWrite) ;
try
result := idmd5.AsHex(idmd5.HashValue(fs)) ;
finally
fs.Free;
idmd5.Free;
end;
end;
Statt TIdHashMessageDigest5 würde ich dann aber aber System.Hash.THashMD5 nutzen.
Ist angenehmer zu verwenden und gerade kurz getestet auch schneller.
Code:
uses
System.Hash;
begin
THashMD5.GetHashStringFromFile( 'C:\Test.txt');
end;