在 VB6 中使用来自 C-Dll 的回调

Question

我必须将用 C 编写的 dll 的一些功能导入 VB6 项目。 我有一个用 C# 编写的示例，但我真的不知道如何在 VB6 中做同样的事情。

在 C# 中是这样的：

[UnmanagedFunctionPointer(CallingConvention.Cdecl)]
public delegate int someCallback(IntPtr ch, uint chL, IntPtr cbData);

[DllImport("someDLL.dll", CallingConvention = CallingConvention.Cdecl)]
private static extern int someFunction(IntPtr con, someCallback callback, IntPtr cbData);

调用someFunction时，示例中的一切正常。

dll 的文档只是给了我这个：

typedef int(SOMEAPI_CALL * someCallback)(const unsigned char *ch,
                                         unsigned int         chL,
                                         void                *cbData)

SOMEAPI_CALL someFunction(Con*         con,
                          someCallback callback,
                          void*        cbData)

在 VB6 中应该有一种方法可以做到这一点，但我对这种语言没有太多经验。 搜索了 web 一段时间，但没有找到任何可以帮助我的东西。

我知道如何在我的项目中从 dll 声明函数，但仅此而已。 如何将此UnmanagedFunctionPointer东西转换为 VB6 代码，我只是不知道。

Answer 1

VB6 没有 VB.NET（和 C#）那样的属性，无论如何注释都是不必要的。 您可以通过运算符将 function 指针传递给 C AddressOf ZC1C425268E68385D1AB5074

Declare Function someFunction Lib "someDLL" ( _
    ByVal con As Long, _
    ByVal callback As Long, _
    ByVal data As Long _
) As Long

…

Call someFunction(con, AddressOf SomeCallback, data)

但即使这样也行不通，因为 VB6 不支持使用 cdecl 调用约定的本机互操作，它只支持 stdcall。 您将需要使用 stdcall 调用约定重新编译您的 DLL，或者在 C 或 IDL 中创建一个包装器（有一些黑客使用内联汇编来包装单个 cdecl 调用，但我不建议使用这些）。