多线程调用COM实例

有两个问题需要注意:

每个线程使用COM前,须用CoInitizlize(nil)初使用COM环境.线程结束前调用CoUninitialize. 各个线程不能直接操作同一个COM接口.

第二个问题有两种方法解决,1.使用GIT(全局接口表).2.Marshal技术.

先看一下Marshal的具体实现:

公共变量:Stream_Demo: IStream;

主线程:var Demo: IDemo;begin Demo := CoDemo.Create; CoMarshalInterThreadInterfaceInStream(IID_IDemo,Demo,Stream_Demo);end;

工作线程procedure TWorkThread.Execute;var Temp_Demo: IDemo;begin CoInitialize(nil); CoUnmarshalInterface(Stream_Demo,IID_IDemo,Temp_Demo); //不要使用CoGetInterfaceAndReleaseStream ... Temp_Demo := nil; CoUninitialize;end;