std.rar — RAR5-Archive lesen

std.rar liest RAR5-Archive (Signatur Rar!\x1A\x07\x01\x00). Es unterstützt ausschließlich unkomprimierte Einträge (method=0 / stored) — komprimierte Einträge werden beim Öffnen übersprungen, da der RAR-Kompressionsalgorithmus proprietär ist und keine offene Spezifikation existiert.

→ Standard Library · std.zip · std.tar

Kein Writer: Das Erstellen von RAR-Archiven erfordert eine RARLAB-Lizenz. std.rar ist daher ein reines Lese-Modul. Für eigene Archive ZIP oder TAR verwenden.

RAR4 nicht unterstützt: Nur RAR5. RAR4-Archive haben eine andere Signatur (Rar!\x1A\x07\x00) und werden von RarOpen abgelehnt.

import std.rar;
import std.alloc;
import std.io;

fn RarInhaltLesen(pfad: pchar): void {
    var r: int64 := RarOpen(pfad as int64);
    if r == 0 then {
        PrintLn("Kein gültiges RAR5-Archiv"c);
        return;
    }

    var n: int64 := RarCount(r);
    Print("Stored-Einträge: "c); PrintLn(IntToStr(n)c);

    var i: int64 := 0;
    while i < n do {
        Print(RarName(r, i) as pchar);
        Print("  "c);
        PrintLn(IntToStr(RarSize(r, i))c);
        i := i + 1;
    }

    RarClose(r);
}

fn RarDateiExtrahieren(pfad: pchar, name: pchar): void {
    var r: int64 := RarOpen(pfad as int64);
    if r == 0 then { return; }

    var idx: int64 := RarFind(r, name as int64);
    if idx < 0 then {
        PrintLn("Datei nicht gefunden oder komprimiert"c);
        RarClose(r);
        return;
    }

    var sz: int64  := RarSize(r, idx);
    var buf: int64 := alloc(sz + 1);
    var written: int64 := RarRead(r, idx, buf, sz);
    if written >= 0 then {
        poke8(buf + written, 0);
        PrintLn(buf as pchar);
    }
    free(buf, sz + 1);

    RarClose(r);
}

Komprimierte Einträge: RarOpen überspringt alle Einträge mit method > 0 still und ohne Fehlermeldung. RarCount und RarFind sehen diese Einträge nicht. Wenn ein Archiv ausschließlich komprimierte Dateien enthält, gibt RarCount 0 zurück — kein Fehler, aber keine Daten.

Verzeichnisse: Einträge mit gesetztem FHD_DIRECTORY-Flag (Bit 0 in fileFlags) werden übersprungen.

RAR erstellen: Nicht möglich — ZIP oder TAR verwenden:

// Statt RAR → ZIP:
import std.zip;
var w: int64 := ZipWriterNew();
ZipWriterAdd(w, "datei.txt"c as int64, data, dataLen);
ZipWriterSave(w, "ausgabe.zip"c as int64);
ZipWriterFree(w);

Letzte Aktualisierung: 2026-06-13