schau mal
function CRCCalcEx(CRCType: TCRCType; ReadMethod: TReadMethod; Size: Cardinal{$IFDEF VER_D4H} = $FFFFFFFF{$ENDIF}): Cardinal;
ist so definiert. TReadMethod ist eine Deklaration der
VCL TStreams.
Delphi-Quellcode:
function CRC32File(const AFileName: String): Cardinal;
var
S: TStream;
begin
S := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
try
Result := CRCCalcEx(CRC_32CCITT, S.ReadBuffer);
finally
S.Free;
end;
end;
dies müsste funktionieren, ich habs eben eingetippt und somit nicht getestet. Beachte das die CRC Funktionen nur Daten bis 2^32 Bytes Länge verarbeiten können. Mehr macht auch nicht Sinn da es sich um 32Bit CRCs handelt.
Gruß Hagen