c++ - 如何将 C++ union 转换为 Delphi

Question

我知道之前有人问过这个问题，但我尝试将一些 C++ 结构/union 转换为 Delphi 以使用 Hikvision SDK 但没有成功。

我尝试转换的 C++ 结构/union 如下:

struct{
  BYTE                           byEnable;
  BYTE                           byRes1[3];
  DWORD                          dwTriggerType;
  NET_ITC_TRIGGER_PARAM_UNION    uTriggerParam;
  BYTE                           byRes[64];
}NET_ITC_SINGLE_TRIGGERCFG,*LPNET_ITC_SINGLE_TRIGGERCFG;

union{
  DWORD                              uLen[1070];
  NET_ITC_POST_IOSPEED_PARAM         struIOSpeed;
  NET_ITC_POST_SINGLEIO_PARAM        struSingleIO;
  NET_ITC_POST_RS485_PARAM           struPostRs485;
  NET_ITC_POST_RS485_RADAR_PARAM     struPostRadar;
  NET_ITC_POST_VTCOIL_PARAM          struVtCoil;
  NET_ITC_EPOLICE_IOTL_PARAM         struIOTL;
  NET_ITC_EPOLICE_RS485_PARAM        struEpoliceRs485;
  NET_ITC_EPOLICE_RS485_PARAM        struPERs485;
}NET_ITC_TRIGGER_PARAM_UNION,*LPNET_ITC_TRIGGER_PARAM_UNION;

我尝试了以下方法:

  PNetItcSingleTriggerCfg = ^TNetItcSingleTriggerCfg;
  TNetItcSingleTriggerCfg = record
    byEnable:      Byte;
    byRes1:        array [0..2] of Byte;
    dwTriggerType: DWord;
    uTriggerParam: TNetItcTriggerParamUnion;
    byRes:         array [0..63] of Byte;
  end;

  PNetItcTriggerParamUnion = ^TNetItcTriggerParamUnion;
  TNetItcTriggerParamUnion = record
    case integer of
      0: (uLen:             array [0..1069] of DWord);
      1: (struIOSpeed:      TNetItcPostIOSpeedParam);
      2: (struSingleIO:     TNetItcPostSingleIOParam);
      3: (struPostRs485:    TNetItcPostRS485Param);
      4: (struPostRadar:    TNetItcPostRS485RadarParam);
      5: (struVtCoil:       TNetItcPostVTCoilParam);
      6: (struHvt:          TNetItcPostHvtParam);
      7: (struIOTL:         TNetItcEPoliceIOTLParam);
      8: (struEpoliceRs485: TNetItcEPoliceRS485Param);
      9: (struPERs485:      TNetItcEPoliceRS485Param);          
      10:(struPostMpr:      TNetItcPostMprParam);
      11:(struViaVtCoil:    TNetDvrViaVtCoilParam);
      12:(struPostImt:      TNetItcPostImtParam);
      13:(struPostPrs:      TNetItcPostPrsParam);
      14:(struIpcHvt:       TNetIpcPostHvtParam);
      15:(struHvtV50:       TNetIpcPostHvtParamV50);
  end;

我也尝试过将其作为嵌套记录(如此处建议的那样 http://rvelthuis.de/articles/articles-convert.html#unions )

  PNetItcSingleTriggerCfg = ^TNetItcSingleTriggerCfg;
  TNetItcSingleTriggerCfg = record
    byEnable:      Byte;
    byRes1:        array [0..2] of Byte;
    dwTriggerType: DWord;
    uTriggerParam: record
      case integer of
        0: (uLen:             array [0..1069] of DWord);
        1: (struIOSpeed:      TNetItcPostIOSpeedParam);
        2: (struSingleIO:     TNetItcPostSingleIOParam);
        3: (struPostRs485:    TNetItcPostRS485Param);
        4: (struPostRadar:    TNetItcPostRS485RadarParam);
        5: (struVtCoil:       TNetItcPostVTCoilParam);
        6: (struHvt:          TNetItcPostHvtParam);
        7: (struIOTL:         TNetItcSingleIOTLParam);
        8: (struEpoliceRs485: TNetItcEPoliceRS485Param); 
        9: (struPERs485:      TNetItcEPoliceRS485Param);
        10:(struPostMpr:      TNetItcPostMprParam);
        11:(struViaVtCoil:    TNetDvrViaVtCoilParam);
        12:(struPostImt:      TNetItcPostImtParam);
        13:(struPostPrs:      TNetItcPostPrsParam);
        14:(struIpcHvt:       TNetIpcPostHvtParam);
        15:(struHvtV50:       TNetIpcPostHvtParamV50);
      end;
    byRes:         array [0..63] of Byte;
  end;

我在这里看到过类似的问题(即 How do I translate a C union into Delphi? )，但我示例中的 union 位于结构的中间，据我所知，case 语句的“结束”也结束了记录。

我想我理解变体记录背后的理论，该变体记录对 case 语句中的字段具有相同的内存分配，因此使用的字段可以是/或，但我无法解决的是如何判断DLL 正在访问这些记录，无论是 struName.unionName.fieldName 还是 struName.fieldName 以及 union 是如何定义的(即 case 语句的选择器是什么，以及如何知道选择器是什么数据类型)。

我有三个相似的结构要翻译，我想如果我能破解一个，我就能破解所有。

根据上述记录，我不断收到错误信息‘参数错误。从 DLL 调用函数时，SDK API 中的输入或输出参数为 NULL(如果您需要这方面的更多信息，请询问)，这让我认为我的记录未正确转换。

我使用的是 HCNetSDK.dll SDK 版本 5.0.3.20，如果有帮助的话，我的 IDE 是 XE7。

如有任何帮助，我们将不胜感激。

Answer 1

假设结构对齐设置匹配，那么您转换 union 的两次尝试都是正确的。您可以使用任何您喜欢的。就其值(value)而言，我更喜欢第一种方法，即声明一个类型来表示 union 。

无论您的实际问题是什么，它似乎都不在于 union 转换。对此进行测试的一种简单方法是检查 C++ 和 Delphi 版本中类型的大小是否匹配，以及每个成员的偏移量是否匹配。

要测试类型的大小，请在 C++ 中使用 sizeof，在 Delphi 中使用 SizeOf。对于偏移量，使用 offsetof C++ 的宏和 my answer here 中所示的技巧用于德尔福。