64ビットのDLLを64ビットのDelphiで読み込むときの列挙の問題

Question

64ビットのDLLを使用する64ビットのDelphiエクスポートプログラムを作成しています。私が得る問題は、c DLLがDelphiのenumを認識せず、間違ったデータ型のエラーを返すことです。私は{$ packenums}や{$ Z}ディレクティブをDelphiコンパイラに使ってみましたが、同じエラーが返されました。私はxe8 Delphiを使用しています。列挙型は、次のようになります。Cヘッダに

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 
); 

私はこれが意味:) 感謝します願っています

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}を使用したくない場合は、おそらくデルファイのinteropユニットに配置するだけです。インポートされる型と関数を定義する単位。その相互運用コードを他のアプリケーションロジックと混在させてしまった場合は、明確な分離を維持するための機会を今すぐ利用してください。

あなたはタイプを忠実に翻訳していません。あなたは値を追加し、値を見逃しました。

{$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コードと正確に一致することが確信できます。あなたのプログラムにはおそらく他の問題があります。残りのプログラムが失敗した場合は、驚かないでください。私はあなたがここで尋ねた質問にちょうど答えました。

上記の宣言を使用してもプログラムが失敗した場合は、原因を他の場所で調べることができます。