Moin Leute,
ich bin auf der Suche, wie ich diesen Schnipsel zum Laufen bekomme:
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;
Ich kann nichts dazu finden. Welche
Unit muss ich dafür einbinden?
Ich arbeite mit Turbo Delphi 2006 Explorer.
Kann mir da jemand helfen?
Stefan