TZipFile und TMemoryStream

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