Ich denke, Dein CRC32 ist nicht Standard wg 'State := not ByteSwap(State)' bzw. dem
ASM code in ThxCRC32.Final. Ich kann es aber nicht testen, da ich nicht verstehe, wie ich ThxCRC32 fehlerfrei benutzen soll:
Die ThxCRC32.CalcFile öffnet das File, kommt aber nicht in die While ReadFile Schleife. OK, ich habe nur D10 Kommandozeilen-Compiler unter Win98 (kann also nicht debuggen, und unter D6 läuft's nicht). Aber selbst das folgende Testprogramm liefert immer 0.
Delphi-Quellcode:
{$apptype console}
program cc;
uses
sysutils,fhash;
const
abc:
array[0..2]
of char = '
abc';
var
hash: LongWord;
crc: ThxCRC32;
begin
CRC.InitT;
Hash := CRC.Calc(pointer(@abc), 3);
writeln(IntToHex(hash,8));
end.
Gruß Gammatester