Moin !

Ich habe folgenden Code:

zusammenfalten · markieren

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.

Dein Tagname für das Wurzelelement ist falsch:
<SPIeD Dataset/> Es dürfen keine Leerzeichen im Namen sein, sonst "denkt" der Parser mit "Dataset" wäre ein Attribut gemeint
und möchte dann einen XML Text wie diesen:
<SPIeD Dataset="ABC"/>

Moin !

Vielen Dank. Das wars.