Einzelnen Beitrag anzeigen

Benutzerbild von TheGame1492
TheGame1492

Registriert seit: 31. Jul 2004
Ort: Berlin
84 Beiträge
 
Delphi XE2 Professional
 
#1

unrar.dll CRC32 Wert auslesen

  Alt 2. Jun 2013, 18:01
Delphi-Version: 7
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...
It's Time to Play TheGame
  Mit Zitat antworten Zitat