64 位 DLL c/c++ Delphi 接口

Question

我有一个 .h 文件需要转换成 Delphi，以调用用 C/C++ 编写的 DLL 接口。

在 32 位中，一切顺利，我可以毫无问题地将 DLL 与 Delphi 应用程序一起使用。

在 64 位中，它不能很好地工作。

这个DLL接口不是我写的，是第三方做硬件的。

namespace gXusb {
    
typedef int            INTEGER;
typedef short          INT16;
typedef unsigned       CARDINAL;
typedef unsigned char  CARD8;
typedef float          REAL;
typedef double         LONGREAL;
typedef char           CHAR;
typedef unsigned char  BOOLEAN;
typedef void *         ADDRESS;
    
struct CCamera;
    
extern "C" EXPORT_ void __cdecl Enumerate( void (__cdecl *CallbackProc)(CARDINAL) );
extern "C" EXPORT_ CCamera *__cdecl Initialize( CARDINAL Id );

Cardinal在64位下还是32位无符号吗？

我不太确定这种声明此函数类型的方式以及它在 64 位编译中的作用：

void (__cdecl *CallbackProc)(CARDINAL)

看起来有点笨重

让我疑惑的是：

typedef unsigned       CARDINAL;

我发现这是 32 位的 32 位 DLL，但它在 64 位 DLL 下仍然是 32 位吗？

Answer 1

像下面这样的东西在 32 位和 64 位中都可以正常工作：

unit gXusb;

interface

type
  // prefixing types that Delphi already declares...
  _INTEGER = Int32;
  _INT16 = Int16;
  _CARDINAL = UInt32;
  CARD8 = UInt8;
  _REAL = Single;
  LONGREAL = Double;
  _CHAR = AnsiChar;
  _BOOLEAN = ByteBool;
  ADDRESS = Pointer;

  CCamera = record end;
  PCCamera = ^CCamera;

  UsbEnumCallback = procedure(Param: _CARDINAL); cdecl;

procedure Enumerate(Cb: UsbEnumCallback); cdecl;
function Initialize(Id: _CARDINAL): PCCamera; cdecl;

implementation

const
  TheDLLName = 'the.dll';

procedure Enumerate; external TheDLLName;
function Initialize; external TheDLLName;

end.

就个人而言，我会去掉任何不是绝对必要的类型别名，使用原生 Delphi 类型是合适的，例如：

unit gXusb;

interface

type
  CARD8 = UInt8;

  CCamera = record end;
  PCCamera = ^CCamera;

  UsbEnumCallback = procedure(Param: UInt32); cdecl;

procedure Enumerate(Cb: UsbEnumCallback); cdecl;
function Initialize(Id: UInt32): PCCamera; cdecl;

implementation

const
  TheDLLName = 'the.dll';

procedure Enumerate; external TheDLLName;
function Initialize; external TheDLLName;

end.

64 位 DLL c/c++ Delphi 接口

64 bits DLL c/c++ interface to Delphi

c++

delphi