XML Problem

[nanix]

Hey,


I spoted this sample code while browsing google its for FPC but it dosent work in delphi

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xdoc: TXMLDocument;                                  // variable to document
  RootNode, parentNode, nofilho: TDOMNode;                    // variable to nodes
begin
  //create a document
  xdoc := TXMLDocument.create;
 
  //create a root node
  RootNode := xdoc.CreateElement('register');
  Xdoc.Appendchild(RootNode);                           // save root node
 
  //create a parent node
  RootNode:= xdoc.DocumentElement;
  parentNode := xdoc.CreateElement('usuario');
  TDOMElement(parentNode).SetAttribute('id', '001');       // create atributes to parent node
  RootNode.Appendchild(parentNode);                          // save parent node
 
  //create a child node
  parentNode := xdoc.CreateElement('nome');                // create a child node
  //TDOMElement(parentNode).SetAttribute('sexo', 'M');     // create atributes
  nofilho := xdoc.CreateTextNode('Fernando');         // insert a value to node
  parentNode.Appendchild(nofilho);                         // save node
  RootNode.ChildNodes.Item[0].AppendChild(parentNode);       // insert child node in respective parent node
 
  //create a child node
  parentNode := xdoc.CreateElement('idade');               // create a child node
  //TDOMElement(parentNode).SetAttribute('ano', '1976');   // create atributes
  nofilho := xdoc.CreateTextNode('32');               // insert a value to node
  parentNode.Appendchild(nofilho);                         // save node
  .ChildNodes.Item[0].AppendChild(parentNode);       // insert a childnode in respective parent node
 
  writeXMLFile(xDoc,'teste.xml');                     // write to XML
  Xdoc.free;                                          // free memory
end;
 
initialization
  {$I unit1.lrs}
 
end.

[Luckie]

Zitat von nanix:

I spoted this sample code while browsing google its for FPC but it dosent work in delphi

Nice. And what do you expect from us now? Guessing the error messages?

[nanix]

No i am asking why its not compatible with delphi.

[mirage228]

I see two lines which definitely will not work:

1.)
  {$I unit1.lrs} Delphi form resources are not included in that way. You have to write:
  {$R *.dfm} Of course this requires a Delphi DFM file which contains the GUI elements of the Form corresponding to the Unit (Unit.dfm) to be present. As far as I know Delphi is not able to load those Lazarus resource files.

2.)
.ChildNodes.Item[0].AppendChild(parentNode); // insert a childnode in respective parent node This is a syntax error. There must be a suitable object instance before the dot "." at the beginning of the line.

[Luckie]

Zitat von nanix:

No i am asking why its not compatible with delphi.

If it is not compatible there must be error messages from the compiler. So why don't you inform us about these error messages? Don't you think this would make it a bit eaysier for us?

[nanix]

I used a XMLDocument and empty form all with 2010 delphi.

Next errors i got.

Zitat:

[DCC Error] Unit2.pas(29): E2003 Undeclared identifier: 'TDOMNode'
[DCC Error] Unit2.pas(32): E2250 There is no overloaded version of 'Create' that can be called with these arguments
[DCC Error] Unit2.pas(35): E2035 Not enough actual parameters
[DCC Error] Unit2.pas(36): E2003 Undeclared identifier: 'Appendchild'
[DCC Error] Unit2.pas(40): E2035 Not enough actual parameters
[DCC Error] Unit2.pas(41): E2003 Undeclared identifier: 'TDOMElement'
[DCC Error] Unit2.pas(41): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(42): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(45): E2035 Not enough actual parameters
[DCC Error] Unit2.pas(47): E2003 Undeclared identifier: 'CreateTextNode'
[DCC Error] Unit2.pas(48): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(49): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(49): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(52): E2035 Not enough actual parameters
[DCC Error] Unit2.pas(54): E2003 Undeclared identifier: 'CreateTextNode'
[DCC Error] Unit2.pas(55): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(56): E2029 Statement expected but '.' found
[DCC Error] Unit2.pas(56): E2066 Missing operator or semicolon
[DCC Error] Unit2.pas(58): E2003 Undeclared identifier: 'writeXMLFile'

[himitsu]

Interfaces (IXMLDocument) > unit XMLIntf and XMLDOM
Classes (TXMLDocument) > unit XMLDoc

TDOMNode are daclared in unit XDOM (Extended Document Object Model) or OXMLDOM (Open XML)

[nanix]

Or let me ask a more simple question how to generate an XML with delphi and not FPC.
I just cant fix this code.