Что-то у меня с событиями не клеится.

Код

namespace CTest { //Есть интерфейс public delegate void DelegateLogIpAddr(uint dwIpAddr); [Guid("A7B88840-A812-11cf-8011-00A0C90A8F78")] public interface IDCCManTest {    event DelegateLogIpAddr EventLogIpAddr;    void OnLogIpAddr(uint dwIpAddr);                   ... } //Есть компонент, который должен перехватывать событие OnLogIpAddr интерфейса public class CTestComp : System.ComponentModel.Component, IDCCManTest {   ...   public event DelegateLogIpAddr EventLogIpAddr;   public virtual void OnLogIpAddr(uint dwIpAddr)   {       if (EventLogIpAddr != null)              EventLogIpAddr(dwIpAddr); // Так } }

Почему то в приложение это событие не приходит.
Спасибо.

может просто обработчик не назначен?

Цитата

public virtual void OnLogIpAddr(uint dwIpAddr)

А ту уверен, что надо именно virtual ?
Может правильнее override ?

Хотя я в такую область не залезал, так что попытка чисто интуитивная.
Если найдешь решение - большая просьба опубликовать.

По моему я дошел до корней проблемы, но решения не знаю.
При создании компонента делается следующее:

Код

private uint FContext; ... public CTestComp() {    InitializeComponent();    Guid CLSID_IDCCMan = new Guid("{499C0C20-A766-11cf-8011-00A0C90A8F78}");    Type tmpIDCCManTestType = Type.GetTypeFromCLSID(CLSID_IDCCMan);     if (tmpIDCCManTestType == null) throw new Exception("IUnknown not assigned.");     object tmpIDCCManTestObj = Activator.CreateInstance(tmpIDCCManTestType);     if (tmpIDCCManTestObj == null) throw new Exception("IDCCMan not found.");    fixed (uint *ptr = &FContext)    {            FIDCCMan.Advise(this, ptr); // Вот здесь то Advise не проходит - почему не понятно        // соот-но и далле компонент не работает    }   }

Кто-нибудь знает в чем тут дело. На Delphi код следующий и работает:

Код

protected    FContext:DWord; ... constructor TTestComp.Create(AOwner: TComponent);  var tmpIUnknown:IUnknown; begin  tmpIUnknown:=CreateComObject(CLSID_IDCCMan);  if not assigned(tmpIUnknown) then raise ESyncError.Create('InternalNewInit.IUnknown not assigned.');  if (tmpIUnknown.QueryInterface(IDCCMan, FIDCCMan)<>S_OK)or(not assigned(FIDCCMan)) then     raise  ESyncError.Create('InternalNewInit.IDCCMan not found.');  FIDCCMan.Advise(self, @FContext); end;

Код

FIDCCMan.Advise(this, ptr);

на сколько я понимаю:

1. метод Advise требует что бы первый параметр поддерживал интерфейс IAdviseSink, точнее это указатель на этот интерфейс.
2. this в данном случае класса CTestComp, следовательно CTestComp должен реализовывать интерфейс IAdviseSink, может как раз он и нереализован?

з.ы может я ваще не в ту степь полез?

Да, ты все верно говоришь
класс CTestComp объявлен как
public class CTestComp : System.ComponentModel.Component, IDCCManSink{}
IDCCManSink - это и есть тот самый интерфейс.

Покажи как описан IDCCManSink.

using System;
using System.Runtime.InteropServices;

namespace CTestCompLib
{
public delegate void DelegateLogIpAddr(uint dwIpAddr);
[ComImport(), InterfaceType(ComInterfaceType.InterfaceIsIUnknown), GuidAttribute("09994751-A5A2-4306-899C-A47E6C4525B7")]
//[Guid("A7B88840-A812-11cf-8011-00A0C90A8F78")]
public interface IDCCManSink
{
event DelegateLogIpAddr EventLogIpAddr;
void OnLogIpAddr(uint dwIpAddr);
void OnLogTerminated();
void OnLogActive();
void OnLogInactive();
void OnLogAnswered();
void OnLogListen();
void OnLogDisconnection();
void OnLogError();
}

хз, вроде все ок.

Цитата

FIDCCMan.Advise(this, ptr); // Вот здесь то Advise не проходит - почему не понятно

а что происходит?

Когда кидаю компонент на форму вылетает ошибка:
An exception occurred while trying to create an instance of CTestCompLib.CTestComp. The exception was "Object reference not set to an instance of an object.".

т.е. FIDCCMan получается равен null ?

Навернное.

фигурируют два объекта tmpIDCCManTestObj и FIDCCMan, может это должен быть один и тот же объект и одна переменная?

В коде на Delphi так и есть

Код

protected   FContext:DWord; ... constructor TTestComp.Create(AOwner: TComponent); var tmpIUnknown:IUnknown; begin tmpIUnknown:=CreateComObject(CLSID_IDCCMan); if not assigned(tmpIUnknown) then raise ESyncError.Create('InternalNewInit.IUnknown not assigned.'); if (tmpIUnknown.QueryInterface(IDCCMan, FIDCCMan)<>S_OK)or(not assigned(FIDCCMan)) then    raise  ESyncError.Create('InternalNewInit.IDCCMan not found.'); FIDCCMan.Advise(self, @FContext); end;

но на C# у меня не получилось так сделать.
Если ты знаешь как, пожалуйста подскажи.