从 Delphi 7 调用具有 ref String 参数的 C# .Net 方法

Question

修改后的问题：

我们使用 D7 调用 COM 对象中的 C# 方法。 C# 方法返回一个 WideString。

当我们在 Pascal 代码中使用返回的 WideString 时，.NET 是否存在垃圾收集我们脚下返回的 WideString 的风险？如果是这样，我们有什么替代方法可以安全地从 C# COM 对象返回字符串？

另外，我们最后的 Delphi 行 SubMan := nil 是释放 COM 对象的正确方法吗？

C# 代码

    [DispId(5)] 
    bool Test(int var1, ref int var2, ref string var3); 


    public bool Test(int var1, ref int var2, ref string var3) 
    { 
        bool result; 
        if (var1 == 0) 
        { 
            var2 = 0; 
            var3 = "zero"; 
            result = true; 
        } 
        else 
        { 
            var2 = -1; 
            var3 = "minus one"; 
            result = false; 
        } 
        return result; 
    } 

来自 D7 中生成的 TLB 的帕斯卡代码

function Test(     var1: Integer; 
               var var2: Integer; 
               var var3: WideString): WordBool; dispid 5;

调用 COM 对象的 Pascal 代码。 var3 是否有被 GC-ed 的风险？

procedure TForm1.Button1Click(Sender: TObject);
var
  SubMan: TSubMan;
  Var1: Integer;
  Var2: Integer;
  Var3: WideString;
  FunctionResult: Boolean;
begin
  SubMan :=  COTSubMan.Create;
  Var1 := 1;
  FunctionResult :=  SubMan.Test(Var1, Var2, Var3);  
  // Will Var3 above be persistent in the code 
  // or might it be garbage collected by .NET before we can use it below or later?
  ShowMessage( BoolToStr(FunctionResult, TRUE) + 
               ' Var2 = ' + IntToStr(Var2) + 
               ' Var3 = ' + Var3);
  SubMan := nil;  // Is this the right way to release the COM object?
end;

Answer 1

使用BSTR 类型是最简单的方法，因为 COM 将处理内存（解除）分配。

例如：

德尔福：

function ReturnString(out TheString: WideString): Boolean; stdcall;
begin
  try
    TheString := 'Hello World';
  finally
    Result := True;
  end;
end;

C#：

[DllImport("mydll.dll", CallingConvention=CallingConvention.StdCall)]
public static extern bool ReturnString([MarshalAs(UnmanagedType.BStr)]out string TheString); 

Answer 2

您问题中的代码很好。 COM 编组器为您处理两个ref 参数的生命周期。 GC 没有危险，因为参数的语义被清楚地表达了。您在 Delphi 端使用的对象不是 .net 对象，因此不受 GC 影响。

确实，GC 不是一个因素，因为这是 COM。在另一端有一个 .net 对象实现了 COM 服务器这一事实既不存在也不存在。 .net COM 互操作层有责任向您提供有效的 COM 对象。

确认一下，即使字符串最初是在 C# COM 对象中分配的，在我们的 Delphi Button1Click 方法中使用 var3 是安全的吗？

是的。请记住，这是 COM，二进制互操作的标准。你不需要太在意细节。 FWIW，WideString 是围绕 COM BSTR 类型的 Delphi 包装器。该字符串类型是一个 UTF-16 编码的字符串，经过引用计数，并在共享 COM 堆外分配。最后一点很重要。 BSTR 实例来自共享 COM 堆这一事实允许它们在一个模块中分配，并在另一个模块中释放。

SubMan := nil 是释放 COM 对象的正确方法吗？

是的。尽管在这段代码中它有点毫无意义，因为局部变量即将离开作用域，这将与您的 nil 分配产生完全相同的效果。