delphi - 如何将 byte[] 分配给记录

Question

在 C++ 中，它是这样完成的:

tPacket * packet = (tPacket *)data; //data is byte[] array; tPacket is a structure

在 C# 中:

tPacket t = new tPacket();
GCHandle pin = GCHandle.Alloc(data, GCHandleType.Pinned);
t = (tPacket)Marshal.PtrToStructure(pin.AddrOfPinnedObject(), typeof(tPacket));
pin.free();

Data 是一个字节数组，在通过 TCP 接收数据包后用作接收缓冲区。该代码将数据放入 tPacket(一个结构)的实例中，以便我稍后可以访问该结构。

Delphi 中是如何实现的？

Answer 1

您还可以使用absolute关键字强制两个结构共享相同的内存地址:

var
  Data: array[1..SizeOf(TMyStruct)] of byte;
  s : TMyStruct absolute Data;

写入 S 的任何数据也可以作为数据使用，而无需执行移动或指针转换。