1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
/* ****************************************************************************
*
* Copyright (c) Microsoft Corporation.
*
* This source code is subject to terms and conditions of the Microsoft Public License. A
* copy of the license can be found in the License.html file at the root of this distribution. If
* you cannot locate the Microsoft Public License, please send an email to
* dlr@microsoft.com. By using this source code in any fashion, you are agreeing to be bound
* by the terms of the Microsoft Public License.
*
* You must not remove this notice, or any other, from this software.
*
*
* ***************************************************************************/
#if !SILVERLIGHT // ComObject
using System;
using System.Runtime.InteropServices;
using ComTypes = System.Runtime.InteropServices.ComTypes;
namespace Microsoft.Scripting.ComInterop {
[
ComImport,
InterfaceType(ComInterfaceType.InterfaceIsIDispatch),
Guid("00020400-0000-0000-C000-000000000046")
]
[System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Design", "CA1040:AvoidEmptyInterfaces")]
internal interface IDispatchForReflection {
}
[
ComImport,
InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
Guid("00020400-0000-0000-C000-000000000046"),
]
internal interface IDispatch {
[PreserveSig]
int TryGetTypeInfoCount(out uint pctinfo);
[PreserveSig]
int TryGetTypeInfo(uint iTInfo, int lcid, out IntPtr info);
[PreserveSig]
int TryGetIDsOfNames(
ref Guid iid,
[MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr, SizeParamIndex = 2)]
string[] names,
uint cNames,
int lcid,
[Out]
[MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.I4, SizeParamIndex = 2)]
int[] rgDispId);
[PreserveSig]
int TryInvoke(
int dispIdMember,
ref Guid riid,
int lcid,
ComTypes.INVOKEKIND wFlags,
ref ComTypes.DISPPARAMS pDispParams,
out object VarResult,
out ComTypes.EXCEPINFO pExcepInfo,
out uint puArgErr);
}
/// <summary>
/// Layout of the IDispatch vtable
/// </summary>
internal enum IDispatchMethodIndices {
IUnknown_QueryInterface,
IUnknown_AddRef,
IUnknown_Release,
IDispatch_GetTypeInfoCount ,
IDispatch_GetTypeInfo,
IDispatch_GetIDsOfNames,
IDispatch_Invoke
}
[
ComImport,
InterfaceType(ComInterfaceType.InterfaceIsIUnknown),
Guid("B196B283-BAB4-101A-B69C-00AA00341D07")
]
internal interface IProvideClassInfo {
void GetClassInfo(out IntPtr info);
}
}
#endif
|
