Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Ordentliche Komprimierungsunit

    Delphi
    by SirThornberry, 16. Aug 2009
  Wenn clear nicht vorhanden ist kann man auch einfach mit dem Property-Size die Größe auf 0 setzen.
  Oder was in den meisten Fällen performanter ist - die Größe gleich auf den richtigen Wert setzen. In diesem Fall also:
  
  procedure CompressStream(ms: TStream);
  var
  zc: TCompressionStream;
  ms1: TMemoryStream;
  begin
  ms1 := TMemoryStream.Create;
  try
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Ordentliche Komprimierungsunit

    Delphi
    by SirThornberry, 16. Aug 2009
  Ich sehe nur das der MemoryStream erzeugt wird.
  Ansonsten liest du aus einem anderem Stream (ms) und schreibst diesen in cz/ms1.
  Anschließend kopierst du den komprimierten Stream an den Anfang des Streams aus dem du die ganze Zeit gelesen hast.
  Ist dein unkomprimierter Stream also z.B. 5 MB groß und die komprimierten Daten sind 1 MB groß, so schreibst du diese 1 MB an den anfang des...