Dateien zusammenfügen und später wieder Zerlegen

[hathor]

Wird nicht sowieso alles komprimiert übertragen?
https://en.wikipedia.org/wiki/HTTP_compression
http://www.webreference.com/internet...ion/index.html
https://chrome.google.com/webstore/d...dhmmmpeeaebmep
.
https://de.wikipedia.org/wiki/Zopfli
https://github.com/google/zopfli

[HolgerX]

Hmm..

Wieso nutzt Ihr nicht die bei Delphi mitgelieferte ZLIB.pas?

In Kombination mit

SciZipFile.pas

http://cc.embarcadero.com/item/21894
http://www.snehovapohotovost.cz/authorsmore.php?id=1058

Können ganz einfach normale Zip-Archive erstellt werden, welche mit Winzip und co geöffnet werden können.

Alles ohne externe DLL, komplett in der EXE.

Bei

http://zlib.net/

gibt es auch gleich ein Update.

[muhael]

Hey danke für die Vielen vorschläge

Hab mich für die Tar Variante entschieden scheint mir die simpelste zu sein und die die bisher am besten funktioniert!

DANKE

[muhael]

Jetzt hab ich zur LibTar nochmal ne Frage...
Habe aus den kleinen dateien eine .Tar datei gemacht.
nun läd mein Installer/updater diese Datei in einen tmp ordner mit einer install/update.txt datei.
im weiteren Verlauf geht mein prog die txt datei durch in der steht Welche Datei in der Tar Extrahiert werden soll und wohin sie muss:
in der datei steht das so da "Extract;Hintergrund.bmp;data/gfx/Hintergrund.bmp
mein prog liest die datei und findet Extract heißt für das prog ich geh in die Extract routine.. dort soll es nach der "Hintergrund.bmp" datei in der tar suchen und diese dann an den gegeben Ort Extrahieren.
Meine Frage ist jetzt wie geht das am besten?
Ich werde aus der Demo von LibTar nicht schlau die verwenden eine Listview und bei mir soll es ja im hintergrund passieren ....

[samso]

Der wahlfreie Zugriff auf einzelne Dateien ist bei tar nicht möglich. Deshalb muss das (Band-)Archiv immer wieder vom Anfang durchgespult werden, bis man bei der richtigen Datei angekommen ist.

Grob etwa so:

Delphi-Quellcode:

function ExtractFileFromTar(const Name, Zielpfad: String);
begin
  tar.reset;
  Found := False;
  while not Found and tar.FindNext(DirRec) do
  begin
    if SameText(String(DirRec.Name),Name) then
      Found := True;
  end;
  if Found then
    tar.ReadFile(Zielpfad + Name);
end

Einige Feinheit müssen noch erledigt werden: Tar-Instanz erzeugen, Fehlerbehandlung, falls Pfade in dem tar-Archive vorkommen muss das berücksichtigt werden...