6

我有一个我编写的 C++ DLL，它有一个公开的函数，它将函数指针（回调函数）作为参数。

#define DllExport   extern "C" __declspec( dllexport )

DllExport bool RegisterCallbackGetProperty( bool (*GetProperty)( UINT object_type, UINT object_instnace, UINT property_identifer, UINT device_identifier, float * value ) ) {
    // Do something. 
}

我希望能够从 Delphi 应用程序中调用这个公开的 C++ DLL 函数并注册回调函数以供将来使用。但是我不确定如何在 Delphi 中创建一个可以与暴露的 C++ DLL 函数一起使用的函数指针。

在这个问题的帮助下，我让Delphi 应用程序调用了一个简单的公开的 c++ DLL 函数。

我正在构建 C++ DLL，如果需要，我可以更改其参数。

我的问题是：

  • 如何在 Delphi 中创建函数指针
  • 如何从 Delphi 应用程序中正确调用公开的 C++ DLL 函数，以便 C++ DLL 函数可以使用函数指针。
4

1 回答 1

12

在 Delphi 中通过声明函数类型来声明函数指针。例如，你的回调函数类型可以这样定义：

type
  TGetProperty = function(object_type, object_instnace, property_identifier, device_identifier: UInt; value: PSingle): Boolean; cdecl;

请注意调用约定是cdecl因为您的 C++ 代码没有指定调用约定，而 cdecl 是 C++ 编译器通常的默认调用约定。

然后您可以使用该类型来定义 DLL 函数：

function RegisterCallbackGetProperty(GetProperty: TGetProperty): Boolean; cdecl; external 'dllname';

替换'dllname'为您的 DLL 的名称。

要调用 DLL 函数，首先应该有一个签名与回调类型匹配的 Delphi 函数。例如：

function Callback(object_type, object_instnace, property_identifier, device_identifier: UInt; value: PSingle): Boolean cdecl;
begin
  Result := False;
end;

然后，您可以调用 DLL 函数并像传递任何其他变量一样传递回调：

RegisterCallbackGetProperty(Callback);
于 2012-06-20T21:42:16.630 回答