当接收对象是C＃COM对象并且函数具有接口作为参数时，VBScript引发异常

问题描述

| 这是我的VBScript代码

Set object= CreateObject(\"Demo. Object\")
Set service= CreateObject(\"Demo.ManageServer \")
service.SetObject object

我收到以下消息：   错误：无效的过程调用或   参数：“ Service.SetObject”代码：   800A005 Demo.Service是C＃COM对象

[ProgId(\"Demo.ManageServer\")]
[Guid(\"A4F0A0F0-9C0C-4C71-AD58-A36F750D92FE\")]
[ComVisible(true)]
public class MyServer :IMyServer
{
    public void SetObject (IMyObject obj) { … }     
}

界面：

[TypeLibType(TypeLibTypeFlags.FDual | TypeLibTypeFlags.FNonExtensible | TypeLibTypeFlags.FDispatchable)]
[Guid(\"B3ACBCAD-5ED3-4113-B9D2-FC67FA49012B\")]
public interface IMyServer
{
     [DispId(1)]
     void SetObject (IMyObject obj);
}

注意： 1）当我向函数发送“ Nothing”作为参数时，它工作正常 2）当我更改函数的接口以接收对象时，它也可以再次工作。 您知道为什么在函数签名中使用显式Type时，VBScript引发异常吗？ 我已经尝试过了，它不起作用。 此外， 如果接收方是C ++ COM对象，则可以同时发送管理对象和非管理对象 如果接收者是C＃COM对象，则只有在使用括号的情况下才能传递管理对象 manageServer.PrintType（nativeObject） 没有括号，我会收到同样的异常 但是，如果我尝试将非托管对象发送到非托管代码中，则无济于事     

解决方法

        如果使用对象，则CLR将接受VBS传递的IDispatch参考。 然后将其转换为接口类型时，CLR将使用常规的QueryInterface方法。 当您将参数标记为这样时，可能会很幸运：

 [DispId(1)]
 void SetObject ([UnmanagedType.Interface]IMyObject obj);

这应该告诉CLR，它将收到与IUnknown兼容的内容，并且应尝试使用QueryInterface将其转换为您的接口类型。