Question

我有一个.NET程序集，我通过COM互操作从VBScript（经典ASP）访问。一个类有一个索引器（a.k.a.默认属性），我通过向索引器添加以下属性从VBScript开始工作：[DispId(0)]。它适用于大多数情况，但不能作为另一个对象的成员访问该类。

如何使用以下语法使其工作：Parent.Member("key")其中Member具有索引器（类似于访问内置Request.QueryString的默认属性：Request.QueryString("key")）？

在我的情况下，有一个父类TestRequest，其QueryString属性返回IRequestDictionary，它具有默认的索引器。

VBScript示例：

Dim testRequest, testQueryString
Set testRequest = Server.CreateObject("AspObjects.TestRequest")
Set testQueryString = testRequest.QueryString
testQueryString("key") = "value"

以下行导致错误而不是打印“值”。这是我想要使用的语法：

Response.Write(testRequest.QueryString("key"))

Microsoft VBScript运行时（0x800A01C2）
错误的参数数量或无效的属性赋值：'QueryString'

但是，以下行执行无错误地工作并输出预期的“值”（请注意，第一行访问临时变量的默认索引器）：

Response.Write(testQueryString("key"))
Response.Write(testRequest.QueryString.Item("key"))

以下是C＃2.0中的简化接口和类。它们已通过RegAsm.exe /path/to/AspObjects.dll /codebase /tlb注册：

[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IRequest {
    IRequestDictionary QueryString { get; }
}

[ClassInterface(ClassInterfaceType.None)]
public class TestRequest : IRequest {
    private IRequestDictionary _queryString = new RequestDictionary();

    public IRequestDictionary QueryString {
        get { return _queryString; }
    }
}

[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IRequestDictionary : IEnumerable {
    [DispId(0)]
    object this[object key] {
        [DispId(0)] get;
        [DispId(0)] set;
    }
}

[ClassInterface(ClassInterfaceType.None)]
public class RequestDictionary : IRequestDictionary {
    private Hashtable _dictionary = new Hashtable();

    public object this[object key] {
        get { return _dictionary[key]; }
        set { _dictionary[key] = value; }
    }
}

我尝试过研究和试验各种选项，但还没有找到解决方案。任何帮助将不胜感激，以弄清楚为什么testRequest.QueryString("key")语法不起作用以及如何使其工作。

注意：这是Exposing the indexer / default property via COM Interop的后续内容。

更新：以下是类型库中生成的IDL（使用oleview）：

[
  uuid(C6EDF8BC-6C8B-3AB2-92AA-BBF4D29C376E),
  version(1.0),
  custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, AspObjects.IRequest)

]
dispinterface IRequest {
    properties:
    methods:
        [id(0x60020000), propget]
        IRequestDictionary* QueryString();
};

[
  uuid(8A494CF3-1D9E-35AE-AFA7-E7B200465426),
  version(1.0),
  custom(0F21F359-AB84-41E8-9A78-36D110E6D2F9, AspObjects.IRequestDictionary)

]
dispinterface IRequestDictionary {
    properties:
    methods:
        [id(00000000), propget]
        VARIANT Item([in] VARIANT key);
        [id(00000000), propputref]
        void Item(
                        [in] VARIANT key, 
                        [in] VARIANT rhs);
};

Answer 1

我对这个问题的调查结果：

问题与公共语言运行时在将双接口和调度接口暴露给COM时使用的IDispatch实现有关。

VBScript（ASP）等脚本语言在访问COM对象时使用OLE Automation IDispatch实现。

尽管它似乎有效，但我希望将该属性保留为属性，并且不希望有一个函数（上面解释了解决方法）。

您有两种可能的解决方案：

1 - 使用弃用的IDispatchImplAttribute和IDispatchImplType.CompatibleImpl。

    [ClassInterface(ClassInterfaceType.None)]
    [IDispatchImpl(IDispatchImplType.CompatibleImpl)]
    public class TestRequest : IRequest
    {
        private IRequestDictionary _queryString = new RequestDictionary();
        public IRequestDictionary QueryString
        {
            get { return _queryString; }
        }
    }

如MSDN中所述，此属性已弃用但仍可使用.Net 2.0,3.0,3.5,4.0。你必须决定它是否“弃用”这一事实对你来说可能是个问题......

2 - 或者在类TesRequest中将IReflect实现为自定义IDispatch，或者创建一个实现IReflect的通用类，并使您的类继承这个新创建的类。

通用类示例（interresting部分在InvokeMember方法中）：

[ComVisible(false)]
public class CustomDispatch : IReflect
{
    // Called by CLR to get DISPIDs and names for properties
    PropertyInfo[] IReflect.GetProperties(BindingFlags bindingAttr)
    {
        return this.GetType().GetProperties(bindingAttr);
    }

    // Called by CLR to get DISPIDs and names for fields
    FieldInfo[] IReflect.GetFields(BindingFlags bindingAttr)
    {
        return this.GetType().GetFields(bindingAttr);
    }

    // Called by CLR to get DISPIDs and names for methods
    MethodInfo[] IReflect.GetMethods(BindingFlags bindingAttr)
    {
        return this.GetType().GetMethods(bindingAttr);
    }

    // Called by CLR to invoke a member
    object IReflect.InvokeMember(string name, BindingFlags invokeAttr, Binder binder, object target, object[] args, ParameterModifier[] modifiers, System.Globalization.CultureInfo culture, string[] namedParameters)
    {
        try
        {
            // Test if it is an indexed Property
            if (name != "Item" && (invokeAttr & BindingFlags.GetProperty) == BindingFlags.GetProperty && args.Length > 0 && this.GetType().GetProperty(name) != null)
            {
                object IndexedProperty = this.GetType().InvokeMember(name, invokeAttr, binder, target, null, modifiers, culture, namedParameters);
                return IndexedProperty.GetType().InvokeMember("Item", invokeAttr, binder, IndexedProperty, args, modifiers, culture, namedParameters);
            }
            // default InvokeMember
            return this.GetType().InvokeMember(name, invokeAttr, binder, target, args, modifiers, culture, namedParameters);
        }
        catch (MissingMemberException ex)
        {
            // Well-known HRESULT returned by IDispatch.Invoke:
            const int DISP_E_MEMBERNOTFOUND = unchecked((int)0x80020003);
            throw new COMException(ex.Message, DISP_E_MEMBERNOTFOUND);
        }
    }

    FieldInfo IReflect.GetField(string name, BindingFlags bindingAttr)
    {
        return this.GetType().GetField(name, bindingAttr);
    }

    MemberInfo[] IReflect.GetMember(string name, BindingFlags bindingAttr)
    {
        return this.GetType().GetMember(name, bindingAttr);
    }

    MemberInfo[] IReflect.GetMembers(BindingFlags bindingAttr)
    {
        return this.GetType().GetMembers(bindingAttr);
    }

    MethodInfo IReflect.GetMethod(string name, BindingFlags bindingAttr)
    {
        return this.GetType().GetMethod(name, bindingAttr);
    }

    MethodInfo IReflect.GetMethod(string name, BindingFlags bindingAttr,
    Binder binder, Type[] types, ParameterModifier[] modifiers)
    {
        return this.GetType().GetMethod(name, bindingAttr, binder, types, modifiers);
    }

    PropertyInfo IReflect.GetProperty(string name, BindingFlags bindingAttr,
    Binder binder, Type returnType, Type[] types,
    ParameterModifier[] modifiers)
    {
        return this.GetType().GetProperty(name, bindingAttr, binder,
        returnType, types, modifiers);
    }

    PropertyInfo IReflect.GetProperty(string name, BindingFlags bindingAttr)
    {
        return this.GetType().GetProperty(name, bindingAttr);
    }

    Type IReflect.UnderlyingSystemType
    {
        get { return this.GetType().UnderlyingSystemType; }
    }
}

以及Mike的代码：

[ClassInterface(ClassInterfaceType.None)]
public class TestRequest : CustomDispatch, IRequest {
    private IRequestDictionary _queryString = new RequestDictionary();

    public IRequestDictionary QueryString {
        get { return _queryString; }
    }
}

Answer 2

几天前我偶然发现了这个确切的问题。我无法找到合理的解释，说明为什么它不起作用。

在花了很长时间尝试不同的解决方法之后，我想我终于找到了一些似乎有用的东西，并且不那么脏。我所做的是将容器对象中的集合的访问器实现为方法，而不是属性。这个方法接收一个参数，即密钥。如果键是“missing”或null，则该方法返回该集合（它在VbScript中处理类似“testRequest.QueryString.Count”的表达式）。否则，该方法将从集合中返回特定项。

使用此方法的脏部分是此方法返回一个对象（因为有时返回引用是集合，有时是集合的项），因此从托管代码中使用它需要在任何地方进行转换。为了避免这种情况，我在暴露集合的容器中创建了另一个属性（这次是一个适当的属性）。此属性不向COM公开。从C＃/托管代码我使用此属性，从COM / VbScript /非托管代码我使用该方法。

以下是使用此线程示例的上述解决方法的实现：

  [ComVisible(true)]
  [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
  public interface IRequest
  {
    IRequestDictionary ManagedQueryString { get; } // Property to use form managed code
    object QueryString(object key); // Property to use from COM or unmanaged code
  }

  [ComVisible(true)]
  [ClassInterface(ClassInterfaceType.None)]
  public class TestRequest : IRequest
  {
    private IRequestDictionary _queryString = new RequestDictionary();

    public IRequestDictionary ManagedQueryString
    {
      get { return _queryString; }
    }

    public object QueryString(object key)
    {
      if (key is System.Reflection.Missing || key == null)
        return _queryString;
      else
        return _queryString[key];
    }
  }

  [ComVisible(true)]
  [InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
  public interface IRequestDictionary : IEnumerable
  {
    [DispId(0)]
    object this[object key]
    {
      [DispId(0)]
      get;
      [DispId(0)]
      set;
    }

    int Count { get; }
  }

  [ComVisible(true)]
  [ClassInterface(ClassInterfaceType.None)]
  public class RequestDictionary : IRequestDictionary
  {
    private Hashtable _dictionary = new Hashtable();

    public object this[object key]
    {
      get { return _dictionary[key]; }
      set { _dictionary[key] = value; }
    }

    public int Count { get { return _dictionary.Count; } }

    #region IEnumerable Members

    public IEnumerator GetEnumerator()
    {
      throw new NotImplementedException();
    }

    #endregion
  }

Answer 3

我David Porcher解决方案适合我。

但他发布的代码处理索引器的Get部分，所以我更新了他的代码以处理索引器的Set部分

以下是更新后的代码：

   // Called by CLR to invoke a member
    object IReflect.InvokeMember(string name, BindingFlags invokeAttr, Binder binder, object target, object[] args, ParameterModifier[] modifiers, System.Globalization.CultureInfo culture, string[] namedParameters)
    {
        try
        {
            // Test if it is an indexed Property - Getter
            if (name != "Item" && (invokeAttr & BindingFlags.GetProperty) == BindingFlags.GetProperty && args.Length > 0 && this.GetType().GetProperty(name) != null)
            {
                object IndexedProperty = this.GetType().InvokeMember(name, invokeAttr, binder, target, null, modifiers, culture, namedParameters);
                return IndexedProperty.GetType().InvokeMember("Item", invokeAttr, binder, IndexedProperty, args, modifiers, culture, namedParameters);
            }
            // Test if it is an indexed Property - Setter
            // args == 2 : args(0)=Position, args(1)=Vlaue
            if (name != "Item" && (invokeAttr & BindingFlags.PutDispProperty) == BindingFlags.PutDispProperty && (args.Length == 2) && this.GetType().GetProperty(name) != null)
            {
                // Get The indexer Property
                BindingFlags invokeAttr2 = BindingFlags.GetProperty;
                object IndexedProperty = this.GetType().InvokeMember(name, invokeAttr2, binder, target, null, modifiers, culture, namedParameters);

                // Invoke the Setter Property
                return IndexedProperty.GetType().InvokeMember("Item", invokeAttr, binder, IndexedProperty, args, modifiers, culture, namedParameters);
            }


            // default InvokeMember
            return this.GetType().InvokeMember(name, invokeAttr, binder, target, args, modifiers, culture, namedParameters);
        }
        catch (MissingMemberException ex)
        {
            // Well-known HRESULT returned by IDispatch.Invoke:
            const int DISP_E_MEMBERNOTFOUND = unchecked((int)0x80020003);
            throw new COMException(ex.Message, DISP_E_MEMBERNOTFOUND);
        }
    }

Answer 4

WAG在这里......您是否使用oleview检查了程序集，以确保您的公共界面具有com消费者可见的索引器？第二个WAG是直接使用get_Item方法，而不是尝试使用索引器属性（CLS合规性问题）......

Answer 5

我发现testRequest.QueryString()("key")有效，但我想要的是testRequest.QueryString("key")。

我在Eric Lippert找到了一篇非常相关的文章（顺便说一下，他对VBScript有一些非常好的文章）。文章VBScript Default Property Semantics讨论了是否调用默认属性或仅调用方法调用的条件。我的代码表现得像一个方法调用，虽然它似乎符合默认属性的条件。

以下是Eric的文章中的规则：

实施者的规则   IDispatch :: Invoke就是全部   以下是真实的：


调用者调用属性

调用者传递参数列表

该属性实际上并未采用参数列表

该属性返回一个对象

该对象具有默认属性

默认属性采用参数列表


然后使用调用默认属性   参数列表。

有人能说出是否有任何这些条件未得到满足？或者IDispatch.Invoke的默认.NET实现可能有不同的行为吗？有什么建议吗？

Answer 6

我花了几天的时间用完全相同的问题尝试使用多种策略的每一种可能的变化。这篇文章解决了我的问题：

以下用于生成错误 parentobj.childobj（0）以前不得不这样做： parentobj.childobj.item（0）

通过更改：

Default Public ReadOnly Property Item(ByVal key As Object) As string
    Get
        Return strSomeVal

    End Get
End Property

为：

Public Function Fields(Optional ByVal key As Object = Nothing) As Object

    If key Is Nothing Then
        Return New clsFieldProperties(_dtData.Columns.Count)
    Else
        Return strarray(key)
    End If
End Function

其中：

Public Class clsFieldProperties 私有_intCount为整数

Sub New(ByVal intCount As Integer)
    _intCount = intCount

End Sub
Public ReadOnly Property Count() As Integer
    Get
        Return _intCount
    End Get
End Property

结束班

为什么我的.NET组件上的索引器并不总是可以从VBScript访问？

6 个答案: