MSDN上CoInitialize的解释:
Initializes the COM library on the current apartment and identifies the concurrency model as single-thread apartment (STA). Applications must initialize the COM library before they can call COM library functions other than CoGetMalloc and memory allocation functions.
CoInitialize并不装载com库,这个函数只是用来初始化当前线程使用什么样的套间。当使用这个函数以后,线程就和一个套间建立了对应关系。
线程的套间模式决定了该线程如何调用com对象,是否需要列集等
你可以看一下有关列集的资料,使用不同套间之间对象接口是通过列集来完成的。关于列集的实现,很多书上都有较详细的说明。
CoInitialize()并不会干扰客户和服务之间的通信,套所作的事情只是让线程注册一个套间,而线程运行过程中就必然在此套间中,就象我们每个活着的人,都一定属于某个国家一样。
需要强调的是,套间是com中用来解决并发调用冲突的很有效的办法
Before calling any COM functions, a thread needs to call CoInitialize to load the COM infrastructure (and to enter an apartment). Once a thread calls CoInitialize, the thread is free to call COM APIs.
CoInitialize(0)让当前线程进入一个STA的Apartment
CoInitialize、CoInitializeEx都是windows的API,主要是告诉windows以什么方式为程序创建COM对象。
有哪些方式呢?单线程和多线程。
CoInitialize指明以单线程方式创建。
CoInitializeEx可以指定COINIT_MULTITHREADED以多线程方式创建。
创建单线程方式的COM服务器时不用考虑串行化问题,多线程COM服务器就要考虑。
在使用中,使用CoInitialize创建可使对象直接与线程连接,得到最高的性能。创建多线程对象可以直接接收所有线程的调用,不必像单线程那样需要消息排队,但却需要COM创建线程间汇集代理,这样访问效率不高。
来看一下delphi的代码,在ComObj.pas和ComServ.pas代码中有这样的一个函数:
procedure InitComObj;
begin
if SaveInitProc <> nil then TProcedure(SaveInitProc);
if (CoInitFlags <> -1) and Assigned(ComObj.CoInitializeEx) then
begin
NeedToUninitialize := Succeeded(ComObj.CoInitializeEx(nil, CoInitFlags));
IsMultiThread := IsMultiThread or
((CoInitFlags and COINIT_APARTMENTTHREADED) <> 0) or
(CoInitFlags = COINIT_MULTITHREADED); // this flag has value zero
end
else
NeedToUninitialize := Succeeded(CoInitialize(nil));
end;
很明显他就是用来调用CoInitialize初始化com环境的。
在ComObj.pas的initialization部分:
initialization
begin
LoadComExProcs;
VarDispProc := @VarDispInvoke;
DispCallByIDProc := @DispCallByID;
{$IFDEF MSWINDOWS}
SafeCallErrorProc := @SafeCallError;
{$ENDIF}
if not IsLibrary then
begin
SaveInitProc := InitProc;
//将InitProc指针指向InitComObj函数。
InitProc := @InitComObj;
end;
end;
来到Forms.pas文件中,看一下TApplication.Initialize部分:
procedure TApplication.Initialize;
begin
if InitProc <> nil then TProcedure(InitProc);
end;
所以说,只要我们在dpr文件中包含了ComObj.pas或者是ComServ.pas,delphi就会自动为我们初始化com环境,这样就不用我们手动调用了。
在delphi中调用COM控件有下面几种方法:
CreateComObject、CreateOleObject,这两个函数都包含在ComObj.pas中。
通过Import Type Library将COM控件导入,生成的pas文件都包含ComObj这个单元。
还有通过Import Activex生成的pas文件也会包含ComObj单元。
所以说,delphi使用COM控件不需要手动调用CoInitialize