Question

我有一个在Delphi 2007中编译的DLL和一个在其他Delphi项目中使用它的例子。这是代码的一部分：

TErrorCallback = function(Msg:PChar):byte of object;
TSaveEventCallback = function (Line:PChar; HiCode:PChar; LoCode:PChar; MobileNo:PChar):byte of object;

function InitModule(ErrorCallback:TErrorCallback; SaveEventCallback :TSaveEventCallback; MainWindowHandle:THandle; Sock_Event:integer):byte; stdcall; external 'My.dll' name 'InitModule';

function DLLSocketEvent(var msg: TMessage): byte; stdcall; external 'My.dll' name 'DLLSocketEvent';

function InitObjList(Objs: array of PChar; NumObjs: byte; Name: PChar):byte; stdcall; external 'My.dll' name 'InitObjList';

这是我的C＃模拟：

class Message
{
  unsigned int msg;
  int wParam;
  int lParam;
  int result;
};
delegate byte ErrorCallbackDelegate(string msg);
delegate byte SaveEventCallbackDelegate(string line, string hiCode, string loCode, string mobileNo);

[DllImport("My.dll")]
static extern byte InitModule(ErrorCallbackDelegate errorCallback, SaveEventCallbackDelegate saveEventCallback, IntPtr mainWindowsHandle, Int32 sockEvent);

[DllImport("My.dll")]
static extern byte DllSocketEvent(Message msg);

[DllImport("My.dll")]
static extern byte InitObjList(string[] objs, byte numObjs, string name);

重点是我只尝试过InitModule方法并抛出异常：调用PInvoke函数'ProjTest！ProjTest.MyClass :: InitModule'使堆栈失衡。这很可能是因为托管PInvoke签名与非托管目标签名不匹配。检查PInvoke签名的调用约定和参数是否与目标非托管签名匹配。

请帮帮我。我该如何在C＃中描述这些DLL函数？

Answer 1

您无法从C＃调用该DLL。主要问题是两个of object回调。在C＃中没有办法匹配它。您将需要修改现有DLL或添加中间适配器DLL。目前，您的DLL只能从Delphi或C ++ Builder访问。

如果您可以修改DLL，那么您需要进行的修改是删除of object。如果需要回调来对实例执行操作，则需要将实例作为参数传递。但是，C＃委托可以透明地包装所有内容，因此如果您需要从其他语言访问DLL，您只需将实例作为参数传递，例如， Delphi的。

另一个问题是open数组参数。这也不容易从其他语言访问。虽然有tricks，但我建议将引用传递给第一个元素而不是开放数组。开放数组是Delphi独有的。

我也不明白为什么使用byte类型来保存数组长度。您应该使用Integer。使用byte没有任何好处，你只需要邀请溢出。此外，MainWindowHandle在Delphi中不应该是THandle。它应该是HWND。

我对你的建议是修改DLL以具有C兼容接口，因此可以从支持它的所有语言访问。在实践中，这将使其可以从所有主流编程语言访问。

从C＃Code调用delphi DLL函数

1 个答案: