Inno Setup修改带命名空间的web.config节点属性失败问题

在处理带有http://schemas.microsoft.com/.NetConfiguration/v2.0命名空间的web.config时，直接调用SaveAttributeValueToXML找不到节点，核心原因是默认XPath不会识别默认命名空间，且设置SelectionNamespaces后必须确保XPath中所有层级节点都加上命名空间前缀。

修复步骤及代码示例 #

1. 修改SaveAttributeValueToXML过程，增加命名空间支持逻辑，确保DOMDocument能识别带命名空间的节点：

procedure SaveAttributeValueToXML(const FileName, XPath, AttributeName, AttributeValue, NamespaceURI: string);
var
  XMLDocument: Variant;
  XMLNode: Variant;
  PrefixedXPath: string;
begin
  // 使用Msxml2.DOMDocument.6.0确保兼容性
  XMLDocument := CreateOleObject('Msxml2.DOMDocument.6.0');
  XMLDocument.async := False;
  XMLDocument.preserveWhiteSpace := True; // 保留XML格式，避免打乱原文件结构
  XMLDocument.load(FileName);

  if XMLDocument.parseError.errorCode <> 0 then
  begin
    MsgBox('XML解析错误: ' + XMLDocument.parseError.reason, mbError, MB_OK);
    Exit;
  end;

  PrefixedXPath := XPath;
  // 如果提供了命名空间，设置选择器并替换XPath中的节点前缀
  if NamespaceURI <> '' then
  begin
    XMLDocument.setProperty('SelectionNamespaces', 'xmlns:ns="' + NamespaceURI + '"');
    // 替换XPath中所有目标节点为带前缀的格式
    PrefixedXPath := StringChange(PrefixedXPath, 'configuration', 'ns:configuration');
    PrefixedXPath := StringChange(PrefixedXPath, 'system.web.extensions', 'ns:system.web.extensions');
    PrefixedXPath := StringChange(PrefixedXPath, 'scripting', 'ns:scripting');
    PrefixedXPath := StringChange(PrefixedXPath, 'authenticationService', 'ns:authenticationService');
  end;

  XMLNode := XMLDocument.selectSingleNode(PrefixedXPath);
  if VarIsNull(XMLNode) then
  begin
    MsgBox('未找到目标节点: ' + PrefixedXPath, mbError, MB_OK);
    Exit;
  end;

  // 设置或更新属性
  XMLNode.setAttribute(AttributeName, AttributeValue);
  XMLDocument.save(FileName);
end;

2. 调用修改后的过程，传入正确的命名空间和XPath：

// 在安装完成后调用（比如CurStepChanged事件中ssPostInstall阶段）
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    SaveAttributeValueToXML(
      ExpandConstant('{app}\web.config'), // web.config路径
      '//configuration/system.web.extensions/scripting/authenticationService', // 完整节点XPath
      'requireSSL', // 要添加的属性名
      'true', // 属性值
      'http://schemas.microsoft.com/.NetConfiguration/v2.0' // 命名空间URI
    );
  end;
end;

关键注意点 #

• XPath必须完整且所有节点加前缀：如果authenticationService的层级是configuration -> system.web.extensions -> scripting -> authenticationService，则每个节点都要替换为ns:xxx，不能只给根节点加前缀。
• 使用正确的DOMDocument版本：推荐用Msxml2.DOMDocument.6.0，旧版本对命名空间的支持可能存在问题。
• 保留原XML格式：设置preserveWhiteSpace := True可以避免保存后原web.config的格式被打乱。

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