C 回调函数在对象 pascal 上崩溃

C callback function crash on object pascal

本文关键字：pascal 崩溃 对象 回调 函数      更新时间：2023-10-16

我正在创建一个如下所示的C dll。

#ifdef TEST_EXPORTS
#define TEST_API __declspec(dllexport)
#else
#define TEST_API __declspec(dllimport)
#endif
#ifdef __cplusplus
extern "C" {
#endif
/* fun accept an argument status_callback which is a function pointer*/
TEST_API void fun(void(*status_callback)(int));
#ifdef __cplusplus
}
#endif

乐趣实现为：

void fun(void(*status_callback)(int)) {
status_callback(0);
}

当在带有 delphi xe 的对象 pascal 上使用此 dll 时，如下所示，我在回调函数的地址出现访问冲突时

崩溃
type
TStatusCallBack = procedure( Value: Integer ); stdcall;
T_fun = procedure(cb : TStatusCallback );
procedure BCallBack( Value: Integer ); stdcall;
begin
BStatus := value;
end;
begin
_fun(BCallBack);
end;

实例化代码：

DLLHandle := LoadLibrary( ‘mylib.dll’ );
if (DLLHandle > HDLL_ERROR) then
begin
_fun := T_fun(GetProcAddress( DLLHandle, 'fun');
end;

问题出在哪里？因为我是C的菜鸟，所以有什么评论吗？？

我们缺少重要的细节。我们看不到C++方面实施fun，也看不到您如何在德尔福方面宣布_fun。

但是，我们可以看到一个错误。回调的调用约定不匹配。C++代码将回调定义为__cdecl。您需要使用cdecl在德尔福方面进行匹配，而不是stdcall.

同样，我希望您的 Delphi 代码会为_fun弄错调用约定。同样应该cdecl，但错误消息表明您的声明实际上是register。

总之，对德尔福代码进行以下更改：

  • 将回调函数类型声明为cdecl。
  • 将实现回调的函数声明为cdecl。
  • 将fun的导入声明为cdecl。

查看您的编辑，您对LoadLibrary返回值的错误检查是错误的。错误由返回值为零表示。将相等与零进行比较以测试失败。

调用GetProcAddress时也无法检查错误。您需要处理返回nil的情况。同样，这可能会导致编写的代码出现运行时错误。

您编辑中的代码显示我所有的猜测都是正确的。解决方案如上面的要点中所述。

相关文章：