У меня есть COM-сервер и приложение Silverlight (OOTB), которое его вызывает. Недавно я провел небольшой рефакторинг COM-сервера, и мне удалось прервать обработку событий между сервером и клиентом, и я не могу понять, как я его сломал. Вот что у меня сейчас:
Сервер
namespace ServerNS
{
[Guid("8FFF7AAE-B162-42C2-9F70-269D285CF622")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[ComVisible(true)]
interface IServerEvents
{
[DispId(1)]
void MyEvent(MyContainer container);
}
[Guid("D2F3738D-DD23-472F-9D36-4136E1196890")]
[InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
[ComVisible(true)]
public interface IServer
{
...
}
[Guid("77253016-1A2A-43CC-A360-04519A4F50F5")]
[ClassInterface(ClassInterfaceType.None)]
[ComSourceInterfaces(typeof(IServerEvents))]
[ProgId("Server.MyServer")]
[ComVisible(true)]
public class Server : IServer
{
public event MyEventHandler MyEvent;
public void Trigger(MyContainer container)
{
if (MyEvent != null)
{
MyEvent(container);
}
}
}
}
Клиент
namespace ClientNS
{
public class Client
{
public void Init()
{
dynamic comObj = AutomationFactory.CreateObject("Server.MyServer");
AutomationEvent evt = AutomationFactory.GetEvent(comObj, "MyEvent");
evt.EventRaised += (sender, e) =>
{
//Do Stuff
}; //Exception occurs here.
}
}
}
Error
Я получаю это исключение, когда пытаюсь добавить обработчик событий в AutomationEvent. Это работало до моего рефакторинга (который должен был добавить интерфейс IServerEvents). comObj является допустимым экземпляром - я могу вызывать другие COM-методы для него - поэтому я не могу понять, почему он не может найти это событие; или, если это часть ошибки, как выяснить, что не удалось.
System.Exception was unhandled by user code
Message=Failed to add event handler. Possible reasons include: the object does not support this or any events, or something failed while adding the event.
StackTrace:
at MS.Internal.Error.MarshalXresultAsException(UInt32 hr, COMExceptionBehavior comExceptionBehavior)
at MS.Internal.XcpImports.CheckHResult(UInt32 hr)
at MS.Internal.ComAutomation.ComAutomationNative.ConnectEvent(IntPtr nativePeer, String eventName, RaiseComAutomationEventDelegate raiseComAutomationEventDelegate)
at MS.Internal.ComAutomation.ComAutomationObject.ConnectEvent(String name)
at System.Runtime.InteropServices.Automation.AutomationEvent.UpdateConnection()
at System.Runtime.InteropServices.Automation.AutomationEvent.add_EventRaised(EventHandler`1 value)
at ClientNS.Client.Init()
at System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)
at System.ComponentModel.BackgroundWorker.OnRun(Object argument)