0

专有 DLL 标头中有声明：

class CJDummyClass
{
};
typedef CJDummyClass * J_IMG_CALLBACK_OBJECT;
#ifdef __BORLANDC__
  typedef void (__stdcall*J_IMG_CALLBACK_FUNCTION)(J_tIMAGE_INFO * pAqImageInfo);
#else
  typedef void (CJDummyClass::*J_IMG_CALLBACK_FUNCTION)(J_tIMAGE_INFO * pAqImageInfo);
#endif

还有一个导出函数将回调函数链接到DLL，然后可以通过指针pAqImageInfo处理一些放在内存中的数据

我在 FreePascal 中使用这个 DLL 编写应用程序，几乎所有我需要的东西都成功翻译、动态链接并包装到一个类中，但现在我遇到了回调函数的问题。这是我的代码的一部分：

interface
type
  pJ_tIMAGE_INFO = ^J_tIMAGE_INFO;
  TJ_IMG_CALLBACK_FUNCTION = procedure( const pAqImageInfo: pJ_tIMAGE_INFO ) of object; cdecl;
  PJ_IMG_CALLBACK_FUNCTION = ^TJ_IMG_CALLBACK_FUNCTION;

  TJaiFactory = class( TObject )
  .....
    procedure ImageCallback( const pAqImageInfo: pJ_tIMAGE_INFO ); cdecl;
  .....
  end;
implementation
procedure TJaiFactory.ImageCallback(pAqImageInfo: pJ_tIMAGE_INFO); cdecl;
begin
  // some data processing here
end;

我的 ImageCallback 我得到了 pAqImageInfo = nil 而不是一些实际的指针。我怀疑我必须以其他方式为回调定义类型或参数，但我不知道如何。

第一个问题：如果在 C++ 中有一个 void 函数，那么据我所知，它是 Pascal 方面的过程，它应该被定义为过程或带有一些指针结果的函数（但没有实际结果）？

第二个问题：如果函数在 C++ 中声明为类的成员，那么将此函数的类型转换为 Pascal 的正确方法是什么？我不确定“this”指针发生了什么。

谢谢你。

4

2 回答 2

1
  1. procedure 相当于 C/C++ 中的 void 函数。
  2. 在 Visual C++ 中，this指针在ecx寄存器中传递，成员函数的默认调用约定等效于__stdcall除非您传递可变参数，否则它将更改为__cdecl. 除了调用约定外，您的回调应该是正确的。
于 2013-05-15T13:04:12.560 回答
0
  1. *bla() 等价于 bla()。IOW 函数 TYPE 隐含地是 Pascal 中的指针。
  2. C++ 类不能在不同的编译器中表示。即使是两个 C++ 编译器也可能有不同的表示。
  3. 作为 (2) 的结果，函数类型不是 OF OBJECT。它不是 Pascal 类。OF OBJECT 将使函数类型成为两个指针类型（实例+地址），afaik 一个 C++ 没有的概念。

所以

 Type
    J_IMG_CALLBACK_FUNCTION = procedure (pAqImageInfo:Pointer); StdCall; 
 // or cdecl depending on compiler

是一个合理的近似值。

于 2013-05-15T19:45:49.107 回答