Hallo,
Ich muss diesen Thread nochmal auspacken.
Und zwar hab ich das Problem, dass das
DEC 5.1 und 5.2 mir unterschiedliche CRC32-Werte bei gleichem Code liefern.
Benutze ich die CRC_157.pas von Hagen über mir, stimmt der CRC32 wert, nehm ich die CRC.pas ausm aktuellen
DEC 5.2 Part I erhalte ich einen falschen Wert. Kann mir das jemand erklären?
Ich benutze Delphi 2010 Professional.
Delphi-Quellcode:
CRCInitThreadSafe;
function CheckCRC32(const AStream: TStream; TargetCRC32: string;
out FileCRC32: string): Boolean;
var
NumericCRC: Cardinal;
begin
try
NumericCRC := CRCCalcEx(CRC_32CCITT, AStream.Read);
FileCRC32 := IntToHex(NumericCRC, 2);
Result := CompareText(TargetCRC32, FileCRC32) = 0;
except
Result := False;
end;
end;
Wie gesagt, mit der CRC.pas vom
DEC 5.1 kommt der korrekte Wert raus, beim 5.2er nicht
Ich benutzt CRCInitThreadSafe, da ich die Berechnung später über die OTL parallelisieren möchte.