在 64 位 Delphi 中加载 64 位 c DLL 时的枚举问题

Question

我正在制作使用 64 位 c DLL 的 64 位 Delphi 导出程序。我得到的问题是 c DLL 无法识别 Delphi 枚举并为错误的数据类型返回错误。我已经尝试对 Delphi 编译器使用 {$packenums} 或 {$Z} 指令，但仍然返回相同的错误。我正在使用 xe8 德尔福。枚举看起来像：

type  
DDCDataType=(
    DDC_notype = 0,
    DDC_UInt8 = 5,  // unsigned char
    DDC_Int16 = 2,  // short
    DDC_Int32 = 3,  // int
    DDC_Float = 9,  // float -> single
    DDC_Double = 10,    // double
    DDC_String  = 23    // string
);

在c头看起来像

typedef enum {
    DDC_UInt8 = 5,  // unsigned char
    DDC_Int16 = 2,  // short
    DDC_Int32 = 3,  // int
    DDC_Float = 9,  // float
    DDC_Double = 10,    // double
    DDC_String = 23,    // string
    DDC_Timestamp = 30, // timestamp (Year/Month/Day/Hour/Minute/Second/Millisecond components)
} DDCDataType;

我希望这是有道理的 :) 谢谢！

Answer 1

在 C 代码中，DDCDataType 只是一个int。这意味着它的大小为 4。在您的 Delphi 代码中，使用默认编译器设置，枚举类型的大小为 1。您应该使用 {$Z4} 来匹配 C 代码。

你可能不想在你的项目中使用{$Z4}，所以你应该把它放在你的Delphi互操作单元中。定义导入的类型和函数的单元。如果您将该互操作代码与您的其他应用程序逻辑混为一谈，请立即抓住机会保持清晰的分离。

不过，您还没有忠实地翻译字体。你增加了一个价值，却错过了一个价值。应该是：

{$Z4}
type  
  DDCDataType=(
    DDC_UInt8 = 5,      // unsigned char
    DDC_Int16 = 2,      // short
    DDC_Int32 = 3,      // int
    DDC_Float = 9,      // float
    DDC_Double = 10,    // double
    DDC_String = 23,    // string
    DDC_Timestamp = 30, // timestamp (Year/Month/Day/Hour/Minute/Second/Millisecond components)
  );

通过该声明，您可以确信该类型与您的 C 代码完全匹配。您的程序中很可能还有其他问题。如果您的程序的其余部分失败，请不要感到惊讶。我刚刚回答了您在这里提出的问题。

要完全清楚，如果您使用上面的声明，并且您的程序仍然失败，那么您知道要在其他地方寻找原因。