Moin !
Ich habe folgenden Code:
Delphi-Quellcode:
xmlDoc := CoDOMDocument40.Create;
xmlDoc.setProperty('
NewParser', True);
if Not FileExists(AppPath + Filename)
then begin
XMLDoc.validateOnParse := TRUE;
XMLDoc.async := FALSE;
XMLDoc.loadXML('
<?xml version="1.0" encoding="UTF-8"?> <SPIeD Dataset/>');
XMLDoc.save('
E:\test123.xml');
end else // "<?xml version='1.0'?>"
xmlDoc.load(AppPath + Filename);
if xmlDoc.parseError.errorCode <> 0
then begin
SiMain.LogError('
XML Error ! (See "Error XML Parser" for details.)');
SiMain.LogText('
Error XML Parser',
'
Error Code : ' + IntToStr(xmlDoc.parseError.errorCode) + #13#10 +
'
URL : ' + xmlDoc.parseError.url + #13#10 +
'
Reason : ' + xmlDoc.parseError.reason + #13#10 +
'
SrcText : ' + xmlDoc.parseError.srcText + #13#10 +
'
Line : ' + IntToStr(xmlDoc.parseError.line));
MessageDlg('
XML Error !!', mtError, [mbOk], 0);
//Application.Terminate;
end;
Und wenn ich den ausführe kriege ich immer einen Error Code -1072894427 mit der Reason "Equal expected".
Kann mir jemand mal auf die Rille helfen was ich hier falsch mache?
Nebnbei xmlDoc ist definiert:
XmlDoc : IXmlDomDocument2;
Und die Bib MSXML2_TLB ist importiert und in Uses eingetragen.