如何从 C# 调用这个 delphi .dll 函数？

Question

//delphi代码（delphi版本：Turbo Delphi Explorer（Delphi 2006））

function GetLoginResult:PChar;
   begin
    result:=PChar(LoginResult);
   end; 

//使用上面delphi函数的C#代码（我用的是unity3d，inside，C#）

[DllImport ("ServerTool")]
private static extern string GetLoginResult();  // this does not work (make crash unity editor)

[DllImport ("ServerTool")] 
[MarshalAs(UnmanagedType.LPStr)] private static extern string GetLoginResult(); // this also occur errors

在 C# 中使用该函数的正确方法是什么？

(也可以在delphi中使用，代码就像， if (event=1) and (tag=10) then writeln('登录结果：',GetLoginResult); )

Answer 1

字符串的内存归您的 Delphi 代码所有，但您的 p/invoke 代码将导致编组器在该内存上调用 CoTaskMemFree。

你需要做的是告诉编组器它不应该负责释放内存。

[DllImport ("ServerTool")] 
private static extern IntPtr GetLoginResult();

然后使用Marshal.PtrToStringAnsi()将返回值转换为C#字符串。

IntPtr str = GetLoginResult();
string loginResult = Marshal.PtrToStringAnsi(str);

您还应该通过将 Delphi 函数声明为 stdcall 来确保调用约定匹配：

function GetLoginResult: PChar; stdcall;

虽然这种调用约定不匹配对于没有参数和指针大小的返回值的函数来说并不重要。

为了使这一切正常工作，Delphi 字符串变量LoginResult 必须是一个全局变量，以便其内容在GetLoginResult 返回后有效。