TZipmaster: LoadFromStream(Zip-Datei) und dann Datei entpacken

[hoika]

Hallo,

ich versuche, dem Zipmaster (1.9) eine gezippte Datei "unterzuschieben",
die in einem TFileStream bzw. TMemoryStream (aus einem Blob-Feld) liegt.
Dann soll eine Datei (die einzige in der Zip) ausgepackt werden

Hier war schon eine ähnliche Frage, ohne Antwort ...

http://www.delphipraxis.net/99880-tz...-anwenden.html

Ich stehe genau dort, das er mir die gezippte Datei "auspackt".

Hier
http://www.freelists.org/post/delphizip/Hello,860
wird ein gezippter Stream entpackt,
aber es steht auch dort, wenn der Stream eine Zip-Datei ist,
klappt der Code nicht.

Man müsste aus dem Stream der Zipdatei genau die Stelle kennen,
wo die Zip-Datei beginnt.

Hier habe ich noch was, verstehe aber nicht ganz,
was der macht ;(

http://quide.googlecode.com/svn/trun...ileStorage.pas

Per LoadFromFile klappt ja alles.

Danke


Heiko

[ralfschwalbe]

Eigentlich weiß man doch, "wo" die "Zip"-Datei beginnt: http://en.wikipedia.org/wiki/Zip_(fi...)#File_headers

[nahpets]

Hallo,

suchst Du sowas?

Delphi-Quellcode:

procedure TfmSHSMain.acSeiteSpeichernExecute(Sender: TObject);
var
          Zip          : TZipMaster;
          st           : TZipStream;
begin
  Screen.Cursor := crHourGlass;
  st            := TZipStream.Create;
  Zip           := TZipMaster.Create(Nil);
  Try
    try
      Zip.NotMainThread := false;
      Zip.Unattended    := True;
      Zip.DLLDirectory  := fDll_Path;
      Zip.ZipFileName   := Application.HelpFile;
      Zip.AddOptions    := Zip.AddOptions + [AddDirNames];
      mtIndex.Locate('ID', edSeite.Tag, []);
      meTextEditor.Lines.SaveToStream(st);
      st.Position       := 0;
      Zip.ZipStream.LoadFromStream(st);
      Zip.AddStreamToFile(edSeite.Text,0,FILE_ATTRIBUTE_ARCHIVE);
      wb.Navigate('http://localhost:' + IntToStr(hs.DefaultPort) + '/' + IntToStr(edSeite.Tag));
      wb.Refresh;
    except
      on e : Exception do begin
        WebConfig.WriteToLogFile('acSeiteSpeichernExecute: ' + e.Message);
      end;
    end;
  finally
    Zip.Free;
  end;
  meTextEditorChange(Nil);
  stbTexteditor.Panels[0].Color := clGreen;
  Screen.Cursor := crDefault;
end;

mtIndex ist eine kbMemTable (eine Datenbanktabelle, die nur im Arbeitsspeicher existiert).
meTextEditor ist ein DBMemo, das mit der Tabelle mtIndex verbunden ist und den Inhalt eines Memofeldes anzeigt (HTML-Dateien).
wb ist ein TWebBrowser, der die HTML-Dateien aus meTextEditor anzeigt.
edSeite.Text ist eine TDBEdit, das den Namen der HTML-Datei im ZIP-Archiv enthält.
edSeite.Tag enthält den technischen Schlüssel der HTML-Datei in der Datenbanktabelle.

[hoika]

Hallo,

danke an beide,
ich schaue es mir an.
Ich glaueb, so langsam versteht ich das AddStreamToFile .

PS: ich weiss nicht, wo die Datei beginnt, das soll doch der Zipmaster machen ...


Heiko

[nahpets]

Hallo,

habe glaub' ich beim ersten Lesen Deine Aufgabenstellung nur halb gelesen oder verstanden...

Du hast das Zip im Blob und willst dieses an den Zipmaster geben um dann daraus eine Datei zu extrahieren.

Meine Routine schreibt aber den Inhalt aus einem DBMemo als Datei in ein ZIP, ist also für Deine Aufgabenstellung überhaupt nicht zu gebrauchen

[hoika]

Hallo,

passt scho
ich muss auch die andere Seite bauen,
also Datei als TFileStream vorhanden, soll gezippt (=Zip-Datei) und in die DB geschrieben werden.

ich konnte den Code nach einem Umbau auch bei mir verwenden
aber:

Jedesmal wird vom Zipmaster in eine Datei geschrieben,
lasse ich das ZipFileName weg, bekomme ich beim AddStreamToFile eine Fehlermeldung "zip file name fehlt".

Ich möchte, dass der das alles im Speicher hält.
Ich vermisse ein LoadZipFileFromStream und ein SaveZipFileToStream .

Kann Abbrevia das ?


Aktuell:
Komponente(z.B. auch ein Texteditor) -> SaveToFile Datei -> TZipmaster -> ZipDatei erzeugen als Datei -> BlobStream.LoadFrom File -> in die DB

Ziel:
Komponente(z.B. auch ein Texteditor) -> SaveToStream -> TZipmaster -> ZipDatei erzeugen als Stream -> in die DB


Ich möchste also alle File-Operationen eliminieren.


Danke


Heiko

[cookie22]

Wenn du nur Streams comprimieren willst, warum benutzt du dann DelZip und nicht ZLib?