FreePascal 64 位 DLL 和调用 C# 应用程序

Question

我正在尝试编译一个 64 位 dll 以用于 64 位 C# 应用程序。我有一个简单的类和一个简单的应用程序来尝试和测试它，无论我尝试做什么，它都会失败。代码如下：

德尔福

library project1;

{$mode objfpc}{$H+}

uses
  Classes;


function Encrypt(aName:PChar):PChar;stdcall;
begin
  Result := aName;
end;


exports Encrypt;

begin
end.

C#

 [DllImport("project1.dll")]
    [return: MarshalAs(UnmanagedType.LPStr)]
    public static extern String Encrypt([MarshalAs(UnmanagedType.LPStr)] String aName);

任何人都可以看出它有什么问题吗？如果不想创建相同的简单场景来尝试让它发挥作用，那么我已经走到了尽头！

Answer 1

问题在于 C# 编组器将临时内存块作为 aName 传递给函数。该内存在函数返回时被销毁。但是您还要求 C# 编组器将同一块内存编组为 C# 字符串。

无论如何，从本机 DLL 函数返回以空字符结尾的字符串并不是一个好习惯。您有两种选择：

1. 在 C# 端使用 StringBuilder 为字符串预分配内存。这需要您以某种方式掌握所需的大小。这是互操作字符串的最常见方式。
2. 将字符串作为 COM BSTR 返回，C# 编组器知道如何编组和处置 BSTR，并且可以访问 COM 分配器来执行此操作。我不知道如何在 FreePascal 中使用 BSTR，但在 Delphi 中您只需使用 WideString。您还需要告诉 C# 编组器您正在返回 BSTR。

我个人偏爱选项 2。不过有一个问题，那就是不同的编译器对函数返回值使用不同的 ABI，如以下问题所述：Why can a WideString not be used as a function return value for interop? 解决此问题的简单方法是返回参数中的字符串而不是使用函数返回值。

代码如下所示：

帕斯卡

procedure Encrypt(Input: WideString; out Output: WideString); stdcall;
begin
  Output := Input;
end;

C#

[DllImport("project1.dll")]
public static extern void Encrypt(
    [MarshalAs(UnmanagedType.BStr)] string input;
    [MarshalAs(UnmanagedType.BStr)] out string output
);