unrar.dll CRC32 Wert auslesen

[TheGame1492]

Ahoi,

Ich benutze die unrar.dll + dem Beispiel von der RarLab Website (http://rarlab.com/rar_add.htm)

Wenn ich mit WinRar eine .rar-File öffne, kann man den entpackten CRC32-Wert der jeweils gepackten Datei ablesen.

Nun meine Frage: Wie kann ich selber diesen Wert mithilfe der unrar.dll auslesen?

Man kann mit hilfe der unrar.pas den Header auslesen, dort ist auch ein "FileCrc" angegeben, dieser Wert stimmt aber nicht mit dem entpackten Wert überein...

Code:

type
  RARHeaderData = packed record
    ArcName: packed array[0..Pred(260)] of Char;
    FileName: packed array[0..Pred(260)] of Char;
    Flags: UINT;
    PackSize: UINT;
    UnpSize: UINT;
    HostOS: UINT;
 -->>>   FileCRC: UINT;
    FileTime: UINT;
    UnpVer: UINT;
    Method: UINT;
    FileAttr: UINT;
    CmtBuf: PChar;
    CmtBufSize: UINT;
    CmtSize: UINT;
    CmtState: UINT;
  end;

Den UINT-Wert "wandel" ich denn einfach in einen Hex-Wert um, ist das vllt der Fehler?

Code:

hex := IntToHex( HEaderData.FileCRC, 8 );

Ich hab auch schon die TDFUnRar-Komponente ausprobiert, dort ist der gleiche Fehler...

[lbccaleb]

Ich glaube du bist im falschen Record.
Ich hab mal ebend den Source für die Delphi Komponente überflogen, und das in der rar.pas gefunden:

Delphi-Quellcode:

type
  TRARFileItem = record
    FileName:AnsiString;
    FileNameW:WideString;
    CompressedSize:cardinal;
    UnCompressedSize:cardinal;
    HostOS:String;
    CRC32:String;
    Attributes:Cardinal;
    Comment:AnsiString;
    Time:tDateTime;
    CompressionStrength:cardinal;
    ArchiverVersion:cardinal;
    Encrypted:boolean;
  end;

Hier ist der CRC Wert als String angegeben, was deutlich einleuchtender ist, als als Uint.

Und die Komponente liest den CRC Wert so aus:

Delphi-Quellcode:

    CRC32:=Format('%x',[hdrData.FileCRC]);