无论输入如何，BPL 中的 C# P/Invoked 函数都返回指向 Delphi 记录的相同指针

Question

我正在尝试使用我无法访问其代码的外部 BPL 包中的函数。

虽然我在 Delphi 中取得了成功，但在 C# 中，无论输入如何，我仍然获得相同的价值。

BPL在Delphi中的外部使用

type
  PRecord = ^TRecord;
  TRecord = packed record
      S: string;
      LW: LongWord;
  end;    

function GetValue(W : Word) : PRecord; external 'package.bpl' name '@Unit@Function$qqrus';

用不同的输入调用GetValue()返回不同的记录，这是正确的。

BPL 在 C# 中的外部使用

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct TRecord
{
    public string S;
    public int LW;
}
        
[DllImport("package.bpl", EntryPoint = "@Unit@Function$qqrus", CharSet = CharSet.Unicode)]
static extern IntPtr GetValue(ushort number);
    
public static TRecord GetDelphiValue(ushort number)
{
    var ptr = GetValue(number);
    return (TRecord) Marshal.PtrToStructure(ptr, typeof(TRecord))
}

使用不同的输入调用GetDelphiValue() 总是返回相同的指针，因此返回结构。

我错过了什么？

Answer 1

function GetValue(W : Word) : PRecord; 
  external 'package.bpl' name '@Unit@Function$qqrus';

这个函数使用Delphi的默认调用约定，即register。其他工具不支持此功能，因此无法从您的 C# 代码中调用此函数。

您需要在您的 C# 代码和 Delphi 包之间放置一个 Delphi DLL。该Delphi DLL 将能够调用register 调用约定函数，并且可以导出具有stdcall 调用约定的函数供您的C# 代码调用。

此外，您还有机会解决因使用 Delphi string 类型而导致的任何潜在问题，这也是 Delphi 私有的。

对于它的价值，我非常怀疑该函数是否确实返回了指向记录的指针。我认为这更有可能是一个将记录作为var 或out 参数的过程。而且我确实认为很可能存在与该字符串的生命周期有关的问题。实际上，您不能期望使用没有关于其接口信息的二进制模块。