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