Nur so als Tipp: Wenn du damit überhaupt nicht weiterkommst, kannst du
auch meine "Zip Package"-Klassen verwenden. Die sind in RB geschrieben
und lassen  dich auf die Zip-Inhalte wie einen Ordner (oder
VirtualVolume) zugreifen, du kannst also reinschauen und dir sie
Sachen beliebig rauspicken und auf Disk oder sogar in Strings
entpacken.

Ist allerdings auch nicht ganz kostenlos, es sei denn, du beschränkst
dich ein wenig in den Features. Beispielcode ist auch dabei.

http://www.tempel.org/RB/ZipPackage

Thomas


On Mon, Apr 23, 2012 at 21:12, Stefan Mettenbrink <[email protected]> wrote:
> In meinem Projekt nutze ich die Funktion ZipCompressMBS zum packen und
> entpacken einer einzelnen Datei. Funktioniert wie gewünscht.
>
> Nun möchte ich ein Zip-Archiv entpacken, in dem sich mehrere Dateien und
> Ordner befinden. Orientiert habe ich mich an diesem Beispiel (bis Sub
> decompress_class() runter scrollen):
>
> <http://www.monkeybreadsoftware.net/example-compression-bzip2-compresstest.shtml>
>
> Wie erwähnt funktioniert das für einzelne Dateien. Benutze ich aber einen
> vorhandenen (nicht leeren) Ordner, bekomme ich eine Fehlermeldung. Erzeuge
> ich einen neuen Ordner, in dem ich entpacken lasse, kommt die Routine zu
> keinem Ende :-(
>
> Hier ein Auschnitt aus dem Aufruf:
>   f1=HilfeFolder.Child("HTML-Hilfe.zip")
>   If f1<> Nil then
>     f=HilfeFolder.Child("Hilfeordner")
>     f.CreateAsFolder
>     s=ZIPdecompress_class(f1,f)
>   end
>
> Ich verwende als HilfeFolder einen Ordner im Preferences-Verzeichnis.
>
> Habe ich etwas übersehen?
> Was muss ich ändern?
>
> MfG, Metti.
>



-- 
Thomas Tempelmann, http://www.tempel.org/
Follow me on Twitter: http://twitter.com/#!/tempelorg

Antwort per Email an