Dateien packen in Multivolumes

[himitsu]

7-Zip ist nun teilweise im Windows/Explorer integriert ... vielleicht kann man das via API ansprechen.


Ich hatte mal versucht sowas wie 7-Zip und Git als *.OBJ zu kompilieren (später vielleicht auch noch .O für Win64 oder Android), damit es in eine PAS gekackt werden kann (siehe LZW, RegEx, PNG oder JPeg, im Delphi),
aber war leider erstmal gescheitert.

[DelTurbo]

Achso,
hatte ich im eingangs Post vergessen. Das muss nix sein was mit irgendwas Kompatible ist. Das kann ein total anderes Format sein. Wichtig ist halt nur das man es auf beiden Systemen übersetzen kann und man den Wechsel auf ein neues Volume mit bekommt.

[KodeZwerg]

Da Du ja etwas für Delphi hast fehlt nur noch etwas für FreePascal und da kann ich Dir PeaZip empfehlen.
Das kann alles was andere Archiv-Programme auch können, Quelltext liegt für FreePascal/Lazarus vor.
Meine generelle Empfehlung wäre von CodeTyphoon weg und rüber nach Lazarus.
Per IfDefs kannst Du ja dann deine verschiedenen Zweige (Delphi/Lazarus) gehen.

Delphi-Quellcode:

{$IF Defined(DCC) or Defined(VER210) or Defined(VER200) or Defined(VER190) or Defined(VER185) or Defined(VER180) or Defined(VER170) or Defined(VER160) or Defined(VER150) or Defined(VER140) or Defined(VER130) or Defined(VER120) or Defined(VER100) or Defined(VER90) or Defined(VER80)}
  {$DEFINE Delphi} { Delphi }
{$IFEND}

{$IF Defined(DELPHI) and Declared(CompilerVersion) and (CompilerVersion >= 25)}
  {$LEGACYIFEND ON}
{$IFEND}

{$IF Defined(FPC)}
  {$DEFINE Lazarus} { Lazarus and Free Pascal }
{$IFEND}

{$IF Defined(DELPHI) and Declared(CompilerVersion) and (CompilerVersion >= 23)}
  {$DEFINE NameSpace} { Delphis NameSpace feature (eg Winapi.Windows instead of Windows) }
{$IFEND}

{$IF Defined(DELPHI) and Declared(CompilerVersion) and (CompilerVersion >= 20)}
  {$DEFINE UniCode} { Delphis UniCode support }
{$IFEND}

{$IF Defined(WIN32) or Defined(WIN64) or Defined(MSWindows)}
  {$DEFINE Windows} { We are on Windows }
{$IFEND Windows}

{$IF Defined(FPC) and Declared(FPC_VERSION) and (FPC_VERSION >= 3)}
  {$DEFINE UniCode} { FreePascal UniCode support }
{$IFEND}

Viel spaß!

[DelTurbo]

Hi,
ich danke dir. Ich werde mir das gleich mal ansehen.

[Rückmeldung]
Danke, sowas habe ich gesucht aber echt nicht gefunden.
[/Rückmeldung]