C# 互操作 Delphi DLL

Question

我有一个用 Delphi "a.dll" 编写的第三方 DLL（无源代码）。

这个 DLL 有一个带有这个签名的方法。

function GetAny(pFileName: String): String;

我无法从 c# 进行互操作调用，因为“字符串类型”在 delphi 中具有私有访问权限。

因此，在 delphi 中构建另一个 DLL 来包装该调用。

德尔福。

function GetAny(pFileName: String): String; external 'a.dll'

function GetWrapper(url : PChar) : PChar; stdcall;
begin
    Result := PChar(GetAny(url)); // I need avoid this String allocation, is throwing a exception.
end;

C#。

[DllImport("wrapper.dll", CallingConvention = CallingConvention.StdCall, CharSet = CharSet.Ansi)]
public static extern IntPtr GetWrapper(String url);

在“GetWrapper”内部，我调用了外部“GetAny”，结果正常（在 delphi 中我可以调试），但在我将这个结果返回到 c# 端之前，它抛出了一个异常。

IntPtr test = GetWrapper("a");
String result = Marshal.PtrToStringAnsi(test);

Answer 1

您的包装 DLL 也无法调用 GetAny，因为字符串是托管的 Delphi 类型，不能跨模块边界传递。

问题是 GetAny 的返回值在一个模块中分配并在另一个模块中释放。它在实现 GetAny 的 DLL 中分配，并在调用 GetAny 的 DLL 中释放。由于这两个 DLL 使用不同的内存管理器，因此您最终会尝试释放分配在不同堆上的内存。

如果可以说服实现 GetAny 的 DLL 共享内存管理器，那么您可以轻松解决该问题。

不过，我确实质疑您提出的事实。就目前而言，除非 DLL 设计为与 ShareMem 一起使用，否则永远无法安全地调用该函数。

如果你准备泄漏内存，你可以试试这个：

德尔福

function GetAny(pFileName: string): PChar; external 'a.dll'

procedure GetWrapper(url: PChar; out value: WideString); stdcall;
var
  P: PChar;
begin
    P := GetAny(url);
    if Assigned(P) then
      Value := P
    else
      Value := '';
end;

C#

[DllImport("wrapper.dll"]
public static extern void GetWrapper(
    string url,
    [MarshalAs(UnmanagedType.BStr)]
    out string value
);

Answer 2

我已经下载了你的代码...

解决方案可能是这样的：

• 在 Delphi 中使用“cdecl”声明创建一个包装过程，其中包含 2 个 PChar 类型的参数

  • 第一个是IN参数
  • 第二个是OUT参数

原德尔福函数：

function GetAny(pFileName: String): String; external 'a.dll';

Delphi – 带有包装函数的 DLL：

 procedure GetWrapper (url: PChar; var urlNew: PChar) cdecl;
 var str: string;
 begin
      urlStr = string(url);
      urNewStr := GetAny(urlStr);
      urlNew := PChar(urNewStr);
 end;

 exports
    GetWrapper;
 begin
 end.

• 在 Visual Studio 中：

将项目设为 x32 位（不是示例中的 x64）

• 将 DLL 导入为 Cdecl

[DllImport("wrapper.dll", CallingConvention = CallingConvention.Cdecl, CharSet = CharSet.Ansi)]

• 编组

public static extern void GetWrapper ([MarshalAs(UnmanagedType.LPStr)]string url, [MarshalAs(UnmanagedType.LPStr)] out string urlNew);

• 在 C# 中调用：

  字符串文件名；// = @"wertwertwertwertwer";

  GetWrapper("2.jpg", out fileName);

  Console.WriteLine(fileName);

在我的环境中它有效。 （德尔福 5 和 VS2012）。

希望它也对你有用。