本机 DLL - C#

Question

我有用 Delphi 编写的本地 DLL 库。我想从 C# 中引用这个库并得到返回的字符串。

功能

function GetCode (aUser,aPassword: PAnsiChar): PAnsiChar; stdcall;

C#代码

[DllImport("C:\\library.dll", CallingConvention = CallingConvention.StdCall,
        CharSet = CharSet.Ansi)]
private static extern String GetCode([MarshalAs(UnmanagedType.LPStr)]string aUser, [MarshalAs(UnmanagedType.LPStr)]string aPassword);

public String getCode(String login, String password) {
        return GetCode(login, password);
}

尝试调用函数应用程序退出，代码为 -1073740940 (0xc0000374)。

你有过期的吗？谢谢你的帮助

Answer 1

返回值为string，编组器负责释放返回的字符串。它通过调用CoTaskMemFree 来实现。毫无疑问，您的字符串没有在 COM 堆上分配。因此出现错误，即STATUS_HEAP_CORRUPTION 的NTSTATUS 错误代码。

您的 p/invoke 应该返回 IntPtr 来避免这种情况：

[DllImport("C:\\library.dll", CallingConvention = CallingConvention.StdCall,
    CharSet = CharSet.Ansi)]
private static extern IntPtr GetCode(string aUser, string aPassword);

要获取字符串，请将返回值传递给Marshal.PtrToStringAnsi。

public string getCode(string login, string password) 
{
    IntPtr retval = GetCode(login, password);
    string result = Marshal.PtrToStringAnsi(retval);
    // how do we deallocate retval
    return result;
}

还要注意我删除了多余的MarshalAs 属性。 CharSet.Ansi 负责输入参数的编组。

您仍然需要弄清楚如何释放返回的内存。我们不知道它是如何分配的。您需要联系 Delphi 代码的开发人员，或阅读源代码。如果使用了本机 Delphi 堆，请不要感到惊讶，这会让您陷入困境。通过调用CoTaskMemAlloc 来使用COM 堆实际上是一个不错的选择，然后你原来的p/invoke 返回值string 就可以了。

其他选项包括导出释放器或要求调用者分配缓冲区。网上有很多关于如何实现各种选项的示例。