Delphi/Lazarus: Load Byte Array from MemoryStream

No problem, in the following example I will show you how to get the data from the memory stream into a byte array.

var
  MS: TStream;
  BA_IN, BA_OUT: array of Byte;
begin   
  
  // create some data
  SetLength(BA_IN, 2);
  BA_IN[0] := $FF; 
  BA_IN[1] := $FE;

  // create memory stream
  ms := TMemoryStream.Create;
  try   
    // write data into the memory stream
    ms.WriteBuffer(BA_IN, 2);

    // read data from memory stream to byte array
    ms.Position := 0;
    SetLength(BA_OUT, ms.Size);
    ms.Read(BA_OUT[0], ms.Size);
  finally
    ms.Free;
  end; 

end;

To have something in our stream, we first write a few bytes into the stream (array BA_IN). Then we write the contents of the stream into the byte array BA_OUT.
2018-01-09 at 21:52