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

Question

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 side

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。

Answer 1

匹配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，请参阅Why can a WideString not be used as a function return value for interop?