zur Berechnung von MD5 hashsummen (von grosen Files) wird eine thread classe verwendet
Delphi-Quellcode:
type
TMD5Thread = class(TThread)
public
constructor Create(ThreadPriority : TThreadPriority);
function GetMD5OfFile(PathToFile : widestring): TMD5Digest;
function GetMD5DigestToStr(MD5summ : TMD5Digest): string;
end; // TMD5Thread
Delphi-Quellcode:
function TMD5Thread.GetMD5OfFile(PathToFile : widestring): TMD5Digest;
begin
result := MD5File(PathToFile);
end;
function TMD5Thread.GetMD5DigestToStr(MD5Summ : TMD5Digest): string;
begin
result := MD5DigestToStr(MD5Summ);
end;
constructor TMD5Thread.Create(ThreadPriority : TThreadPriority);
begin
inherited Create(false);
Priority := ThreadPriority;
end;
Leider friert das ganze Programm beim berechnen ein...
Ist es vieleicht ein Thread Problem....!?