我想在 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);
希望这对您有帮助。很难解决未知问题;-)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)