CRC32 einer Datei ermitteln

[MacGuyver]

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

[rollstuhlfahrer]

Ich denke mal nicht, dass Delphi eine Unit dafür dabei hat. Du wirst schon eine aus dem Netz nehmen müssen. Vielleicht kannst du damit was anfangen: http://www.efg2.com/Lab/Mathematics/CRC.htm

Bernhard

[alfold]

Schau mal hier da findest du eine CRC.Pas die Dir evtl weiterhilft

http://www.michael-puff.de/Programmierung/Delphi/DEC/

Gruss alfold

[himitsu]

Ansonsten gibt es auch noch einige CRC-Routinen in der DP und sogar in der CL zu finden.

[MacGuyver]

Danke für die Antworten.

Die Links werde ich mir mal anschauen.

Vom Prinzip her müsste ich den Codeschnipsel doch benutzen können. Wieso wird so ein Schnipsel eingestellt, wenn man ihn nicht compilieren kann?

[rollstuhlfahrer]

Das kommt ganz auf die Quelle an, wo du den Schnipsel her hast. Ich kann mir gar nicht vorstellen, dass der Schnipsel ganz alleine ohne Anforderungen im Netz steht.

ADD: Ich hab' ihn: http://www.delphipraxis.net/376633-post3.html
In dem Thread geht es um das DEC in der Version 5, welches wohl höchstwahrscheinlich vorausgesetzt wird.

Bernhard

PS: Ob du den Schnipsel verwenden kannst, hängt von den Definitionen deiner CRC-Berechnungsroutinen ab.