OTL TOmniBlockingCollection中COM多线程CoUninitialize无限等待问题求解

STA（单线程套间）线程调用CoUninitialize时会执行以下清理逻辑，只要任意一步未完成就会进入无限等待：

1. 等待所有未完成的跨套间COM调用执行完成
2. 清理当前套间内所有COM对象的残留引用
3. 处理完所有队列中的COM相关消息
   你的场景中卡死的核心诱因是异常触发后，工作线程、服务线程的COM对象引用未正确清理，或者服务线程STA消息队列被阻塞导致COM消息未处理。

• 1. 等待所有工作线程完全退出后再执行服务线程清理
     你当前仅判断了阻塞集合的IsFinalized状态，未等待工作线程完全退出、COM资源完全释放就进入后续逻辑。需增加工作线程等待逻辑，同时替换阻塞式的Sleep为支持消息处理的等待逻辑，避免STA线程消息泵卡住：

var
  Msg: TMsg;
...
// 等待集合完成逻辑
while not TOTLBlockingCollection.IsFinalized do
begin
  // 等待250ms的同时监听消息队列
  if MsgWaitForMultipleObjects(0, nil, False, 250, QS_ALLINPUT) = WAIT_OBJECT_0 then
  begin
    // 处理当前线程所有队列消息，包含COM跨套间调用消息
    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
  end;
end;
// 新增：等待所有工作线程完全退出
for var i := 0 to High(OmniWorkerArry) do
  if Assigned(OmniWorkerArry[i]) then
    OmniWorkerArry[i].WaitFor(INFINITE);

• 2. 显式释放所有COM接口引用，避免引用计数残留
  • 工作线程中创建的TADOCommand、TADOConnection等COM包装类，需在finally块中显式释放，不要依赖编译器自动栈清理
  • 服务线程持有的STA套间数据提供方COM对象，进入CoUninitialize之前必须显式赋值为nil触发Release调用，确保引用计数归零
    示例工作线程代码修改：

procedure WorkerFunction(const task: IOmniTask; var SyncData: TSyncOutputValueHolder);
var
  ADOConn: TADOConnection;
  ADOCmd: TADOCommand;
begin
  CoInitialize(nil);
  ADOConn := nil;
  ADOCmd := nil;
  try
    ADOConn := TADOConnection.Create(nil);
    ADOCmd := TADOCommand.Create(nil);
    CreateConnection(SyncData, ADOConn, ADOCmd);
    WriteSQLStyle(task, SyncData, ADOCmd);
  finally
    // 显式释放所有COM包装对象
    FreeAndNil(ADOCmd);
    FreeAndNil(ADOConn);
    CoUninitialize;
  end;
end;

• 3. 禁止跨套间直接传递原生COM指针
     如果服务线程的STA COM对象需要传递给工作线程使用，必须通过CoMarshalInterThreadInterfaceInStream/CoGetInterfaceAndReleaseStream执行标准列集/散列流程，禁止直接传递原生接口指针，否则会导致COM引用计数逻辑混乱，出现无法释放的残留引用。
• 4. 避免终止事件回调中访问COM资源
     OmniThreadLibrary的OnTerminated回调默认在创建任务的线程（即你的服务线程）执行，确认ErrorHandler逻辑中没有访问工作线程创建的COM接口，避免意外生成跨套间代理导致引用残留。

内容的提问来源于stack exchange，提问作者Quelltextknecht