从 C# 代码调用 delphi DLL 函数

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。主要问题是两个对象回调。 C# 中没有办法匹配这一点。您将需要修改现有的 DLL 或添加中间适配器 DLL。按照目前的情况，您的 DLL 只能从 Delphi 或 C++ Builder 访问。

如果您可以修改 DLL，那么您需要进行的修改就是删除对象的。如果您需要回调来作用于实例，那么您需要将该实例作为参数传递。然而，C# 委托可以透明地包装所有这些，因此如果您需要从其他语言（例如 Delphi）访问 DLL，则只需将实例作为参数传递。

另一个问题是开放数组参数。从其他语言也不容易访问到这一点。虽然有 技巧，我建议传递对第一个元素的引用而不是开放数组。开放数组是 Delphi 所独有的。

我也不明白为什么你使用 byte 类型来保存数组长度。为此，您应该使用Integer。使用字节没有任何好处，而且只会导致溢出。另外，MainWindowHandle 在 Delphi 中不应该是 THandle。它应该是HWND。

我对您的建议是修改 DLL 以具有 C 兼容接口，从而可以从支持该接口的所有语言进行访问。实际上，这将使所有主流编程语言都可以访问它。