delphi – MemoryStream并构造一个字节数组

我正在使用MemoryStream来构造我需要发送到服务器的字节数组.我有以下问题：

1)有没有比这更好的方法来构造一个字节数组？

2)为什么这些代码会在我的内存流中写出伪造的？

var
  serial : word;
  MS : TMemoryStream;
const
  somebytes : array [0..1] of byte = ($72,$72);
...
begin
      MS := TMemoryStream.Create();
      try
      MS.Write(somebytes[0],2);
      serial := $3E6C;
      MS.Write(serial,2);
      finally
      MS.Free;
end;

使用调试器,我看到在流中添加了值$6F32而不是$3E6C.

3)如果我打电话

MS.Position := 2;

然后我访问PByte(MS.Memory)^为什么我得到流中的第一个字节而不是第三个字节？

解决方法

Is there a better way to construct an array of bytes than this?

在我看来,这是一种非常合理的方式.

I see that in the stream is added the value $6F32 instead of $3E6C.

再检查一遍.实际上添加了正确的值.但要注意小端数据类型的陷阱.按顺序添加到流中的4个字节是：$72,$72,$6C,$3E.

Why do I get the first byte in the stream instead of the third?

因为Memory属性始终引用流的开头.它没有考虑流的当前位置.