mwinapi-commits Mailing List for Managed Windows API (Page 4)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 76
          http://mwinapi.svn.sourceforge.net/mwinapi/?rev=76&view=rev
Author:   schierlm
Date:     2008-08-28 22:23:10 +0000 (Thu, 28 Aug 2008)

Log Message:
-----------
Add COMTypeInformation class

Modified Paths:
--------------
    trunk/ManagedWinapi/ManagedWinapi.csproj

Added Paths:
-----------
    trunk/ManagedWinapi/COMTypeInformation.cs

Added: trunk/ManagedWinapi/COMTypeInformation.cs
===================================================================

--- trunk/ManagedWinapi/COMTypeInformation.cs	                        (rev 0)
+++ trunk/ManagedWinapi/COMTypeInformation.cs	2008-08-28 22:23:10 UTC (rev 76)
@@ -0,0 +1,137 @@
+/*
+ * ManagedWinapi - A collection of .NET components that wrap PInvoke calls to 
+ * access native API by managed code. http://mwinapi.sourceforge.net/
+ * Copyright (C) 2008 Michael Schierl
+ * 
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; see the file COPYING. if not, visit
+ * http://www.gnu.org/licenses/lgpl.html or write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+using System;
+using System.Collections.Generic;
+using System.Text;
+using System.Runtime.InteropServices.ComTypes;
+using ComTypes = System.Runtime.InteropServices.ComTypes;
+using System.Runtime.InteropServices;
+
+namespace ManagedWinapi
+{
+    /// <summary>
+    /// This class contains methods to identify type name, functions and variables
+    /// of a wrapped COM object (that appears as System.__COMObject in the debugger).
+    /// </summary>
+    public class COMTypeInformation
+    {
+        IDispatch dispatch;
+        ITypeInfo typeInfo;
+
+        /// <summary>
+        /// Create a new COMTypeInformation object for the given COM Object.
+        /// </summary>
+        public COMTypeInformation(object comObject)
+        {
+            dispatch = comObject as IDispatch;
+            if (dispatch == null) throw new Exception("Object is not a COM Object");
+            int typeInfoCount;
+            int hr = dispatch.GetTypeInfoCount(out typeInfoCount);
+            if (hr < 0) throw new COMException("GetTypeInfoCount failed", hr);
+            if (typeInfoCount != 1) throw new Exception("No TypeInfo present");
+            hr = dispatch.GetTypeInfo(0, LCID_US_ENGLISH, out typeInfo);
+            if (hr < 0) throw new COMException("GetTypeInfo failed", hr);
+        }
+
+        /// <summary>
+        /// The type name of the COM object.
+        /// </summary>
+        public string TypeName
+        {
+            get
+            {
+                string name, dummy1, dummy3;
+                int dummy2;
+                typeInfo.GetDocumentation(-1, out name, out dummy1, out dummy2, out dummy3);
+                return name;
+            }
+        }
+
+        /// <summary>
+        /// The names of the exported functions of this COM object.
+        /// </summary>
+        public IList<string> FunctionNames
+        {
+            get
+            {
+                List<string> result = new List<String>();
+                for (int jj = 0; ; jj++)
+                {
+                    IntPtr fncdesc;
+                    try
+                    {
+                        typeInfo.GetFuncDesc(jj, out fncdesc);
+                    }
+                    catch (COMException) { break; }
+                    ComTypes.FUNCDESC fd = (ComTypes.FUNCDESC)Marshal.PtrToStructure(fncdesc, typeof(ComTypes.FUNCDESC));
+                    string[] tmp = new string[1];
+                    int cnt;
+                    typeInfo.GetNames(fd.memid, tmp, tmp.Length, out cnt);
+                    if (cnt == 1)
+                        result.Add(tmp[0]);
+                    typeInfo.ReleaseFuncDesc(fncdesc);
+                }
+                return result;
+            }
+        }
+
+        /// <summary>
+        /// The names of the exported variables of this COM object.
+        /// </summary>
+        public IList<string> VariableNames
+        {
+            get
+            {
+                List<string> result = new List<String>();
+                for (int jj = 0; ; jj++)
+                {
+                    IntPtr vardesc;
+                    try
+                    {
+                        typeInfo.GetVarDesc(jj, out vardesc);
+                    }
+                    catch (COMException) { break; }
+                    ComTypes.VARDESC vd = (ComTypes.VARDESC)Marshal.PtrToStructure(vardesc, typeof(ComTypes.VARDESC));
+                    string[] tmp = new string[1];
+                    int cnt;
+                    typeInfo.GetNames(vd.memid, tmp, tmp.Length, out cnt);
+                    if (cnt == 1)
+                        result.Add(tmp[0]);
+                    typeInfo.ReleaseFuncDesc(vardesc);
+                }
+                return result;
+            }
+        }
+
+        #region PInvoke Declarations
+
+        private const int LCID_US_ENGLISH = 0x409;
+
+        [ComImport, InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("00020400-0000-0000-C000-000000000046")]
+        private interface IDispatch
+        {
+            [PreserveSig]
+            int GetTypeInfoCount(out int count);
+            [PreserveSig]
+            int GetTypeInfo(int index, int lcid, [MarshalAs(UnmanagedType.Interface)] out ITypeInfo pTypeInfo);
+        }
+        #endregion
+    }
+}

Modified: trunk/ManagedWinapi/ManagedWinapi.csproj
===================================================================
--- trunk/ManagedWinapi/ManagedWinapi.csproj	2008-06-14 20:18:49 UTC (rev 75)
+++ trunk/ManagedWinapi/ManagedWinapi.csproj	2008-08-28 22:23:10 UTC (rev 76)
@@ -44,6 +44,7 @@
     <Compile Include="AccessibleObjectListener.cs">
       <SubType>Component</SubType>
     </Compile>
+    <Compile Include="COMTypeInformation.cs" />
     <Compile Include="Contents\AccessibleWindowParser.cs" />
     <Compile Include="ExtendedFileInfo.cs" />
     <Compile Include="CodepointRange.cs" />


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2008	Jan	Feb	Mar (2)	Apr (5)	May (1)	Jun (6)	Jul	Aug (1)	Sep	Oct	Nov	Dec
2009	Jan (2)	Feb (2)	Mar (1)	Apr (1)	May	Jun (1)	Jul	Aug	Sep	Oct (1)	Nov (5)	Dec
2010	Jan (2)	Feb (2)	Mar	Apr	May	Jun	Jul	Aug	Sep (1)	Oct	Nov (1)	Dec
2011	Jan (10)	Feb (2)	Mar	Apr	May	Jun	Jul (2)	Aug	Sep	Oct (1)	Nov	Dec
2012	Jan (1)	Feb	Mar	Apr (1)	May	Jun	Jul (2)	Aug	Sep	Oct	Nov	Dec
2013	Jan	Feb	Mar	Apr	May	Jun	Jul (4)	Aug	Sep	Oct	Nov	Dec
2014	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (8)	Dec
2015	Jan (2)	Feb (1)	Mar	Apr	May	Jun	Jul (1)	Aug	Sep	Oct	Nov	Dec (7)
2016	Jan (4)	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec
2017	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov (1)	Dec (2)
2020	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep (3)	Oct	Nov	Dec
2024	Jan	Feb	Mar	Apr	May	Jun	Jul (3)	Aug	Sep	Oct	Nov	Dec (1)

mwinapi-commits Mailing List for Managed Windows API (Page 4)

mwinapi-commits — Subversion commit log messages