Einzelnen Beitrag anzeigen

Patrick

Registriert seit: 15. Sep 2003
184 Beiträge
 
Delphi 2010 Professional
 
#4

Re: TMemoryStream mit Abbrevia entzippen

  Alt 11. Jan 2006, 10:40
Das kann doch nicht so schwierig sein...

Ich habe doch nur einen gezippten Stream und will die enthaltenen Dateinen entpacken.
Ich könnte den Stream einfach als "irgendwas.zip" speichern und mit folgendem Code entpacken
Delphi-Quellcode:
  ABUnZipper1.OpenArchive('D:\Eigene Dateien\Borland Studio-Projekte\irgendwas.zip');
  ABUnZipper1.BaseDirectory :='D:\Eigene Dateien\Borland Studio-Projekte';
  ABUnZipper1.ExtractFiles( '*.*' );
Jetzt will ich den Stream aber nicht erst auf Platte schreiben um ihn dann wiweder zu laden, das ist hässlich!
Alles was ich brauche ist doch blos eine Funktion/Prozedur, die mir aus dem Stream ein TAbArchive macht, dann kann ich wie gewohnt entpacken.
Delphi-Quellcode:
  ABUnZipper1.ZipArchive:=???
  ABUnZipper1.BaseDirectory :='D:\Eigene Dateien\Borland Studio-Projekte';
  ABUnZipper1.ExtractFiles( '*.*' );
Genieße jede Minute deines Lebens, denn sie wird nicht wieder kommen.
  Mit Zitat antworten Zitat