Yo,
danke noch mal für Eure Hilfe. Das Programm ist so gut wie
fertig. Ich habe das nun so gelöst:
1- Suche alle Dateien im ausgewählten Ornder
2- Wenn Summe der Dateien > 4GB, dann brich ab
3- Erstelle spezifische Datei neben gewählten Ordner (.PACKAGE_DIRECTORY)
4- Schreibe TPackageHeader in spezifische Datei (siehe unten)
5- Checke aktuelle Datei und trage Infos in TFileheader ein (siehe unten)
6- Hänge aktuelle Datei an spezifische Datei an
7- Suche nächste Datei. gehe zu Punkt 4).
Delphi-Quellcode:
TFileheader = record
FileName : String[255];
Anzahl_Bytes : INT64;
end;
TPackageHeader = record
FileBytes : INT64; // Summe aller Bytes von allen (!) Dateien
Amount_of_Files : integer;
end;
Eine solche (.PACKAGE_DIRECTORY) ist also folgendermaßen aufgebaut.
Code:
************************
*----TPackageHeader----*
*----TFileHeader #1----*
*-------Datei #1-------*
*----TFileHeader #2----*
*-------Datei #2-------*
*---------...----------*
*---------...----------*
*----TFileHeader #n----*
*-------Datei #n-------*
************************
Süße Graphik.