TZipFile und TMemoryStream

[Willie1]

Hallo,
das klappt tatsächlich.
Aber es geht um was anderes, ich habe TFileZip Auspacken mit TMemoryStream gelernt. Zum Testen setze ich ein Textfile von Delphi ein. Ich freue mich, dass dies jetzt funktioniert.
In der Realität will ich ein zweidimensionales Array of Record aus der gepackten Datei einlesen. Das ist mit Read(..,TByte) (für mich) schwierig. Wie muss ich vorgehen?

[Uwe Raabe]

Es gibt ja auch Read-Overloads, die Streams unterstützen.

Zitat von Willie1:

In der Realität will ich ein zweidimensionales Array of Record aus der gepackten Datei einlesen.

Wie würdest du es denn mit einem TMemoryStream machen?

[himitsu]

TMemoryStream gibt uns einen Zeiger auf seinen interen Speicher
TCustomMemoryStream.Memory
und man kann somit auch direkt zugreifen/casten.



Mit einer Text-Datei:

Für TEncoding muß man beim TMemoryStream erst nach TBytes kopieren (System.Move oder Stream.Write), bzw. man nutze einfach TBytesStream.Bytes,
aber man könnte auch SetString oder MultiByteToWideChar nutzen.

Oder wie wäre es mit TStringStream.DataString?

[Willie1]

Zitat von Uwe Raabe:

Es gibt ja auch Read-Overloads, die Streams unterstützen.

Wie würdest du es denn mit einem TMemoryStream machen?

Die gespeicherten Daten sehen so aus (vereinfacht): TFussballMatrix: Array[0..17,0..17] of Record Eg: string[3]; Spt: Byte; end; Es ist 2932 Bytes groß.

Ca 100 dieser Dateien sind in dem Zip-Archiv gespeichert und ich will sie öffnen, ohne sie auf der Platte (zwischen)speichern zu müssen. Ich möchte lernen, wie es geht. Den Umweg über den ext. Speicher weiß ich.
W.

[himitsu]

Wenn es ein reine statische Daten (z.B. StaticArray/Record/ShortString) sind, dann kann man das als Pointer auch direkt auf den MemoryStream.Memory casten.
PFussballMatrix

[Uwe Raabe]

Zitat von Willie1:

Ca 100 dieser Dateien sind in dem Zip-Archiv gespeichert und ich will sie öffnen, ohne sie auf der Platte (zwischen)speichern zu müssen.

Eventuell so:

Delphi-Quellcode:

var
  header: TZipHeader;
  matrix: TFussballMatrix;
  MyZip: TZipFile;
  stream: TStream;
begin
  ...
  MyZip.Read(0, stream, header);
  try
    stream.Read(matrix, Sizeof(matrix));
  finally
    stream.Free;
  end;
  ...

[himitsu]

Delphi-Quellcode:

var
  stream: TMemoryStream;
begin
  ...
  stream := TMemoryStream.Create;
  try
    MyZip.Read(0, stream, header);

    xxx := PFussballMatrix(stream.Memory)^[x, y].Eg;

  finally
    stream.Free;
  end;

[edit]
Ohh, der TZipFile erstellt den Stream selber?

Da müsste man mal schauen was der innen ist und beim TMemoryStream kann, man dann in Ruhe casten.

Delphi-Quellcode:

var
  stream: TStream;
begin
  ...
  MyZip.Read(0, stream, header);
  try

    xxx := PFussballMatrix((stream as TMemoryStream).Memory)^[x, y].Eg;

  finally
    stream.Free;
  end;

Ansonsten doch nochmal umkopieren, siehe Uwe.

[edit2]
Schade, ist ein TZDecompressionStream/TCustomZStream, da geht das mit dem Cast nicht direkt.

[Uwe Raabe]

Zitat von himitsu:

Schade, ist ein TZDecompressionStream/TCustomZStream, da geht das mit dem Cast nicht direkt.

Das war doch zu erwarten. Schließlich liegt die Datei im Zip ja in komprimierter Form vor.

[himitsu]

Ja, hatte vergessen, dass die ZStreams nur "durchreichen"
und nicht "selbst" auf 'nem MemoryStream aufbauen, obwohl alles im RAM bleibt.

Was aber geht, ist die Variante mit den TBytes
procedure Read(const FileName: string; out Bytes: TBytes); overload;
und dann die TBytes zu PFussballMatrix casten. (dynamische Arrays haben einen Pointer drin, welcher aus den Datenanfang zeigt)

Delphi-Quellcode:

var
  Bytes: TBytes;
begin

  MyZip.Read(IndexOrFilename, Bytes);
  //Assigned(Length(Bytes) = SizeOf(TFussballMatrix), '...');
 
  xxx := PFussballMatrix(Bytes)^[x, y].Eg;

end;

[Willie1]

Hallo Freunde, danke für eure Mitarbeit.
Ich breche die Sache ab, Ich habe festgestellt, dass Zip-Archive, die ich mit TZipFile erweitert habe, danach nicht mehr lesbar sind. Winrar kann nur einen Teil der darin enthaltenen Dateien reparieren. (Alle Dateien im Archiv werden angezeigt, sind aber zum Teil nicht lesbar).Hier im Forum hatten auch schon andere Mitglieder*innen den Verdacht geäußert, das TZipFile nicht sauber arbeitet. Das sehe ich jetzt bestätigt.
Meine Idee war, dass der Anwender mit nur einer Datei arbeiten kann, statt sich mit 100 Dateien herum schlagen zu müssen.
Es ging um das Array FussballMatrix.
Gruß Willie.

Nachtrag: Bei meinem Testprogramm hatte es mit TZipFile funktioniert!