Delphi TIdTCPServer线程调用TXMLDocument报MSXML未安装怎么解决

该异常和CLSCTX参数无关，本质是COM组件初始化缺失导致的：MSXML属于标准COM组件，所有使用COM组件的线程都需要先完成COM库初始化才能调用相关接口。TIdTCPServer的OnExecute事件运行在组件自行管理的工作线程中，这类线程默认不会执行COM初始化逻辑，因此调用CoCreateInstance创建MSXML实例会直接失败，抛出“Microsoft MSXML is not installed”的误报异常。

方案1：OnExecute事件内临时初始化（适配轻量场景） #

直接在事件处理函数开头初始化COM库，执行完逻辑后对应释放即可，修改后代码如下：

uses
  Winapi.ActiveX; // 新增该单元引用

procedure TForm4.tcpRXExecute(AContext: TIdContext);
var
  sResponseXML : string;
  xml:IXMLDocument;
  hr: HRESULT;
begin
  // 初始化COM库，MSXML推荐使用套间线程模型
  hr := CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
  if not Succeeded(hr) then Exit;
  try
    // 原有业务逻辑
    sResponseXML := AContext.Connection.IOHandler.ReadLn;
    xml:=TXMLDocument.Create(nil);
    xml.Active:=true;
    xml.Encoding:='UTF-8';
    xml.LoadFromXML(sResponseXML);
    // 后续XML处理逻辑
  finally
    CoUninitialize; // 释放COM库资源
  end;
end;

方案2：绑定Context生命周期初始化（适配高并发场景） #

OnExecute事件会随连接数据交互循环触发，如果不想每次执行都重复初始化COM，可以重写TIdServerContext，在每个连接的上下文创建、销毁时分别执行COM的初始化和释放操作，每个连接仅需初始化一次，性能更高：

uses
  Winapi.ActiveX, IdContext;

// 自定义上下文类
type
  TMyContext = class(TIdServerContext)
  public
    constructor Create(AConnection: TIdConnection; AYarn: TIdYarn; AList: TIdContextThreadList = nil); override;
    destructor Destroy; override;
  end;

constructor TMyContext.Create(AConnection: TIdConnection; AYarn: TIdYarn; AList: TIdContextThreadList);
var
  hr: HRESULT;
begin
  inherited;
  hr := CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
  if not Succeeded(hr) then Abort;
end;

destructor TMyContext.Destroy;
begin
  CoUninitialize;
  inherited;
end;

// 启动服务前指定自定义上下文类
procedure TForm4.FormCreate(Sender: TObject);
begin
  tcpRX.ContextClass := TMyContext;
  tcpRX.Active := True;
end;

// 此时OnExecute内无需再单独处理COM初始化
procedure TForm4.tcpRXExecute(AContext: TIdContext);
var
  sResponseXML : string;
  xml:IXMLDocument;
begin
  sResponseXML := AContext.Connection.IOHandler.ReadLn;
  xml:=TXMLDocument.Create(nil);
  xml.Active:=true;
  // 后续业务逻辑
end;

• IXMLDocument是接口类型，会自动管理生命周期，不需要手动调用Free释放
• 如果线程内有其他COM组件依赖多线程模型，将CoInitializeEx的第二个参数改为COINIT_MULTITHREADED保持一致即可

内容的提问来源于stack exchange，提问作者X-Ray