Jak uzyskać typ obiektu COM

Question

Odwołuję się do biblioteki COM w Visual Studio, więc automatycznie utworzył dla mnie odpowiedni zespół Interop. Chciałbym zrobić GetType() na tych obiektach com, ale zawsze zwracają System.__ComObject. Odpytywanie ich interfejs działa jednak:

bool isOfType = someComeObject is ISomeComObject; //this works 

Ale to, co naprawdę chcesz jest to, aby powrócić do rzeczywistego typu obiektu COM:

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

czy ktoś wie jak to zrobić, co chcę zrobić ?

Answer 1

dodawania odniesienia do Microsoft.VisualBasic.dll a następnie:

Microsoft.VisualBasic.Information.TypeName(someCOMObject) 

MSDN odniesienia here.

Answer 2

W zasadzie to rozgryzłeś. GetType() na obiekcie COM da ci System .__ ComObject, i musisz spróbować rzucić go na coś innego, aby zobaczyć, czym naprawdę jest obiekt.

Answer 3

Natknąłem się na to pytanie kilka dni temu, gdy szukałem pełnej nazwy typu obiektu System.__ComObject. Skończyło się nazwę typu użyciem roztworu Darin a następnie zapętlenie przez wszystkich klas we wszystkich zespołach do testowania mecz:

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; 
     } 
    } 

Nie najszybszy i najbardziej eleganckie rozwiązanie, ale to działało.

Answer 4

Przyjęta odpowiedź od Darina wymaga zależności od Microsoft.VisualBasic.dll. Jeśli nie chcesz, możesz użyć tej prostej klasy pomocnika:

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); 
    } 
}