如何将c++联合转换为Delphi
How to convert a C++ union to Delphi
我知道以前有人问过这个问题,但我没有成功地试图将一些c++结构/联合转换为Delphi以使用海康威视SDK。
我试图转换的c++结构/联合如下:
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;
我在这里看到过类似的问题(即我如何将C联合转换为Delphi?),但是在我的例子中的联合是在结构的中间,并且据我所知,case语句的' end '也结束了记录。
我想我理解背后的理论变体记录具有相同的内存分配的字段在情况下的声明,所以使用的字段将是或/或,但我无法解决的是如何告诉DLL是如何访问这些记录,无论是struName. unionname . fieldname或struName。fieldName以及如何定义联合(即case语句的选择器是什么,以及如何知道选择器是什么数据类型)。
我有三个类似的结构要翻译,如果我能破解一个,我就能破解所有的。
使用上面描述的记录,我不断得到错误消息"参数错误"。输入或输出参数在SDK API是NULL ',同时从DLL调用一个函数(如果你需要更多的信息,请问),这让我认为我的记录没有被正确转换。
我使用的是HCNetSDK.dll SDK版本5.0.3.20,如果有帮助,我的IDE是XE7。
假设结构对齐设置匹配,那么转换联合的两次尝试都是正确的。你可以用你喜欢的任何一个。无论如何,我更喜欢第一种方法,即声明一个类型来表示联合。
无论您的实际问题是什么,它似乎与联合转换无关。一种简单的测试方法是检查类型的大小在c++和Delphi版本中是否匹配,以及每个成员的偏移量是否匹配。
要测试一个类型的大小,使用c++中的sizeof
和Delphi中的SizeOf
。对于偏移量,使用c++的offsetof
宏和我在Delphi的回答中显示的技巧。
- 将 Delphi 的字符串转换为 std::字符串用于C++
- 如何将C/C 回调函数转换为Delphi
- 将C 回调功能转换为Delphi
- 如何将C 代码转换为Delphi
- 将数组指针访问从C++转换为Delphi
- 从C++到Delphi的类型转换
- Delphi中的类型转换指针添加
- 将 C 中的按位语句转换为 Delphi
- 使用消息处理程序将 c++ dll 调用转换为 delphi
- Delphi - 从 dll 调用转换(读取)C++ NULL 终止数组
- 将 Direct3D C++ 函数转换为 Delphi
- 如何将MQL4代码转换为C++/Delphi DLL(Forex Tester API)
- Delphi在将VirtualProtect EAT钩子例程从C转换为Delphi时出现问题
- 更正从C++到delphi AnsiString的字节转换
- 代码从C/C++转换为Delphi
- 将C++内联汇编函数转换为delphi内联汇编函数
- c++到Delphi的指针转换
- 可以将带有类的c++头文件转换为Delphi单元吗?
- 将C头中的__declspec转换为Delphi
- 如何将c++头文件转换为delphi