Question

我有一些代码实现了IReflect接口，用于将IDispatch面部呈现到某些.NET对象上，而不会将所有COM互操作粘贴到类本身上。

我们使用了这个，因为我们有一个想要使用这些类的脚本客户端，但是我们不希望将所有COM互操作性内容放在类本身上。

代码看起来很像：

[ComVisible(true)]
[ProgId("My.Factory")]
[ClassInterface(ClassInterfaceType.AutoDispatch)]
public class MyFactory
{
    public object CreateObject(string type)
    {
        return new AutoWrap(Activator.CreateInstance(Type.GetType(type)));
    }
}


[ProgId("My.AutoWrap")]
[ClassInterface(ClassInterfaceType.AutoDispatch)]
[ComVisible(true)]
[Guid("72EAFB10-099F-4e96-A17E-B67E34DACA53")]
public class AutoWrap : IReflect
{
    protected object O = null;
    protected Type T = null;

    public AutoWrap()
    {
    }

    public AutoWrap(object obj)
    {
        O = obj;
        T = O.GetType();
    }

    #region IReflect Members

    public System.Reflection.FieldInfo GetField(string name, System.Reflection.BindingFlags bindingAttr)
    {
        return T.GetField(name, bindingAttr);
    }

    /* SNIP other IReflect methods */


    public object InvokeMember(string name, System.Reflection.BindingFlags invokeAttr, System.Reflection.Binder binder, object target, object[] args, System.Reflection.ParameterModifier[] modifiers, System.Globalization.CultureInfo culture, string[] namedParameters)
    {
        // Unwrap any AutoWrap'd objects (they need to be raw if a paramater)
        if (args != null && args.Length > 0)
        {
            for (int x = 0; x < args.Length; x++)
            {
                if (args[x] is AutoWrap)
                {
                    args[x] = ((AutoWrap)args[x]).O;
                }
            }
        }


        // Invoke whatever needs be invoked!
        object obj = T.InvokeMember(name, invokeAttr, binder, O, args, modifiers, culture, namedParameters);

        // Wrap any return objects (that are not primative types)
        if (obj != null)
        {
            switch (obj.GetType().ToString())
            {
                case "System.String":
                case "System.DateTime":
                case "System.Boolean":
                case "System.Byte":
                case "System.Char":
                case "System.Decimal":
                case "System.Double":
                case "System.Single": // Float
                case "System.Int32":
                case "System.Int64": // Long
                case "System.SByte":
                case "System.Int16": // Short
                case "System.UInt32":
                case "System.UInt64":
                case "System.UInt16":
                    break; // These Types do not get wrapped
                default:
                    obj = new AutoWrap(obj); // Wrap Type
                    break;
            }
        }

        return obj;

    }

    public object UnderlyingObject
    {
        get
        {
            return O;
        }
    }

    public Type UnderlyingSystemType
    {
        get { return T.UnderlyingSystemType; }
    }

    #endregion
}

然后脚本客户端具有如下代码来调用对象（例如VBScript中）：

Set factory= CreateObject("My.Factory")
set myObject = factory.CreateObject("MyDotNetType")

myObject.DoSomething ' where DoSomething() is a method on MyDotNetType

使用上面的脚本，将创建一个包装MyDotNetType实例的实例AutoWrap，当客户端调用DoSomething时，将在AutoWrap上调用InvokeMember方法，该方法将转向并调用MyDotNetType上的DoSomething。

这一切在VBScript和Javascript中运行得非常好。

但是，当尝试从Siebel的eScript脚本语言中使用它时，事情会失败，因为eScript总是将[DISPID = somerandomnumber]作为名称传入InvokeMember，而不是像VBScript那样传递方法名称。

有没有人知道如何从.NET代码中控制这些DispID？我尝试过几种不同的方法，但没有一种方法有效：

从将从GetCustomAttributes返回DispIdAttribute的其他IReflect成员返回自定义PropertyInfo / MethodInfo类
Reflection.Emiting包装类在运行时具有要向COM公开的必需属性（并不是真的希望这个工作，但我想我会尝试一下）

TIA

Answer 1

我认为您可以在字段上添加[DispId（1234）]来控制dispid的内容。

IReflect和DispId

1 个答案: