MemoryStream并构造一个字节数组

opc*_*0de 6 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;
Run Code Online (Sandbox Code Playgroud)

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

3)如果我打电话

MS.Position := 2;
Run Code Online (Sandbox Code Playgroud)

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

Dav*_*nan 9

有没有比这更好的方法来构造字节数组?

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


我看到在流中添加了价值$ 6F32而不是$ 3E6C.

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


为什么我得到流中的第一个字节而不是第三个字节?

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