如何将 C++ 联合转换为 Delphi

Question

我知道之前有人问过这个问题，但我尝试将一些 C++ structures/unions 转换为 Delphi 以使用 Hikvision SDK 失败。

我尝试转换的C++ structures/unions如下：

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? ），但我的示例中的联合位于结构的中间，据我所知，case 语句的“结束”也结束了记录.

我想我理解变体记录背后的理论，该变体记录对 case 语句中的字段具有相同的内存分配，因此使用的字段将是 either/or，但我无法解决的是如何告诉 DLL 如何访问这些记录，是 struName.unionName.fieldName 还是 struName.fieldName 以及联合是如何定义的（即 case 语句的选择器是什么，以及如何知道什么数据类型选择器是）。

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

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

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

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

Answer 1

假设结构对齐设置匹配，那么您转换联合的两次尝试都是正确的。您可以使用任何您喜欢的。对于它的价值，我更喜欢第一种方法，你声明一个类型来表示联合。

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

要测试类型的大小，在 C++ 中使用 sizeof，在 Delphi 中使用 SizeOf。对于偏移量，使用 offsetof macro for C++ and the trick shown in my answer here for Delphi.

如何将 C++ 联合转换为 Delphi

How to convert a C++ union to Delphi

c++

delphi

ip-camera

delphi-xe