Dateien packen in Multivolumes

[Papaschlumpf73]

Naja, sowas wird wohl auch kaum noch jemand entwickeln. Früher musste man die Dateien stückeln, weil auf die Floppys eben nicht so viel drauf passte. Heute wird fast alles im Web gespeichert, wo der Speicherplatz quasi grenzenlos ist.

[DelTurbo]

Zitat von Papaschlumpf73:

Naja, sowas wird wohl auch kaum noch jemand entwickeln. Früher musste man die Dateien stückeln, weil auf die Floppys eben nicht so viel drauf passte. Heute wird fast alles im Web gespeichert, wo der Speicherplatz quasi grenzenlos ist.

Da hast du im grunde recht. Aber die Dateien die man lädt werden immer immer grösser. Lädt man z.b. 50GB an einem Stück und du hast einen Fehler (meistens bei 99%) dann darf man nochmal von vorne anfangen. Machst du mehrere kleine Dateien brauchst du nur das Stück laden was z.b. durch Zwangstrennung oder sonst was im Eimer ist.

[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]