在Delphi中实现TByteDynArray到TStream的转换

procedure ByteDynArrayToStream(const ABytes: TByteDynArray; AStream: TStream);
var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    // 将TByteDynArray的数据写入TMemoryStream对象
    MemoryStream.WriteBuffer(ABytes[0], Length(ABytes));
    MemoryStream.Position := 0; // 将流的位置设置为起始位置

    // 将TMemoryStream对象的数据复制到目标TStream对象
    AStream.CopyFrom(MemoryStream, MemoryStream.Size);
  finally
    MemoryStream.Free;
  end;
end;

var
  Bytes: TByteDynArray;
  Stream: TStream;
begin
  // 假设已经有一个TByteDynArray对象Bytes
  // 创建一个TFileStream对象，用于保存转换后的数据到文件
  Stream := TFileStream.Create('output.bin', fmCreate);
  try
    // 将TByteDynArray转换为TStream
    ByteDynArrayToStream(Bytes, Stream);
  finally
    Stream.Free;
  end;
end;