Delphi 10.4 SOAP服务器用ADO连SQL Server遇CoInitialize未调用问题

一、CoInitialize的调用位置 #

SOAP服务器采用多线程处理请求，而ADO依赖COM环境，每个线程必须调用一次CoInitialize(nil)（或CoInitializeEx指定公寓模型），处理完成后调用CoUninitialize。在WebModule未直接暴露线程对象的情况下，推荐两种可靠方案：

• 方案1：在每个SOAP服务方法内部处理
  这是最直接可控的方式，在SOAP方法开头初始化COM，并用finally块确保资源释放，避免异常导致的泄漏：

  function TMySOAPService.FetchSQLData: TClientDataSet;
  var
    DM: TDataModuleWithADO;
  begin
    CoInitialize(nil);
    try
      DM := TDataModuleWithADO.Create(nil);
      try
        DM.ADOConnection1.Connected := True;
        DM.ADOTable1.Open;
        // 转换为ClientDataSet以便安全返回给SOAP客户端
        Result := TClientDataSet.Create(nil);
        Result.CloneCursor(DM.ADOTable1, True);
      finally
        DM.Free;
      end;
    finally
      CoUninitialize;
    end;
  end;
  

  注意：若需返回数据集，建议使用TClientDataSet做中转，避免依赖服务器端的ADO连接生命周期。

• 方案2：利用WebBroker的线程生命周期事件
  Delphi WebBroker框架提供了线程初始化/销毁的回调，可实现每个线程仅初始化一次COM：

  procedure WebModuleMain.WebModuleCreate(Sender: TObject);
  begin
    WebApplication.OnThreadInit := WebThreadInitialize;
    WebApplication.OnThreadTerminate := WebThreadCleanup;
  end;
  
  function WebThreadInitialize: Boolean;
  begin
    CoInitialize(nil);
    Result := True;
  end;
  
  procedure WebThreadCleanup(Sender: TObject);
  begin
    CoUninitialize;
  end;
  

  这种方式适合线程池复用场景，减少重复初始化的开销。

二、TADOTable的放置位置 #

必须放在DataModule中，且每个请求线程创建独立的DataModule实例，原因如下：

• ADO组件（TADOTable、TADOConnection均包含）并非线程安全，多线程共享同一实例会引发数据混乱、死锁等问题。
• WebModule本身是单例模式，所有请求线程会共享WebModule上的组件，直接放置ADO组件必然触发线程安全问题。

正确操作步骤：

1. 创建独立DataModule（如TDataModuleWithADO），在其中添加TADOConnection和TADOTable。
2. 确保DataModule中TADOConnection的Connected属性为False，避免主线程初始化时自动连接。
3. 在SOAP方法内部创建DataModule实例，使用完毕后立即销毁（如方案1代码所示）。

额外建议：

• 在TADOConnection的连接字符串中加入OLE DB Services=-4启用连接池，降低频繁创建销毁连接的性能损耗。
• 所有ADO操作必须在CoInitialize执行后进行，否则仍会触发CoInitialize was not called错误。

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