XML parse

Hej Gtu,

XML1.DocumentElement.ChildNodes['tshirt'].ChildNodes['pris'].ChildValues['large'];

Med venlig hilsen
Ieet

virker ikke

Iteration gemme DOM træ er for besværligt - det er nemmere med XPath.

Kode:

  doc := TXMLDocument.Create(nil);
  doc.LoadFromFile('C:\d.xml');
  pris := (doc.DOMDocument As IDOMNodeSelect).selectNode('//tshirt/pris[@size="large"]/text()').nodeValue;

Hmm kan ikke få din kode til at virke..
Jeg får disse fejl:
[Error] Unit2.pas(122): Incompatible types: 'IXMLDOMDocument' and 'TXMLDocument'
[Error] Unit2.pas(123): Undeclared identifier: 'LoadFromFile'
[Error] Unit2.pas(124): Undeclared identifier: 'DOMDocument'
[Error] Unit2.pas(124): Operator not applicable to this operand type
[Error] Unit2.pas(124): Missing operator or semicolon

uses
MSXML2_TLB

var
Doc : IXMLDOMDocument;
begin
  doc := TXMLDocument.Create(nil);
  doc.LoadFromFile('C:\d.xml');
  pris := (doc.DOMDocument As IDOMNodeSelect).selectNode('//tshirt/pris[@size="large"]/text()').nodeValue;
end;

-------

uses
MSXML2_TLB

var
Doc : IXMLDOMDocument;
link  : IXMLDOMNode;
begin
Doc := CoDomDocument.Create;
doc.load(xmldata);
pris := doc.documentElement.selectSingleNode('//tshirt/pris[@size="large]');
showmessage(pris);

Jeg har leget lidt med det.. og har prøvet ovenstående kode, men det kan jeg godt compile, men laver access vialation på sidste linie når jeg køre programmet

Det virker hos mig.

Men jeg har også en anden uses.

program xml;

{$APPTYPE CONSOLE}

uses
  SysUtils, XMLDoc, XMLDom, ActiveX;

var
  doc : TXMLDocument;
  pris : string;

begin
  CoInitialize(nil);
  doc := TXMLDocument.Create(nil);
  doc.LoadFromFile('C:\d.xml');
  pris := (doc.DOMDocument As IDOMNodeSelect).selectNode('//tshirt/pris[@size="large"]/text()').nodeValue;
  CoUnInitialize;
  writeln(pris);
  readln;
end.

Arne kan du lave et svar

yes