我有一个现有的 COM DLL,当前通过 VB 包装类访问(只有一个函数)并从 C# 类调用。
我正在尝试将回调添加到我的 C# 代码中(4 个单独的回调)。我选择的方法是我发现的唯一方法,但我遇到了问题。
它说“无法在 DLL 'xxxx' 中找到名为 'InitDotNet' 的入口点。
我的 DLL 头文件:
extern "C"
{
#define DLL __declspec(dllexport)
typedef void (__stdcall * CB_func1)(int);
typedef void (__stdcall * CB_func2)(char *);
DLL void InitDotNet(CB_func1 func1, CB_func2 func2);
}
...
class CComInterface : public CCmdTarget
...
afx_msg void mainCall(short parm1, LPCTSTR parm2);
...
我的 DLL C++ 文件:
...
CB_func1 func1Function;
CB_func2 func2Function;
...
IMPLEMENT_DYNCREATE(CComInterface, CCmdTarget)
...
BEGIN_DISPATCH_MAP(CComInterface, CCmdTarget)
DISP_FUNCTION(CComInterface, "mainCall", mainCall, VT_EMPTY, VTS_I2 VTS_BSTR)
END_DISPATCH_MAP()
...
IMPLEMENT_OLECREATE(CComInterface, "MyDll.Interface", ...)
...
void CComInterface::mainCall(short parm1, LPCTSTR parm2)
{
...
// at various times call func1Functoin and func2Function
...
}
DLL void InitDotNet(CB_func1 func1, CB_func2 func2)
{
func1Function = func1;
func2Function = func2;
}
我的 VB 包装器如下所示:
Public Class MyWrapperClass
Private Shared Protocol As Object = CreateObject("MyDll.Interface")
Public Shared Sub mainCall(ByVal parm1 As Short, ByVal parm2 As String)
Protocol.mainCall(parm1, parm2)
End Sub
End Class
我的 C# 代码如下所示:
...
using System.Runtime.InteropServices
namespace MyNamespace
{
public partial class MyForm : AnotherForm
{
...
[UnmanagedFunctionPointer(CallingConvention.StdCall)]
public delegate void func1Callback(int value);
[UnmanagedFunctionPointer(CallingConvention.StdCall)]
public delegate void func2Callback(string value);
[DllImport("mycppdll.dll")]
public static extern void InitDotNet([MarshalAs(UnmanagedType.FunctionPtr)] func1Callback f1c,
[MarshalAs(UnmanagedType.FunctionPtr)] func2Callback f2c);
...
private void MyFunc()
{
func1Callback f1c =
(value) =>
{
// work here
};
func2Callback f2c =
(value) =>
{
// work here
};
InitDotNet(f1c, f2c);
MyWrapperDll.MyWrapperClass.mainCall(1, "One");
}
有人对我做错了什么有任何想法吗?