.NET 互操作层和 COM 之间会发生什么？

Question

我在我的 C# .NET 项目中使用 COM。
但是，我调用的其中一种方法没有按预期运行。
所以我很想知道我的 .NET 代码、互操作层和 COM 之间发生了什么。
我知道tlbimp.exe 为 COM 组件生成元数据包装器，我可以在对象浏览器中看到这些生成的方法。
当调用这些包装方法之一时，我是否能够查看/调试会发生什么？

我将一个数组传递给下面的方法，并期望这个数组会被填充，但是数组不会被填充。 我正在调用以下tlbimp.exe 生成的方法，结果出乎意料：

int GetTags(System.Array buffer)
    Member of CServer.IUser

方法IDL：

[id(0x000000d5)]
HRESULT GetTags(
                [in] SAFEARRAY(long) buffer, 
                [out, retval] long* retval);  

.NET 代码调用此方法：

Array tagsArray = Array.CreateInstance(typeof(int), tagsLength);
userWrapper.GetTags(tagsArray);

我称之为的其他 COM 方法工作正常。但是，当我调用任何需要 Array 作为参数的方法时，它不会按预期工作。
我假设 COM 互操作编组器有一些有趣的地方。
所以我想知道在调用GetTags() 方法后是否可以看到发生了什么。

我还阅读了以下here。

"if you are not satisified with the COM Interop marshaller, you can "override" just about every aspect of it through the very large and useful System::Runtime::InteropServices namespace"

我怎样才能实现上述目标？

编辑：添加一个有效的 Delphi 测试脚本

procedure TComTestForm.TestUserBtnClick(Sender: TObject);
var
  nCnt :integer;
  User :IUser;
  Persona :IUserPersona;
  ArrayBounds :TSafeArrayBound;
  ArrayData :Pointer;
  TagList :PSafeArray;
  nSize :integer;
begin
  User := Session.GetUser;

  ArrayBounds.lLbound   := 0;
  ArrayBounds.cElements := 0;

  TagList := SafeArrayCreate( varInteger, 1, ArrayBounds );
  User.GetTags( TagList );
  if SafeArrayAccessData( TagList, ArrayData ) = S_OK then
    begin
      nSize := TagList.rgsabound[0].cElements;
      OutLine( '----Available Tags, ' + IntToStr(nSize) + ' tags' );
  for nCnt := 0 to nSize - 1 do
    begin
      OutLine( IntToStr( IntegerArray(ArrayData)[nCnt] ) );
    end;
  OutLine( '----');

  SafeArrayUnAccessData( TagList );
  SafeArrayDestroy( TagList );
    end;

end;

Answer 1

另一个更新： 我只是意识到您的意思可能是GetTags 本身应该填充该数组（来自COM 代码）。但这永远不会起作用，因为该参数是[in] 参数。

为了使 COM 组件能够填充该数组，它应该作为 [in, out] 参数并通过引用 (SAFEARRAY*) 传递。

---

更新：好的，显然我将在 .NET 中创建 COM 组件与从 .NET 中调用 COM 组件混合在一起。

CCW（com callable wrapper）确实为 COM SafeArray 提供了一个 .NET 数组。我看到您在问题的代码中创建了数组，但没有显示实际填充它的方式。也许该代码有问题？可以分享一下吗？

---

不确定这是否能解决您的问题，但我过去曾遇到过 COM-interop 和 SAFEARRAY 的问题。

我从中学到的一件事是，COM SAFEARRAY 的 .NET 等效项应始终为 object，因此请尝试将数组作为 object 而不是 Array 传递。

Answer 2

我犹豫是否建议将此作为答案，但是...

如果 Delphi 测试代码确实有效，如其他地方所述，这意味着 GetTags 方法不能按照 SAFEARRAY 规则正常运行。如果 COM 方法总是在进程内调用，您可以通过“手动”进行一些自定义编组来使 .NET 代码工作，完全按照非托管 Delphi 测试代码的操作。

作为一个粗略的大纲，我想这将涉及：

• 分配一个非托管缓冲区来保存数组值
• 通过 P/Invoke 调用 Ole Automation SAFEARRAY 初始化 API 以分配 SAFEARRAY 结构并将数组缓冲区作为其 pData 成员附加到它
• 使用此 SAFEARRAY 调用 GetTags 方法
• 在...之前将非托管缓冲区编组到托管数组中...
• 调用 Win32 API 销毁 SAFEARRAY

如果可以的话，最好将 COM 组件更改为正常工作。