Delphi中如何定义“UCHAR * POINTER_32”和“VOID * POINTER_32”类型？

Question

背景：

为 64 位编译器翻译 IP_OPTION_INFORMATION32 和 ICMP_ECHO_REPLY32 结构时，我遇到了要在那里使用的数据类型。参考资料中的结构定义：

IP_OPTION_INFORMATION32 结构：

typedef struct _IP_OPTION_INFORMATION32 {
  UCHAR              Ttl;
  UCHAR              Tos;
  UCHAR              Flags;
  UCHAR              OptionsSize;
  UCHAR * POINTER_32 OptionsData;
} IP_OPTION_INFORMATION32, *PIP_OPTION_INFORMATION32;

我会这样翻译（对于 Delphi XE2，64 位目标平台）。如您所见，我不知道该结构的OptionsData字段使用什么类型：

IP_OPTION_INFORMATION32 = record
  Ttl: UCHAR;
  Tos: UCHAR;
  Flags: UCHAR;
  OptionsSize: UCHAR;
  OptionsData:       // what should I use here for UCHAR * POINTER_32 ?
end;

ICMP_ECHO_REPLY32 结构：

typedef struct icmp_echo_reply32 {
  IPAddr                         Address;
  ULONG                          Status;
  ULONG                          RoundTripTime;
  USHORT                         DataSize;
  USHORT                         Reserved;
  VOID * POINTER_32              Data;
  struct ip_option_information32  Options;
} ICMP_ECHO_REPLY32, *PICMP_ECHO_REPLY32;

对于 Delphi XE2 64 位目标平台，我会写：

ICMP_ECHO_REPLY32 = record
  Address: TIPAddr;  // defined before
  Status: ULONG;
  RoundTripTime: ULONG;
  DataSize: USHORT;
  Reserved: USHORT;
  Data:              // what should I use here for VOID * POINTER_32 ?
  Options: IP_OPTION_INFORMATION32;
end;

问题：

您将如何在 Delphi 中为 64 位平台目标定义 UCHAR * POINTER_32 和 VOID * POINTER_32 类型？据我所知，没有可用于 64 位平台目标的 32 位指针类型，我只是不喜欢定义它，例如作为Int32 类型:-)

上述类型的最精确翻译是什么？

Answer 1

POINTER_32 的问题在另一个 Stack Overflow 问题中有所涉及：POINTER_32 - what is it, and why?

当与在不同进程中定义的结构执行互操作时，您将使用它，该进程具有 32 位指针。

您在 Delphi 中没有 __ptr32 的等价物，因此您别无选择，只能将其声明为 32 位整数。我会使用无符号类型。

Answer 2

在这种情况下，UInt32（或 Cardinal、DWORD 等 - 任何无符号 32 位）都可以。您需要做的就是在结构（记录）的适当位置声明无符号 32 位。 CPU 不会关心，编译器不会关心（如果需要，您可以将类型转换为指针）它实际上是否是指针。除非您对值和处理器的标志检查进行一些数学运算，否则即使有符号的 32 位也可以工作。 从 C 到 Delphi 的结构转换中的另一件事：确保原始对齐是 4 个字节（每个项目 32 位），因为 record 与 packed record （无对齐）不同，默认情况下使用相同的 4 个字节对齐。否则，您可能会通过将记录应用于数据来遇到问题，例如

type
  Picmp_echo_reply32 = ^icmp_echo_reply32;
...
  data_size := Picmp_echo_reply32(@mybuf[some_offset]).DataSize;

或

var
  icmp_echo: Picmp_echo_reply32;
...
  icmp_echo := @buf[offset];
  reserved := icmp_echo.Reserved;