Zitat von
Dax:
class(TInterfacedObject, IDECProgress)
Yeah, thats it!
Wunderbar es funktioniert. Danke Dax! Hier nochmal die zusammenfassung:
1. Eine neue Klasse definieren:
Delphi-Quellcode:
THash_Helper = class (TInterfacedObject,IDECProgress)
procedure Process(const Min,Max,Pos: Int64); stdcall;
end;
in die prozedur Process kommt nur ein Application.processmessages
Dort wo ihr den Hash berechnen wollt kommt hin:
Delphi-Quellcode:
HashHelper1:=THash_Helper.Create;
pack.MD5_Hash:=THash_MD5.CalcStream(data,data.size,TFormat_HEX,HashHelper1);
freeandnil(HashHelper1);
Grüße und danke nochmal an alle!