Delphi/Lazarus: Byte Array aus MemoryStream laden

Kein Problem, in dem folgenden Beispiel zeige ich dir, wie man die Daten aus dem Memory Stream in einen Byte Array bekommt.

var
  MS: TStream;
  BA_IN, BA_OUT: array of Byte;
begin   
  
  // ein paar Daten erstellen
  SetLength(BA_IN, 2);
  BA_IN[0] := $FF; 
  BA_IN[1] := $FE;

  // Memory Stream erstellen 
  ms := TMemoryStream.Create;
  try   
    // Daten in den Memory Stream schreiben
    ms.WriteBuffer(BA_IN, 2);

    // Daten aus Memory Stream in Byte Array schreiben
    ms.Position := 0;
    SetLength(BA_OUT, ms.Size);
    ms.Read(BA_OUT[0], ms.Size);
  finally
    ms.Free;
  end; 

end;

Damit etwas in unserem Stream steht, schreiben wir als erstes einige Bytes in den Stream hinein (Array BA_IN). Anschließend schreiben wir den Inhalt des Streams in den Byte Array BA_OUT.
03.02.2014 um 13:48