TZipFile und TMemoryStream

[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;

[Uwe Raabe]

Zitat von himitsu:

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.

Was am Ende aber auf dasselbe raus kommt, wie ein Read mit dem Stream - genau das passiert nämlich auch in dem TBytes-Overload.

[himitsu]

Was intern passiert ist doch aber egal. (außer es ist extrem grausam langsam/hungrig)
Nur die Schnittstelle zum Benutzer/Programmieret bemerkt man.

[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!