DLLImport get 尝试读取或写入受保护的内存

Question

我要疯了。

我有一个dll，具有以下功能：

function MyFunc(myId: integer; var LstCB: array of char): integer; stdcall;

第一个参数是一个可怜的整数。 但第二个是一个 char[2048] ，它得到这样的东西

('9', #13, #10, '8', '8', '8', '8', '0', '0', '0', '0', '0', '0', '0', '0', '2', '5', '0', '7', #13, #10, '8', '8', '8', '8', '0', '0', '0', '0', '0', '0', '0', '0', '2', '6', '0',  #13, #10, '8', '8', '8', '8', '0', '0', '0', '0', '0', '0', '0', '0', '3', '3', '1', '5', #13, #10, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0, #0,....#0)

我用 DllImport 导入了它：

[DllImport(@"MyDll.dll", EntryPoint = "MyFunc", CallingConvention = CallingConvention.StdCall)]
internal static extern int MyFunc(int myId, string list);

我得到：

Attempted to read or write protected memory. This is often an indication that other memory has been corrupted.

你有什么想法吗？？？

谢谢。

Answer 1

您的 Delphi 函数使用开放数组作为字符串参数。这不应该跨 DLL 边界公开。调用 Delphi 开放数组的协议是特定于实现的。

您应该更改 Delphi 代码以接收 PChar。

function MyFunc(myId: Integer; LstCB: PChar): Integer; stdcall;

如果数据从 C# 传递到 Delphi DLL，那么您的 P/invoke 就没有问题。如果 DLL 旨在将数据返回到 C# 代码，那么您需要在 P/invoke 中将文本参数声明为 StringBuilder。

[DllImport(@"MyDll.dll", EntryPoint = "MyFunc", CallingConvention = CallingConvention.StdCall)]
internal static extern int MyFunc(int myId, StringBuilder list);
...
StringBuilder list = new StringBuilder(2048);
int res = MyFunc(ID, list);
string theList = list.ToString();

唯一需要注意的是 Delphi 中 char 的含义。如果 DLL 是使用 Delphi 2009 或更高版本构建的，则 char 是 Unicode 字符，您需要在 P/invoke 中指定 CharSet。