CRC32 mit DEC erzeugt stimmt nicht?

[negaH]

CRCCalc(CRC_32CCITT, '123456789', 9) ergibt korrekter Weise $CBF43926.

Delphi-Quellcode:

  FS := TFileStream.Create('c:\test.txt', fmOpenRead);
  try
    WriteLn(IntToHex(CRCCalcEx(CRC_32CCITT, FS.Read), 8));
  finally
    FS.Free;
  end;

ergibt ebenfalls $CBF43926 wenn die Datei wirklich nur 123456789 enthält.

Gruß Hagen

[H4ndy]

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.

[cookie22]

schon mal den source von version 5.1 zu 5.2 auf unterschiede geprüft?

[Assertor]

Hallo H4ndy,

bitte prüfe, ob Du die gefixte Version von 17.12.2008 hast. Diese liegt bei Luckie:
http://www.michael-puff.de/Programmierung/Delphi/DEC/

Diese und ähnliche Zeilen mußt Du (mehrfach) im Source von CRC.pas finden können:
{$IFOPT O-}{$O+}{$DEFINE NoOpt}{$ENDIF} Bis auf diesen Fix für C++ Builder und Source Code Formatierung habe ich nichts (!) im Code von CRC.pas zwischen DEC 5.1 und DEC 5.2 geändert.

Ich habe die 5.2 selbst unter 2009 im Einsatz gehabt und nutze sie nun produktiv mit Delphi 2010. Ich kann o.g. Problem nicht nachvollziehen - die CRCs stimmen. Die Rocksoft Paramter müssen ggf. zwischen DEC 3 und DEC 5.x angepasst werden, aber das ist ja hier nicht der Fall.

Vergleichst Du vielleicht Ansi & Unicode Daten? Dann muß jetzt etwas anderes rauskommen.

Gruß,
Assertor