代码之家 › 专栏 › 技术社区 › dommer

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

enums dll delphi

dommer · 技术社区 · 16 年前

我有一个用C编写的第三方(win32)dll,它公开了以下接口:

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

DLL_EXPORT int DeviceStatus(DeviceType kind);

我想从德尔福打电话过来。

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

3 回复 | 直到 16 年前

PA. 16 年前

在C中从外部dll声明接口的通常方法是在.h头文件中公开其接口。然后,要从C访问dll,.h头文件必须 #include 在C源代码中。

翻译成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 ...

Alex F 16 年前

C++中枚举的默认基础类型是int(未签名的32位)。您需要在Delphi中定义相同的参数类型。对于枚举值,可以使用硬编码的1和2值从Delphi调用该函数,或者使用任何其他Delphi语言特性(Enum?常数?我不懂这门语言),结果是一样的。

Alex 16 年前

当然,可以使用integer并直接传递constanst,但使用通常的枚举类型声明函数更安全。应该是这样的(注意“minenumsize”指令):

{$MINENUMSIZE 4}

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

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

推荐文章

zeus · 如何在调整数组大小后保持指向动态数组的指针有效?

1 年前

Arthur Araujo · Delphi类层次结构中TCustomXXX类的原因是什么

1 年前

Wolfgang Bures · 如何解决idHTTP中的错误10054

1 年前

IceCold · 由于TStyleManager,消息丢失。尝试设置样式

1 年前

SignalOne · 德尔福(FMX)循环参考

2 年前

Sascha Ott · 如何从线程调用线程的方法?

2 年前

user1580348 · 问题:如何在上次最小化后还原应用程序?

2 年前

user14668421 · 如何在Delphi VCL中将图像从PNG转换为BMP?

2 年前

tua · Delphi的TLinkLabel坏了吗?

2 年前

Frank.Wu · delphi:RGB到HSL不正确

2 年前