Cómo obtener el tipo de objeto COM

Question

Me refiero a una biblioteca COM en Visual Studio, por lo que ha creado automáticamente el correspondiente conjunto de Interop para mí. Me gustaría hacer un GetType() en estos objetos com, pero siempre devuelven System.__ComObject. Consulta de ellos por una interfaz funciona sin embargo:

bool isOfType = someComeObject is ISomeComObject; //this works 

Pero lo que realmente quiero es que esto devolverá el tipo real del objeto COM:

Type type = someComeObject.GetType(); //returns System.__ComObject :-(

¿Alguien sabe cómo hacer lo que quiero hacer ?

Answer 1

Agregar referencia a Microsoft.VisualBasic.dll y luego:

Microsoft.VisualBasic.Information.TypeName(someCOMObject) 

referencia MSDN here.

Answer 2

Básicamente lo has descubierto. GetType() en un objeto COM le dará System .__ ComObject, y tendrá que intentar convertirlo en otra cosa para ver qué es realmente el objeto.

Answer 3

Me encontré con esta pregunta hace unos días mientras buscaba el nombre completo de un objeto System.__ComObject. Que terminó siendo el nombre del tipo usando la solución de Darin y luego bucle a través de todas las clases en todos los conjuntos para probar el partido:

typeName = Microsoft.VisualBasic.Information.TypeName(someCOMObject); 
    foreach (System.Reflection.Assembly assembly in AppDomain.CurrentDomain.GetAssemblies()) 
    { 
     foreach (Type type in assembly.GetTypes()) 
     { 
      if ((someCOMObject as type)!=null) 
       fullTypeName = type.FullName; 
     } 
    } 

No

la solución más rápida y más elegante, pero funcionó.

Answer 4

La respuesta aceptada por Darin requiere una dependencia a Microsoft.VisualBasic.dll. Si no quiere tener eso, puede usar esta sencilla clase de ayuda:

public static class TypeInformation 
{ 
    public static string GetTypeName(object comObject) 
    { 
     var dispatch = comObject as IDispatch; 

     if (dispatch == null) 
     { 
      return null; 
     } 

     var pTypeInfo = dispatch.GetTypeInfo(0, 1033); 

     string pBstrName; 
     string pBstrDocString; 
     int pdwHelpContext; 
     string pBstrHelpFile; 
     pTypeInfo.GetDocumentation(
      -1, 
      out pBstrName, 
      out pBstrDocString, 
      out pdwHelpContext, 
      out pBstrHelpFile); 

     string str = pBstrName; 
     if (str[0] == 95) 
     { 
      // remove leading '_' 
      str = str.Substring(1); 
     } 

     return str; 
    } 

    [ComImport] 
    [InterfaceType(ComInterfaceType.InterfaceIsIUnknown)] 
    [Guid("00020400-0000-0000-C000-000000000046")] 
    private interface IDispatch 
    { 
     int GetTypeInfoCount(); 

     [return: MarshalAs(UnmanagedType.Interface)] 
     ITypeInfo GetTypeInfo(
      [In, MarshalAs(UnmanagedType.U4)] int iTInfo, 
      [In, MarshalAs(UnmanagedType.U4)] int lcid); 

     void GetIDsOfNames(
      [In] ref Guid riid, 
      [In, MarshalAs(UnmanagedType.LPArray)] string[] rgszNames, 
      [In, MarshalAs(UnmanagedType.U4)] int cNames, 
      [In, MarshalAs(UnmanagedType.U4)] int lcid, 
      [Out, MarshalAs(UnmanagedType.LPArray)] int[] rgDispId); 
    } 
}