Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скрестить Callback и Events в COM объекте, Скрестить Callback и Events в COM объект 
:(
    Опции темы
ivs4
Дата 1.7.2009, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Добрый день. Столкнулся  с нетривиальной задачей. Делаю обертку над сторонней библиотекой в виде COM объекта в ATL. В этой библиотеке есть некай ф-ция результат выполнения которой можно узнать через асинхронно через Callback ф-цию. Задача же стоит в вызове метода объекта при наступлении Callback. Сначала подготовил свой объект для вызова ивентов. 
Делаю первый метод ком объекта без параметров, он отвечает за назначение callback.  Сначала хотел сделать CallBack методом класса ком объекта через такой изврат:
Код

typedef void (__stdcall *Func2)(long);
typedef void (__stdcall CMyClass::*Func)(long);

class ATL_NO_VTABLE CMyClass: 
...
{
public:
    CMyClass()
    {
    }

    void __stdcall Callback (long var);

}
...
STDMETHODIMP CMyClass::SetCallback(VARIANT *var){
...
pFunc2=CMyClass::Callback;
long addr=*(long*)&pFunc;
pFunc2=*(Func2*)&addr;
setcallbackfunction(addr);
...
}


void __stdcall CMyClass::Callback (long var){
    VARIANTARG var;
    var.lVal=var;
    var.vt=VT_I4;
    Fire_CallBackDone(var);
}


При таком раскладе вызов Callback происходит но проблема в вызове метода определенного мною метода события, а конкретно ошибка происходит в этом месте функции события:

Код

int nConnections = m_vec.GetSize();
 

те как я понял при таком назначениию callback я не могу корректно обращаться к членам родителя моего класса к таким как IConnectionPointImpl.

Хорошо, решил уйти от callback как члена класса и сделал его статическим методом класса. Кроме того ввел в класс статический указатель на самого себя:
Код

class ATL_NO_VTABLE CMyClass: 
...
{
public:
    CMyClass()
    {
    }
        static CMyClass *p;
    static void __stdcall Callback (long var);

}


вроде все хорошо, callback вызывается но опять проблема с вызовом событийного события Fire_CallBackDone. Выполнение в этом методе ф-ции
Код

HRESULT hres=pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);


Возвращало ошибку 

-2147221008 (800401F0) Не был произведен вызов CoInitialize. 

переработал Callback
Код

void __stdcall CMyClass::Callback (long var){
CoInitialize(NULL);
    VARIANTARG var;
    var.lVal=var;
    var.vt=VT_I4;
    p->Fire_CallBackDone(var);
CoUninitialize();
}


после этого тот же вызов Invoke выдал ошибку 

-2147417842 (8001010E) Приложение обратилось к интерфейсу, относящемуся к
другому потоку. 

На сегодняшний момент прихожу к выводу, что невозможно вызвать из callback событие в рамках COM идеология. Думаю уходить от этого решения. Последняя надежда на ваше мнение. Если вдохнете надежду, то буду продолжать.

Это сообщение отредактировал(а) ivs4 - 1.7.2009, 16:23
PM MAIL ICQ   Вверх
xvr
Дата 1.7.2009, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



Вызвать можно, но не просто  smile 
Для начала мелкое замечание - CoInitialize нужно вызывать в начале каждого потока, где планируется работать с COM объектами.
Для вызова объектов между разными потоками (т.е. создан он был в одном, а вызывать его надо в другом) нужно передать сам объект в тот поток, где его планируется вызывать (см CoMarshalInterThreadInterfaceInStream и CoGetInterfaceAndReleaseStream). И еще очень желательно, что бы этот поток крутил цикл обработки очереди сообщений Windows (иначе половина COM инфраструктуры отвалится)

PM MAIL   Вверх
ivs4
Дата 1.7.2009, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Здравствуйте, xvr.
Как я думаю, Callback вызывается в своем потоке, не в том, где создается COM объект и соответственно в своем апартменте. Тогда понятно природа ошибок и нужность маршалинга. Но возникают вопросы:

Каким образом осуществить маршалинг. Т.е. вы предлагаете в статической переменной вместо того как у меня хранения указателя на класс CMyClass. хранить IStream из которого потом в CallBack доставать указатель на интерфейс CMyClass.

Код

void __stdcall CMyClass::Callback (long var){
CoInitialize(NULL);
    CoGetInterfaceAndReleaseStream(str, ..... &p)
    VARIANTARG var;
    var.lVal=var;
    var.vt=VT_I4;
    ....
CoUninitialize();
}


Правильно я Вас понял?
PM MAIL ICQ   Вверх
xvr
Дата 1.7.2009, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



В общем так. Вся прелесть в деталях  smile 
В том потоке, где был созданн COM объект надо записать его в стрим (с помощью CoMarshalInterThreadInterfaceInStream) и записать полученный стрим в глобал. Затем, в потоке, где надо объект вызывать, делается CoGetInterfaceAndReleaseStream. Полученный объект сохраняется опять же в глобале. Затем все вызовы делаются с этим объектом. 
Вызывать пару CoInitialize + CoUninitialize на каждый callback не стоит - это довольно дорогая операция
Главный вопрос как синхронизировать создание стрима с объектом и его использование, т.к. это должно делаться в разных потоках. Для этого можно воспользоваться сообщениями Windows (т.к. поток-приемник все равно должен крутить цикл обработки сообщений, что бы COM нормально работал). Можно применить и другие методы.
Callback'и вызываются в заранее известном потоке, или о их месте вызова ничего неизвестно?


PM MAIL   Вверх
jonie
Дата 2.7.2009, 07:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 5
Всего: 118



можно без сериализации в IStream жить между потоками используя GIT. http://forum.sources.ru/index.php?showtopic=40322 вот примерное объяснение. Это несколько (?) быстрее чем марашалить как делаете вы, но имеет ряд ограничений.


--------------------
Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...
PM MAIL Jabber   Вверх
ivs4
Дата 2.7.2009, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Давайте еще раз обрисуем ситуацию. Вот описание CMyCllass:
Код

class ATL_NO_VTABLE CMyClass : 
    public CComObjectRootEx<CComSingleThreadModel>,
    //public CComObjectRootEx<CComMultiThreadModel>,
    public CComCoClass<CMyClass &CLSID_MyClass>,
    public ISupportErrorInfo,
    public IConnectionPointContainerImpl<CMyClass>,
    public IDispatchImpl<IMyClass, &IID_IMyClass, &LIBID_TRANSACLib>,
    public CProxy_IMyClassEvents< CMyClass >
{
public:
    CMyClass()
    {
    }

    IStream *str;

    static CMyClass *p;
    
    static void __stdcall Callback (long var);

    DECLARE_REGISTRY_RESOURCEID(IDR_MYCLASS)

DECLARE_PROTECT_FINAL_CONSTRUCT()

BEGIN_COM_MAP(CMyClass)
    COM_INTERFACE_ENTRY(IMyClass
    COM_INTERFACE_ENTRY(IDispatch)
    COM_INTERFACE_ENTRY(ISupportErrorInfo)
    COM_INTERFACE_ENTRY(IConnectionPointContainer)
    COM_INTERFACE_ENTRY_IMPL(IConnectionPointContainer)
END_COM_MAP()

// ISupportsErrorInfo
    STDMETHOD(InterfaceSupportsErrorInfo)(REFIID riid);

public:
    STDMETHOD(SetCallback)(...);
....
public :

BEGIN_CONNECTION_POINT_MAP(CMyClass)
    CONNECTION_POINT_ENTRY(DIID__IMyClassEvents)
END_CONNECTION_POINT_MAP()

};


обратите внимание на наследование от CProxy_IMyClassEvents. Он отвечает за вызова рукотворных событий. Вот он

Код

template <class T>
class CProxy_IMyClassEvents : public IConnectionPointImpl<T, &DIID__IMyClassEvents, CComDynamicUnkArray>
{
    //Warning this class may be recreated by the wizard.
public:
    HRESULT Fire_CallbackDone(VARIANT var)
    {
        CComVariant varResult;
        T* pT = static_cast<T*>(this);
        int nConnectionIndex;
        CComVariant* pvars = new CComVariant[1];
        int nConnections = m_vec.GetSize();
        
        for (nConnectionIndex = 0; nConnectionIndex < nConnections; nConnectionIndex++)
        {
            pT->Lock();
            CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
            pT->Unlock();
            IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
            if (pDispatch != NULL)
            {
                VariantClear(&varResult);
                pvars[0] = var;
                DISPPARAMS disp = { pvars, NULL, 1, 0 };
                HRESULT hres=pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);
            }
        }
        delete[] pvars;
        return varResult.scode;
    
    }
};



Так вот как раз это метод я и вызываю из моего CallBack

Код

void __stdcall CMyClass::Callback (long var){
CoInitialize(NULL);
    VARIANTARG var;
    var.lVal=var;
    var.vt=VT_I4;
    p->Fire_CallBackDone(var);
CoUninitialize();
}


1. Как я уже говорил, сначала была проблема с назначением calback в методе SetCallback. Извратился и сделал с помощью typedef и приведения адреса ф-ции к типу long.
2. Потом встала проблема с вызовом из callback метода отвечающего за событие. Это я сделал через статический указатель на сам класс CMyClass. Считаю это не совсем корректным для многопользовательского режима, но там посмотрим. Пока оставил так.
3. Далее спотыкания пошли на Fire_CallbackDone. Не хотелась выполняться строка 
Код

HRESULT hres=pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);

Если посмотреть на ф-цию Fire_CallbackDone, то виден цикл, который пробегает по всем членам  динамического массива IUnknown интерфейсов m_vec. Там хранятся точки в которых от нас ждут вызова события, например в VBA 

Код

Dim withevents MyObj as test.MyClass

pub MyObj_CallbackDone()

end pub



По вашему совету, добавил CMyClass укfзатель на IStream.

в методе SetCallBack добавил маршпалинг диспатч интерфейса, который используется в Fire_CallbackDone

Код

HRESULT hres;
CComPtr<IUnknown> sp = m_vec.GetAt(0);
IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
hres=CoMarshalInterThreadInterfaceInStream(IID_IDispatch,pDispatch,&str);



в сам CallBack добавил

Код

HRESULT hres;
hres=CoGetInterfaceAndReleaseStream(obj->str,IID_IDispatch,(void**)&(ptr));


где ptr - глобальный указатель на IDispatch.  И уже через него вызываю Invoke

Код

HRESULT Fire_CallbackDone(VARIANT var)
    {
        CComVariant varResult;
        T* pT = static_cast<T*>(this);
        int nConnectionIndex;
        CComVariant* pvars = new CComVariant[1];
        int nConnections = m_vec.GetSize();
        
        for (nConnectionIndex = 0; nConnectionIndex < nConnections; nConnectionIndex++)
        {
            pT->Lock();
            CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
            pT->Unlock();
            IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
            if (pDispatch != NULL)
            {
                VariantClear(&varResult);
                pvars[0] = var;
                DISPPARAMS disp = { pvars, NULL, 1, 0 };
                HRESULT hres=ptr->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);
            }
        }
        delete[] pvars;
        return varResult.scode;
    
    }


все проходит, hres=0

НО! ивент в бейсике все равно не отрабатывает. В общем я грешу на хранение указателя класса в статической переменной. Иначе в статическом методе до него не добраться. А как ваше мнение?
PM MAIL ICQ   Вверх
xvr
Дата 2.7.2009, 19:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



Сработает только один раз. Функция CoGetInterfaceAndReleaseStream извлекает из стрима объект и УНИЧТОЖАЕТ стрим. Т.е. при ее втором вызове (а он будет, т.к. она вставленна в CallBack и значит будет вызываться при каждом его срабатывании) ей уже будет неоткуда извлекать объект.

При таком раскладе вариант jonie с GIT выглядит предпочтительней

PM MAIL   Вверх
ivs4
Дата 4.7.2009, 21:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Попробовал маршилинг через GIT - то же самое. Вот эта строка в Fire_CallBackDone

Код

HRESULT hres=pDispatch->Invoke(0x1, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);


выполняется без ошибок и hres=0, НО ивент из VBA не срабатывает.
Подумал про цикл сообщений для доступа к маршалируемому интерфейсу, но где в ATL проекте его прицепить не пойму.
PM MAIL ICQ   Вверх
xvr
Дата 5.7.2009, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



Цитата(ivs4 @ 4.7.2009,  21:36)
Подумал про цикл сообщений для доступа к маршалируемому интерфейсу, 

Без него работать не будет.
Цитата

но где в ATL проекте его прицепить не пойму.

Прицеплять надо там, где VBA создает твой объект.
Хотя он там и так есть. Надо обеспечить, что бы он работал, т.е. не мешать ему своими объектами (например создать для их жизнедеятельности отдельную нить)

PM MAIL   Вверх
ivs4
Дата 5.7.2009, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Цитата

Надо обеспечить, что бы он работал, т.е. не мешать ему своими объектами (например создать для их жизнедеятельности отдельную нить)


Уважаемый, xvr,
Можно об этом чуть по-подробнее. 
PM MAIL ICQ   Вверх
xvr
Дата 5.7.2009, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



Поподробнее можно.
Это означает, что если методы вашего класса вызываются из VBA (да и не только) вы не имеете права запускать внутри них длительную обработку. Вся работа подсистемы COM по доставке сообщений и вызовов будет заморожена, пока вы не вернетесь из вызванного метода обратно в VBA
Так же это означает, что если вы создаете свои нити (или кто то создает их от вашего имени - с точки зрения VBA), то в этих нитях должен работать цикл обработки сообщений, если вы собираетесь пользоваться в них инфраструктурой COM

PM MAIL   Вверх
ivs4
Дата 5.7.2009, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Т.е. в потоке сторонней библиотеки к которой принадлежит CallBack я должен сделать цикл? Но этот поток мне доступен только когда библиотека библиотека активирует CallBack. Т.е. в этом CallBack я должен сделать цикл?

А он должен быть до или после вызова Fire_CallBackDone?

Добавлено через 8 минут и 59 секунд
И еще вопрос. Вечный цикл не поставишь, тогда на какое сообщение надо выходить?
PM MAIL ICQ   Вверх
xvr
Дата 5.7.2009, 22:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 8
Всего: 223



Цикл должен крутится со стороны VBS, там где клиенты подсоединяются к вашему CProxy_IMyClassEvents
(кстати, у вас маршалинг CProxy_IMyClassEvents расчитан только на 1 подсоединение) Кроме того, event может вообще не сработать, т.к. вы маршалите к себе чужой интерфейс, а он может быть на это не рассчитан
Я бы вообще отказался от прямого вызова Fire_CallbackDone из CMyClass::Callback, а сделал бы вызов через передачу Виндового оконного сообщения

PM MAIL   Вверх
ivs4
Дата 6.7.2009, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Спасибо за ответы, xvr.
Вы писали
Цитата

Я бы вообще отказался от прямого вызова Fire_CallbackDone из CMyClass::Callback, а сделал бы вызов через передачу Виндового оконного сообщения


Попробую расписать ваше предложение. Вы говорите о передаче оконного сообщения. Хорошо, я регистрирую новое сообщение. Затем в конструкторе класса CProxy_IMyClassEvents запускаю некий новый поток с циклом приема оконных сообщений и в случае получения им моего сообщения вызываю Fire_CallbackDone. В самом Fire_CallbackDone производить демаршалинг интерфейсов и вызывать через них ивенты в VBA.

1. Правильно ли я развернул Вашу мысль?
2. Какому HWND посылать мое сообщение о вызове CallBack?
PM MAIL ICQ   Вверх
ivs4
Дата 6.7.2009, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 27
Регистрация: 19.7.2004

Репутация: нет
Всего: нет



Может быть сделать не ожидание сообщения, а ожидания виндового события с таймером, а между тиками проверки события обрабатывать сообщения?
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C/C++: COM/DCOM/ActiveX/ATL/CORBA | Следующая тема »


 




[ Время генерации скрипта: 0.1326 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.