Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

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


 
VaS ©   (2002-08-16 08:34) [4]

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



Страницы: 1 вся ветка

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-84927
КСА
2002-08-06 06:41
2002.08.26
Два одинаковых бланка на одном листе в QReport


14-85224
ACR
2002-08-01 02:40
2002.08.26
Алфавит


14-85228
-=CrazyFish=-
2002-08-01 10:50
2002.08.26
Книга по InterBase


14-85219
AL2002
2002-07-29 18:06
2002.08.26
Двубайтовые числа


1-84981
DeepProg
2002-08-14 19:52
2002.08.26
Максимальный, да не тот...