How to create an XML file using TXML Document in Delphi 7

Question

I have used the following code to create the XML Document :

procedure TForm1.btnCreateXMLClick(Sender: TObject);
  var
   rootName:string;
  childName:string;
  attrChild:string;
   iXml: IDOMDocument;
  iRoot, iNode, iNode2, iChild, iAttribute: IDOMNode;
begin
  XMLDoc.Active:=false;
   XMLDoc.XML.Text:='';
   XMLDoc.Active:=true;
    XMLDoc.FileName:='C:\Documents and Settings\a\Desktop\New Text Document.xml';
     iXml := XmlDoc.DOMDocument;
   //iRoot:=iXml.documentElement(iXml.createElement('xml'));
    iRoot := iXml.appendChild(iXml.createElement ('xml'));
     // node "test"
     iNode := iRoot.appendChild (iXml.createElement ('test'));
      iNode.appendChild (iXml.createElement ('test2'));
   iChild := iNode.appendChild (iXml.createElement ('test3'));
    iChild.appendChild (iXml.createTextNode('simple value'));
     iNode.insertBefore (iXml.createElement ('test4'), iChild);

   // node replication
     iNode2 := iNode.cloneNode (True);
  iRoot.appendChild (iNode2);

    // add an attribute
      iAttribute := iXml.createAttribute ('color');
        iAttribute.nodeValue := 'red';
      iNode2.attributes.setNamedItem (iAttribute);

    // show XML in memo
      memXMLOutput.Lines.Text:=FormatXMLData(XMLDoc.XML.Text);
   end;

I get the output in memXMLOutput but the XML document does not show the output when seen in Notepad ot IE. where is the problem? Thanks in advance

Congratulations, you have posted the ten thousandth question in the Delphi tag. — Andreas Rejbrand
– Andreas Rejbrand, Commented Jul 8, 2011 at 13:16
unobvious get, should post stackoverflow.com/questions/6666666 next time — Premature Optimization
– Premature Optimization, Commented Jul 8, 2011 at 14:15

Cosmin Prund · Accepted Answer · 2011-07-08 13:16:15Z

6

Remove this:

XMLDoc.FileName:='C:\Documents and Settings\a\Desktop\New Text Document.xml';

and add something like this after the code is done creating the XML document:

XMLDoc.SaveToFile('C:\Documents and Settings\a\Desktop\New Text Document.xml');

answered Jul 8, 2011 at 13:16

Cosmin Prund

25.7k2 gold badges63 silver badges105 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to create an XML file using TXML Document in Delphi 7

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related