使用 Delphi 中的枚举参数调用 DLL 中的 C 函数

Question

我有一个用 C 编写的第三方 (Win32) DLL，它公开以下接口：

DLL_EXPORT typedef enum
{
  DEVICE_PCI = 1,
  DEVICE_USB = 2
} DeviceType;

DLL_EXPORT int DeviceStatus(DeviceType kind);

我希望从 Delphi 调用它。

如何访问 Delphi 代码中的 DeviceType 常量？或者，如果我应该直接使用值 1 和 2，那么我应该为“DeviceType kind”参数使用什么 Delphi 类型？整数？单词？

Answer 1

在 C 中从外部 DLL 声明接口的常用方法是在 .H 头文件中公开其接口。然后，要从 C 访问 DLL，必须在 C 源代码中#include 包含 .H 头文件。

转换为 Delphi 术语，您需要创建一个单元文件，用 pascal 术语描述相同的接口，将 c 语法转换为 pascal。

对于您的情况，您将创建一个文件，例如...

unit xyzDevice;
{ XYZ device Delphi interface unit 
  translated from xyz.h by xxxxx --  Copyright (c) 2009 xxxxx
  Delphi API to libXYZ - The Free XYZ device library --- Copyright (C) 2006 yyyyy  }

interface

type
  TXyzDeviceType = integer;

const
  xyzDll = 'xyz.dll';
  XYZ_DEVICE_PCI = 1;
  XYZ_DEVICE_USB = 2;

function XyzDeviceStatus ( kind : TXyzDeviceType ) : integer; stdcall; 
   external xyzDLL; name 'DeviceStatus';

implementation
end.

并且您将在源代码的 uses 子句中声明它。并以这种方式调用该函数：

uses xyzDevice;

...

  case XyzDeviceStatus(XYZ_DEVICE_USB) of ...

Answer 2

C++ 中枚举的默认基础类型是 int（无符号 32 位）。您需要在 Delphi 中定义相同的参数类型。关于枚举值，您可以使用硬编码的 1 和 2 值从 Delphi 调用此函数，或者使用任何其他 Delphi 语言功能（枚举？常量？我不知道这种语言），这会给出相同的结果。

Answer 3

当然，您可以使用 Integer 并直接传递常量，但使用通常的枚举类型声明函数更安全。它应该是这样的（注意“MINENUMSIZE”指令）：

{$MINENUMSIZE 4}

type
  TDeviceKind = (DEVICE_PCI = 1, DEVICE_USB = 2);

function DeviceStatus(kind: TDeviceKind): Integer; stdcall; // cdecl?