inno-setup – Inno Setup在appendChild msxml中崩溃

发布时间：2020-12-15 09:12:26 所属栏目：大数据来源：网络整理

导读：我想在Inno Setup中修改xml文件 – 但安装程序崩溃了.我尝试了不同的东西,结果得到了带有问题的示例代码 procedure testXml();var xmlDocLocal,nodeLocal: Variant;begintry xmlDocLocal := CreateOleObject('MSXML2.DOMDocument'); xmlDocLocal.async := Fa

我想在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);

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!