TXMLDocument的TransformNode不匹配/模式问题及XSLT方案咨询

我之前在Delphi里做XSLT转换时也踩过这个坑，正好能帮你理清问题！

核心差异：transformNode的上下文陷阱 #

你碰到的问题本质是TXMLDocument的transformNode方法和IXSLProcessor对转换上下文的处理逻辑完全不同：

• transformNode是基于MSXML早期版本的简化API，它默认把XML文档的根元素作为转换的上下文节点，而不是整个文档节点。但XSLT里的/模式匹配的是文档节点（也就是根元素的父节点），当上下文是根元素时，/找不到任何匹配项，自然输出空XML。
• IXSLProcessor是MSXML后期版本的标准API，严格遵循XSLT规范，它以整个XML文档（文档节点）作为转换的输入上下文，所以/模式能正确匹配到文档节点，进而处理根元素，生成预期的<TransformedNoteList>结果。

两种解决方案 #

方案1：调整XSLT适配transformNode的上下文 #

既然transformNode的上下文是根元素，我们只需要把XSLT里匹配根节点的/改成直接匹配根元素即可。

假设你的源XML结构是：

<NoteList>
  <Note>Sample Content</Note>
</NoteList>

原XSLT（无法匹配的版本）：

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <xsl:template match="/">
    <TransformedNoteList>
      <xsl:apply-templates/>
    </TransformedNoteList>
  </xsl:template>
  <xsl:template match="Note">
    <TransformedNote><xsl:value-of select="."/></TransformedNote>
  </xsl:template>
</xsl:stylesheet>

修改后的XSLT（适配transformNode）：

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
  <!-- 直接匹配根元素NoteList，而不是文档节点/ -->
  <xsl:template match="NoteList">
    <TransformedNoteList>
      <xsl:apply-templates/>
    </TransformedNoteList>
  </xsl:template>
  <xsl:template match="Note">
    <TransformedNote><xsl:value-of select="."/></TransformedNote>
  </xsl:template>
</xsl:stylesheet>

修改后再调用transformNode就能正常输出预期结果。

方案2：改用IXSLProcessor实现（推荐） #

如果你不想修改XSLT，或者需要遵循标准XSLT规范处理文档节点，推荐直接使用IXSLProcessor。它不仅能解决这个根节点匹配问题，还支持更多现代XSLT特性，稳定性更好。

以下是Delphi实现的示例代码：

uses
  XMLIntf, XMLDoc, MSXML2_TLB, Classes;

procedure PerformXSLTransform(const XMLPath, XSLPath, OutputPath: string);
var
  XMLDoc: TXMLDocument;
  XSLDoc: TXMLDocument;
  XSLTemplate: IXSLTemplate;
  XSLProcessor: IXSLProcessor;
  OutputStream: TFileStream;
begin
  XMLDoc := TXMLDocument.Create(nil);
  XSLDoc := TXMLDocument.Create(nil);
  try
    // 加载源XML和XSLT文件
    XMLDoc.LoadFromFile(XMLPath);
    XMLDoc.Active := True;
    XSLDoc.LoadFromFile(XSLPath);
    XSLDoc.Active := True;

    // 初始化XSL模板和处理器
    XSLTemplate := CoXSLTemplate.Create;
    XSLTemplate.stylesheet := XSLDoc.DOMDocument;
    XSLProcessor := XSLTemplate.createProcessor;
    XSLProcessor.input := XMLDoc.DOMDocument;

    // 执行转换并保存结果
    XSLProcessor.transform;
    OutputStream := TFileStream.Create(OutputPath, fmCreate);
    try
      XSLProcessor.outputStream := OutputStream as IStream;
      XSLProcessor.output;
    finally
      OutputStream.Free;
    end;
  finally
    XMLDoc.Free;
    XSLDoc.Free;
  end;
end;

调用这个方法时，直接使用原来的XSLT（带/模式）就能生成预期的<TransformedNoteList>结果。

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