【转载】delphi使用COM控件的时候是否需要CoInitialize
delphi使用COM控件的时候是否需要CoInitialize
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
