ZLIB - Beispiel

[361]

Hallo,

ich habe hier schon überall gesucht.. Leider ohne Erfolg. Könnte mir mal bitte jemand ein vernünftiges Beispiel für das packen und entpacken mehrerer dateien in unterordnern mit ZLIB schicken oder hier posten? ich wäre euch superdankbar. Ich habe meine Dateien schon mit ZLIB gepackt, aber wie kriege ich die ganzen Dateien wieder dort heraus? :gruebel: :gruebel: :gruebel:

Mail: [e-mail]

[361]

:witch: Hat niemand eine Idee? :angel2:

[Daniel]

Moin moin,

ich denke, es gibt zwei Knackpunkte: Zum Einen lebt dieses Forum ja gerade davon, dass die Antworten auf Probleme hier veröffentlicht werden, damit auch Andere davon profitieren können.

Zudem wünscht Du eine Komplettlösung und das ist halt immer so eine Sache. An welcher Stelle hast Du denn Probleme? Wenn Du Dein Problem etwas genauer beschreibst und schilderst, was Du bisher gemacht hast, kann Dir bestimmt geholfen werden.

[361]

Hallo,

das sehe ich genauso. Mein Problem liegt darin, daß ich wie bereits erwähnt mehrere Dateien mit ZLIB gepackt habe. Wie entpackt man diese wieder?

Delphi-Quellcode:

var
  InputStream, OutputStream: TFileStream;
  DeCompressionStream: ZLib.TDeCompressionStream;
begin
  InputStream:=TFileStream.Create(sSkinDir +'\'+ cSkinZipFile, fmOpenRead);
  try
    OutputStream:=TFileStream.Create('c:\temp\a.zip', fmCreate);
    try
      DecompressionStream:=TDecompressionStream.Create(OutputStream);
      try
        DecompressionStream.CopyFrom(InputStream, InputStream.Size);
      finally
        DecompressionStream.Free;
      end;
    finally
      OutputStream.Free;
    end;
  finally
    InputStream.Free;
  end;

hiermit kriege ich nur eine Datei raus. Was muss ich machen, damit alle Dateien entpackt werden?


MfG
Sebastian

[Matze]

Dann gibt es auch die Möglichkeit, die Suche zu nutzen oder Google, was dich ins SDC führt.

Nachtrag: Und pushen nicht innerhalb 24 Stunden. Eine Komplettlösung verlangen, keine Eigeninitiative zeigen und pushen, da hört's langsam auf. :?

[361]

Zitat:

Zitat von Matze

Dann gibt es auch die Möglichkeit, die Suche zu nutzen oder Google, was dich ins SDC führt.

Nachtrag: Und pushen nicht innerhalb 24 Stunden. Eine Komplettlösung verlangen, keine Eigeninitiative zeigen und pushen, da hört's langsam auf. :?

Sag mal, WIE DÄMLICH BIST DU EIGENTLICH SELBST??!! Lies erstmal richtig ALLE Beiträge durch, bevor Du mir hier solche dummen Sachen unterstellst, klar!! Suche mal den Fehler bei Dir, denn die Suche zu benutzen, DAS HABE ICH BEREITS GETAN, SONST HÄTTE ICH DAS HIER NICHT EXTRA GEPOSTET!!! Und ich habe hier nicht gepushed! Das ist doch ein Witz, daß Leute hier einen anmachen, nur weil sie selbst nicht richtig lesen können!!!!!!!!! :kotz:

PS: Eigeninitiative habe ich mit Sicherheit mehr als die meisten, aber das zeugt von Oberflächlichkeit und Dummheit. Und Du bist einfach nur dumm, sonst hättest Du Dir Deinen Kommentar gespart und eine vernünftige Antwort geschrieben. Ich hoffe, Du fängst jetzt nicht gleich an zu weinen. Denn Aktion, Reaktion. Das kennst Du doch sicherlich oder..?

[Daniel]

Das Thema wäre damit erledigt. Ich denke, Du möchtest Dir vielleicht ein anderes Zuhause für Deine Delphi-Fragen suchen.

*locked*