Verzeichnisse/Dateien in einer Datei speichern

[Komoluna]

Liebes Forum

1. Gibt es eigentlich einen Stream mit dem man Verzeichnise(inkl. Unterverzeichnisse und Dateien) Laden bzw. abspeichern kann?
2. Kann man Variablen(z.b. Streams in einer Datei abspeichern) z.b.

Code: Alles auswählen

 
type
...
 TMyFile= record
   Files:array of TMemoryStream;
 end;
 
var
 MyFile: TMyFile;
 
Procedure TForm1.Button1Click(Sender: TObject);
var 
  i:integer;
begin
   for i:=0 to length(MyFile.Files) do
   MyFile.Files[i].Savetofile(...);
end;
 

oder so ähnlich

Also so ähnlich wie ein *.zip *.rar oder *.tar archiv
allerdings geht es mir nicht um Kompremierung sondern darum
ein Verzeichnis mit Dateien in einer Datei abzuspeichern
Bitte um Hilfestellung

Komoluna

[Komoluna]

<Nachtrag>:
Alle Archiv-Packages die ich gefunden habe konnte ich nicht Installieren.
(Fehlermeldung...)
</Nachtrag >

[af0815]

Speichern einzelner Streams prinzipiell ja. Nur wie willst du das wieder zerlegen, es fehlen dir dann die Metainformationen zu den Dateien wie Name, Rechte.
Vom Speichern ganzer Verzeichnisse in einem Stream ist mir nichts bekannt.

Die Idee mit den Archivpakages ist also nicht so schlecht, nur zeigt die Glaskugel derzeit nichts an. Ich sehe keine Fehlermeldung in ihr.

[Antrepolit]

<Nachtrag>:
Alle Archiv-Packages die ich gefunden habe konnte ich nicht Installieren.
(Fehlermeldung...)
</Nachtrag >

Was muss man da groß installieren? Die Unit "zipper" ist vorinstalliert und erstellt zuverlässig ZIP-Archive mit Dateien und Verzeichnissen.

[Euklid]

Was muss man da groß installieren? Die Unit "zipper" ist vorinstalliert und erstellt zuverlässig ZIP-Archive mit Dateien und Verzeichnissen.

Cool - und die braucht kein externes Programm, das die Programmierung durchführt?

[Antrepolit]

Cool - und die braucht kein externes Programm, das die Programmierung durchführt?

Ich denke, du hast dich im Wort vergriffen und meintest 'die Komprimierung durchführt'. Der gesamte Quelltext ist einsehbar in Lazarus. Die braucht, soweit ich das sehe, nichts externes.

[Euklid]

Danke!