работа с LPDISPATCH

[koljsch]

А на Delphi хотя бы можно пример? Или любой другой язык

[Stilet]

Я давно не работал с интерфесами, поэтому не хочу выкладывать мутные предположения.
Попробуй почитай статью :
http://www.rsdn.ru/article/com/introcom.xml#ENE
http://etonetak.ru/%D1%81%D1%82%D0%B...81-%D0%B2-CPP/

[koljsch]

Хорошо, спасибо Вам!
Постараюсь разобраться

[Stilet]

Давай. Уж извини что не помог примером. Просто в этой части области не работаю практически совсем.

[koljsch]

Вы еще просите извинений?! Вы очень сильно мне помогли и уже не раз!
СуперМодератор действительно))

[koljsch]

Ух, как там все сложно))
Ладно, может в этом загвоздка. У COM объекта есть функция add_GetModuleMessageEvent, которая принимает всего один параметр _EventDelegate-он также описан в h файле как интерфейс. Как не пытался, то не смог его объявить. Как я понимаю, то эта функция добавляет обработчик событий.
Но как объявить этот интерфейс _EventDelegate?
Еще одно, у объекта во вкладке Events есть событие, которое по названию как раз вроде то, что нужно, но оно не работает не при каких обстоятельствах. А при ведение лог файла указывается ошибка на то, что отсутствуют переменные в add_GetModuleMessageEvent.
Что делать чтобы это все исправить?

[Stilet]

Как я понимаю, то эта функция добавляет обработчик событий.

Покажи ее спецификацию.

Но как объявить этот интерфейс _EventDelegate?

Не интерфейс, ИМХО, нужно объявлять а просто передать туда указатель на делегат.

у объекта во вкладке Events есть событие

А тип объекта какой? Не интерфейс-то?

[koljsch]

Тип как положено void __fastcall.
Есть описание в объекте, объект кстати тоже как интерфейс. Вот описание

virtual HRESULT STDMETHODCALLTYPE add_GetModuleMessageEvent(Module_tlb::_EventDelegate* value/*[in]*/) = 0; // [-1]

Имеется еще вот такое

  HRESULT         __fastcall add_GetModuleMessageEvent(Module_tlb::_EventDelegate* value/*[in]*/);

template <class T> HRESULT __fastcall
_ModuleDispT<T>::add_GetModuleMessageEvent(Guardagent2_tlb::_EventDelegate* value/*[in]*/)
{
  _TDispID _dispid(*this, OLETEXT("add_GetModuleMessageEvent"), DISPID(DISPID_UNKNOWN/*[1610743812]*/));
  TAutoArgs<1> _args;
  _args[1] = (LPDISPATCH)(Module_tlb::_EventDelegate*)value /*[VT_USERDEFINED:1]*/;
  return OleFunction(_dispid, _args);
}

Все. Кстати, что самое интересное, в исходнике COM библиотеке нет совершенно никакого указания на данную функцию, т.е. C++ сам ее добавил

[koljsch]

Вот более подробная ошибка в лог файле

Ошибка на сервере. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))
   at Module.ModuleEvents.GetModuleMessageEvent(Object Message)
   at Module.Module.ModuleThread_ReceiveMessage()
   at Module.Module.ModuleThread()

А вот это код из COM, объявление в ModuleEvents:

    public interface ModuleEvents
    {
        void GetModuleMessageEvent([MarshalAs(UnmanagedType.IDispatch)] object Message);
    }