多线程调用COM实例

有两个问题需要注意:

1. 每个线程使用COM前,须用CoInitizlize(nil)初使用COM环境.线程结束前调用CoUninitialize.
2. 各个线程不能直接操作同一个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;