Inno Setup 在appendChild msxml时崩溃，如何避免此类问题？

本文共计501个文字，预计阅读时间需要3分钟。

在Inno Setup中修改XML文件时，如果安装程序崩溃了，可以尝试以下步骤进行修复：

1. 首先，确保你的XML文件格式正确。

2.使用`procedure testXml()`过程来测试XML解析。

3.创建一个XML文档对象`xmlDocLocal`和一个节点对象`nodeLocal`。

代码示例：

pascal[Code]procedure testXml();var xmlDocLocal: Variant; nodeLocal: Variant;begin xmlDocLocal :=CreateOleObject('MSXML2.DOMDocument'); try xmlDocLocal.LoadXML('data'); nodeLocal :=xmlDocLocal.DocumentElement; if nodeLocal nil then MsgBox('XML解析成功', mbInformation, MB_OK); except MsgBox('XML解析失败', mbError, MB_OK); end;end;

这段代码创建了一个简单的XML结构，并尝试解析它。如果解析成功，会显示一个信息框XML解析成功，如果失败，会显示XML解析失败。请确保你的XML文件内容正确，且格式无误。

我想在Inno Setup中修改xml文件 – 但安装程序崩溃了.我尝试了不同的东西,结果得到了带有问题的示例代码

procedure testXml(); var xmlDocLocal, nodeLocal: Variant; begin try xmlDocLocal := CreateOleObject('MSXML2.DOMDocument'); xmlDocLocal.async := False; xmlDocLocal.resolveExternals := False; xmlDocLocal.loadXML('<root></root>'); nodeLocal := xmlDocLocal.CreateElement('element1'); xmlDocLocal.documentElement.appendChild(nodeLocal); except end; end;

在第二次调用期间,安装程序在appendChild方法上崩溃.我究竟做错了什么 ？

三个想法：首先,我们使用的是InnoSetup,但对于我们来说,需要使用另一个以特定版本6.0结尾的字符串创建OleObject：

try XMLDoc := CreateOleObject('MSXML2.DOMDocument.6.0'); except RaiseException('Please install MSXML first.'#13#13'(Error ''' + GetExceptionMessage + ''' occurred)'); end;

第二个想法：尝试将xml标头添加到代码中的XML字符串中.像这样：

xmlDocLocal.loadXML('<?xml version="1.0" encoding="UTF-8" ?><root></root>');

第三个想法：尝试检查错误(正如我在第一个片段中所示).这可能会让你很清楚出了什么问题.这就是我们这样做的方式(并且有效)：

XMLDoc.load(XMLFileName); if XMLDoc.parseError.errorCode <> 0 then XMLDoc.load(XMLFileName2); if XMLDoc.parseError.errorCode <> 0 then RaiseException('Error on line ' + IntToStr(XMLDoc.parseError.line) + ', position ' + IntToStr(XMLDoc.parseError.linepos) + ': ' + XMLDoc.parseError.reason);

希望这对你有所帮助.难以解决一个未知问题;-)