Moin,
ich nutze Hagens CRC-
Unit um einen CRC-Check in mein Programm einzubauen:
Delphi-Quellcode:
function GetCRC32Check(FileName:String): String;
var
FS: TFileStream;
CRC32: Cardinal;
begin
FS := TFileStream.Create(FileName, fmOpenRead);
try
CRC32 := CRCCalcEx(CRC_32CCITT, FS.Read);
finally
FS.Free;
end;
result:=IntToHex(CRC32, 4);
end;
Das funktioniert auch bestens, nur leider ist der Ergebniswert dieser Funktion völlig anders als die CRC32-Werte, die mir WinRAR anzeigt. Eigentlich dachte ich ein CRC-Check wäre eindeutig, oder mache ich irgendwo etwas falsch?
