Delphi/Lazarus: Cargar Byte Array desde MemoryStream

Ningún problema, en el siguiente ejemplo le mostraré cómo obtener los datos de un memory stream en una matriz de bytes.

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

  // crear memory stream
  ms := TMemoryStream.Create;
  try   
    // escribir datos en el memory stream
    ms.WriteBuffer(BA_IN, 2);

    // leer los datos del memory stream a byte array
    ms.Position := 0;
    SetLength(BA_OUT, ms.Size);
    ms.Read(BA_OUT[0], ms.Size);
  finally
    ms.Free;
  end; 

end;

Para tener algo en nuestra stream, primero escribimos algunos bytes en la stream (array BA_IN). Luego escribimos el contenido de la stream en la matriz de bytes BA_OUT.
21/11/2023 a las 17:13