Текущий архив: 2009.07.12;
Скачать: CL | DM;
Вниз
Не работает Cocreateinstance Найти похожие ветки
← →
Int23 (2009-05-21 09:34) [0]Использую компоненты DSPack(работа с вебкамерами). Когда запускаю пример в котором компоненты находятся на форме, то всё работает. ТОлько создаю программно эти компоненты внутри своего компанента, то result := Cocreateinstance(CLSID_SampleGrabber, nil, CLSCTX_INPROC ,IID_IBASEFilter, AFilter) = S_OK; возвращает
False
← →
Palladin © (2009-05-21 09:36) [1]Ну а проанализировать, что же возвращается и GetLastError, религия не позволяет?
← →
Григорьев Антон © (2009-05-21 09:42) [2]
> Palladin © (21.05.09 09:36) [1]
GetLastError тут не нужен, возвращаемое значение типа HRESULT уже содержит достаточно информации.
P.S. Процентов 90, что CoInitialize не вызван.
← →
Int23 (2009-05-21 10:05) [3]У меня CoInitialize вызывается в инициализатион. Вот что возвращает SysErrorMessage(GetLastError)
"Операция успешно завершена"
← →
Anatoly Podgoretsky © (2009-05-21 10:18) [4]А нафига ты вызывал GetLastError, вместо чтения справки? Он же не используется, о чем Григорьев Антон уже сказал. Единственно он ошибся с CoInitialize это не требуется на данном шаге.
← →
Palladin © (2009-05-21 10:19) [5]
> Единственно он ошибся с CoInitialize это не требуется на
> данном шаге.
Не ошибся, а предположил, что создание объекта происходит не в основном потоке.
← →
Int23 (2009-05-21 10:32) [6]Palladin
Точно. Я создаю отдельный поток и в нём создаю эти компоненты. А вообще можно в отдельном потоке работать с ДиректСшоу?
← →
Palladin © (2009-05-21 10:35) [7]
> Int23 (21.05.09 10:32) [6]
надеюсь CoInitialize производится как CoInitializeEx(nil, COINIT_MULTITHREADED); ?
90% Антона скорее всего попадут именно в этот нюанс :)
← →
Anatoly Podgoretsky © (2009-05-21 10:36) [8]> Palladin (21.05.2009 10:19:05) [5]
Посмотри справку, среди возвращаемых значений, нет ничего про CoInitialize
← →
Int23 (2009-05-21 10:46) [9]У меня Cocreateinstance возвращает число -2147221008. ПРичём я в основном модуле с компонентом прописал CoInitializeEx(nil, COINIT_MULTITHREADED);
← →
Palladin © (2009-05-21 10:48) [10]
> Anatoly Podgoretsky © (21.05.09 10:36) [8]
Посмотри справку,
The CoInitialize function initializes the Component Object Model(COM) library. You must initialize the library before you can call its functions. Applications must call CoInitialize before they make any other COM library calls with two exceptions: the CoGetMalloc function, and memory allocation calls.
← →
Palladin © (2009-05-21 10:54) [11]
> Int23 (21.05.09 10:46) [9]
Это CO_E_NOTINITIALIZED = $800401F0
Значит все таки не вызвал.
← →
Сергей М. © (2009-05-21 11:11) [12]
> я в основном модуле с компонентом прописал CoInitializeEx(nil,
> COINIT_MULTITHREADED);
Модуль, основной он или не основной, тут вообще ни причем.
Значение имеет в каком потоке эта ф-ция вызывается.
А вызываться она должна в том же самом потоке, в котором будет осуществляться работа с COM-подсистемой.
← →
Palladin © (2009-05-21 11:20) [13]
> Сергей М. © (21.05.09 11:11) [12]
Удивись :)Uses
ActiveX,
Comobj;
Type
TMThread=Class(TThread)
Protected
Procedure Execute; Override;
End;
Procedure TMThread.Execute;
Var
v:OleVariant;
Begin
Try
v:=CreateOleObject("Word.Application");
Except
On E:Exception Do MessageBox(0,PChar(E.Message),"Exception",MB_OK);
End;
v.Quit;
End;
procedure TForm1.Button1Click(Sender: TObject);
begin
With TMThread.Create(True) Do
Begin
FreeOnTerminate:=True;
Resume;
End;
end;
initialization
CoInitializeEx(nil, COINIT_MULTITHREADED);
end.
← →
Int23 (2009-05-21 11:25) [14]Вообщем вызвал в дочернем потоке и всё заработало. Спасибо всем
← →
Сергей М. © (2009-05-21 11:29) [15]
> Palladin © (21.05.09 11:20) [13]
Удивился)
Отзываю свое утверждение из [12] на переработку в Recycled bin)
← →
Григорьев Антон © (2009-05-21 17:19) [16]
> Palladin © (21.05.09 11:20) [13]
> Удивись :)
Это давно известный эффект - что во многих случаях, если mutithreaded apartment уже создан, то нить может быть помещена туда и без явного вызова CoInitializeEx. Но гарантии, что она будет помещена туда всегда, нет, поэтому вызывать CoInitializeEx всё равно нужно В КАЖДОЙ нити, использующей COM, а то однажды программа всё-таки может не заработать.
Проблема усугубляется тем, что в предварительной (версия 0.9) документации на DCOM было утверждение, что CoInitializeEx с параметром COINIT_MULTITHREADED надо вызывать только один раз, а остальные нити будут в этот апартамент помещаться по умолчанию. И хотя в версии 1.0 это уже было исправлено, ошибочное утверждение успело разойтись по сети.
Источник информации - книга Э. Трельсена про ATL и COM.
Страницы: 1 вся ветка
Текущий архив: 2009.07.12;
Скачать: CL | DM;
Память: 0.5 MB
Время: 0.008 c
