COM-объект в нитке

← →
VaS © (2002-08-15 12:33) [0]

Процесс. В нем нитка. На старте нитки создаем СОМ-объект и создаем подписку (через IConnectionPointContainer), передавая серверу интерфейс объекта, созданного в этой же нитке. После чего нитка входит в бесконечный цикл с периодическим вызовом Sleep(100). Все нормально. Теперь сервер вызывает метод интерфейса клиентского объекта. Нитка сервера, откуда идет вызов останавливается. На клиенте вызова нет. Ясно, что для обработки вызовов СОМ нужно обрабатывать сообщения Windows. Вариант нитевой процедуры:

while not Terminated do begin Sleep(100); MsgWaitForMultipleObjects(1, Handle, TRUE, 500, QS_ALLPOSTMESSAGE); PeekMessage(_Msg, 0, 0, 0, PM_NOREMOVE); end;
Ни к чему не приводит.
Что интересно, после вызова terminate для данной нитки один вызов сервера таки приходит...
В общем, хотелось бы увидеть стандартную реализацию неглавной нити с работающими объектами СОМ внутри :)
ЗЫ: создание апартамента в нити конечно произвожу.

← →
VaS © (2002-08-15 12:48) [1]

Дико извиняюсь, забыл обрабатывать полученное из очереди сообщение:

while not Terminated do begin MsgWaitForMultipleObjects(0, Handle, FALSE, 100, QS_ALLINPUT); PeekMessage(_Msg, 0, 0, 0, PM_REMOVE); DispatchMessage(_Msg); end;

← →
Ученик © (2002-08-15 12:54) [2]

>VaS © (15.08.02 12:48)

Наверно
if PeekMessage(_Msg, 0, 0, 0, PM_REMOVE) then begin
TranslateMessage(_Msg);
DispatchMessage(_Msg);
end

← →
Ученик © (2002-08-15 12:55) [3]

Или While PeekMessage(_Msg, 0, 0, 0, PM_REMOVE) do

Да нет, все работает :) Я DispatchMessage() забыл в первом варианте.

COM-объект в нитке Найти похожие ветки