从 Delphi 调用 dotNET 并返回一个字符串

Delphi 应用程序如何调用导出函数（非 COM）dotNET 程序集并让该函数返回字符串？

对于我的特定应用程序来说，COM 不是一个可能的解决方案。我可以控制通话的两端。

到目前为止我所尝试过的 - Delphi 客户端

type
  TStrProc = procedure( var x: widestring); stdcall;

function TryIt: string;
var
  Handle: THandle;
  Proc: TStrProc;
  InData: widestring;
  OutData: widestring;
begin
  Handle    := LoadLibrary( 'DelphiToDotNet.dll');
  if Handle = 0 then exit;
  @Proc := GetProcAddress( Handle, 'StrProc');
  if @Proc <> nil then
    begin
    InData := 'input';
    Proc( InData);
    OutData := InData;
    end;
  FreeLibrary( Handle);
  result := OutData
end;

dotNET dll端

public class DotNetDllClass
{
  [DllExport]
  public static string StrProc(ref string s)
  {
      return "Hello from .Net " + s;
  }
}

什么有效

我可以成功地将整数传入和传出 dotNET 过程。 我可以成功地将字符串（Delphi 端的宽字符串）传递到 dotNET 过程中。

什么不起作用

在上面的两个清单中，返回的字符串参数是垃圾。访问它会导致 AV。

环境

Delphi XE7、dotNET 4、Win 7、32 位应用程序和 dll。

与Delphi相匹配的C#代码应该是：

[DllExport]
public static void StrProc(
    [MarshalAs(UnmanagedType.BStr)] 
    ref string s
)
{
    s = "Hello from .Net " + s;
}

请注意，返回类型是void以匹配您的 Delphi 代码。而且我用过UnmanagedType.BStr匹配WideString。这是编组文本的最简单方法，因为分配是由两个编译器自动执行的。

不要因为尝试将字符串作为封送的返回值传递而陷入困境BStr。 Delphi 不使用与其他编译器相同的 ABI，请参阅为什么 WideString 不能用作互操作的函数返回值？