Добрый день.
Пытаюсь реализовать IDispatch с помощью ICustomQueryInterface и есть проблема. Подготовил демонстрационный пример.
| C# |
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
| using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
namespace EchoProject
{
[ComVisible(true)]
[ProgId("EchoProject.Echo")]
[ClassInterface(ClassInterfaceType.None)]
public class Echo : IDispatch, ICustomQueryInterface
{
private int lastDispId = 0;
private Dictionary<int, string> dispIdNameMap = new Dictionary<int, string>();
public CustomQueryInterfaceResult GetInterface(ref Guid iid, out IntPtr ppv)
{
ppv = IntPtr.Zero;
if (typeof(IDispatch).GUID == iid)
{
ppv = Marshal.GetComInterfaceForObject(this, typeof(IDispatch), CustomQueryInterfaceMode.Ignore);
return CustomQueryInterfaceResult.Handled;
}
return CustomQueryInterfaceResult.NotHandled;
}
public void GetTypeInfoCount(out uint pctinfo)
{
pctinfo = 0;
}
public void GetTypeInfo(uint iTInfo, int lcid, out IntPtr info)
{
info = IntPtr.Zero;
}
public void GetIDsOfNames(ref Guid iid, string[] names, int cNames, int lcid, int[] rgDispId)
{
for (int i = 0; i < cNames; i++ )
{
KeyValuePair<int, string> pair = dispIdNameMap.SingleOrDefault(p => p.Value == names[i]);
if (pair.Key == 0)
{
dispIdNameMap.Add(++lastDispId, names[i]);
rgDispId[i] = lastDispId;
}
else
{
rgDispId[i] = pair.Key;
}
}
}
public void Invoke(int dispId, ref Guid riid, int lcid, System.Runtime.InteropServices.ComTypes.INVOKEKIND wFlags, ref System.Runtime.InteropServices.ComTypes.DISPPARAMS pDispParams, out object result, IntPtr pExcepInfo, IntPtr puArgErr)
{
string name;
dispIdNameMap.TryGetValue(dispId, out name);
result = name;
}
}
} |
|
| C# |
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
| using System;
using System.Runtime.InteropServices;
namespace EchoProject
{
[ComImport]
[Guid("00020400-0000-0000-C000-000000000046")]
[InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
public interface IDispatch
{
void GetTypeInfoCount(out uint pctinfo);
void GetTypeInfo(uint iTInfo, int lcid, out IntPtr info);
void GetIDsOfNames(
ref Guid iid,
[MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.LPWStr, SizeParamIndex = 2)]
string[] names,
int cNames,
int lcid,
[Out][MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.I4, SizeParamIndex = 2)]
int[] rgDispId);
void Invoke(
int dispId,
ref Guid riid,
int lcid,
System.Runtime.InteropServices.ComTypes.INVOKEKIND wFlags,
ref System.Runtime.InteropServices.ComTypes.DISPPARAMS pDispParams,
out object result,
IntPtr pExcepInfo,
IntPtr puArgErr);
}
} |
|
| Javascript |
1
2
3
4
5
| var echo = new ActiveXObject("EchoProject.Echo");
WScript.Echo("Начинай отладку");
WScript.Echo(echo.foo()); //foo
WScript.Echo(echo.bar); //bar
echo.baz = 1; //error |
|
Если запустить JScript, то будет видно, что вызов метода с произвольным именем работает, получение значения свойства с произвольным именем работает, а вот при попытке установить значение свойству с произвольным именем возникает ошибка "Ошибка: неправильный указатель; Код: 80004003; Источник: (null)".
Причем если отлаживать код, то для foo() и bar будут запускаться и GetIDsOfNames и Invoke. Для baz запустится только GetIDsOfNames, а дальше описанная выше ошибка.
Я пробовал разные версии фреймворка: 4.5; 4.5.1; 4.5.2 - результат один и тот же - ошибка.
В чем заключается проблема? Как ее решить?
Спасибо за внимание.
(
