Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   TZipMaster1.9 Stream Operationen (https://www.delphipraxis.net/173415-tzipmaster1-9-stream-operationen.html)

Verno 23. Feb 2013 11:36

Delphi-Version: 6

TZipMaster1.9 Stream Operationen
 
Hallo alle zusammen,
Ich schreib das erstemal in diesem Forum, welches ich recht häufig für meine Recherchen benutze.

Nun habe ich selbst ein Problem mit der Komponente TZipmaster V1.9 von http://www.delphizip.org

Ich habe / möchte eine Datei aus einer Zipdatei als Stream bearbeiten.
Das entpacken klappt ganz gut:

Delphi-Quellcode:
 TForm1 = CLASS(TForm)
...
...
 private
   ...
   MyWorkStream:TMemorystream;
   ...
end;

PROCEDURE LoadTestDat;
VAR
  LeseStream: TMemoryStream;
BEGIN
  IF NOT ZipMaster.Busy THEN BEGIN
    ZipMaster.ZipFileName := 'Test.zip';
    LeseStream := ZipMaster.ExtractFileToStream('Test.dat');
    MyWorkStream.LoadFromStream(LeseStream);
  END;
END;
Nun habe ich den Stream(MyWorkStream) bearbeitet / geändert und möchte in wieder in die ZIP als Test.dat schreiben.
Was ich bisher probiert habe (Try and Error) hat zu keinen Ergebniss geführt:
Delphi-Quellcode:
 ZipMaster.FSpecArgs.Clear;
 ZipMaster.FSpecArgs.Add('Test.dat');
 ZipMaster.ZipStream.LoadFromStream(MyStream);
 ZipMaster.AddStreamToFile('Test.dat', 0, 0);
Einen Umweg über eine Temp-Datei finde ich nicht sehr praktikabel und sehr unschön.

Kann mir jemand auf die Sprünge helfen der ein wenig Erfahrung mit dieser Komponente hat?
Bin über jeden Tip / Codeschnipsel dankbar.

Gruß Verno

Verno 24. Feb 2013 15:10

AW: TZipMaster1.9 Stream Operationen
 
Habe im I-Net noch eine andere Zip Komponente gefunden :

http://sourceforge.net/projects/tpabbrevia/

Diese kommt ohne DLL aus und mein kleines Problem mit dem Stream packen / entpacken war in 2 min gelöst, dank der vielen Beispiele in dieser Komponentensammlung.

Wäre aber trotzdem Intressant, wie das in TZipmaster klappt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz