msxml attribut setzen

[ch33seburger]

hi

kann mir vielleicht jemand verraten wie ich bei msxml ein Attribut setzen kann?
ich habs jetz schon einige male probiert, bekomme aber jedesmal ne fehlermeldung :/

Code:

procedure TForm5.Button2Click(Sender: TObject);
var
newmovie, newsub: IXMLDOMNode;
begin
newMovie := xmlDoc.createElement(combobox1.text);
newSub := xmlDoc.createElement('b1');  //hierfür will ich noch nen attribut: namens "text" mit dem werd edit2.text
newSub.text := Edit1.Text;
newMovie.appendChild(newSub);
xmlDoc.documentElement.appendChild(newMovie);
xmlDoc.save(xfile);
end;

vielen dank

[marabu]

Delphi-Quellcode:

procedure TForm5.Button2Click(Sender: TObject);
var
  newmovie, newsub: IXMLDOMNode;
begin
  ...
  newSub := xmlDoc.createElement('b1');  
  with newSub as IXMLDOMElement do         // das macht es einfacher
    setAttribute('text', edit2.text);
  newSub.text := Edit1.Text;
  ...
end;

Grüße vom marabu

[ch33seburger]

vielen dank!
es klappt super

[ch33seburger]

kann mir jetz noch jemand sagen wie ich an die childnodes vom buttonset ran komme?
also sodass ich alle childnodes in einer combobox auflisten kann

Delphi-Quellcode:

node := xmlDoc.documentElement.selectSingleNode('/buttonset/');
//Hiervon brauche ich alle childnodes :/

und wie kann ich prüfen ob ein childnode bereits existiert?

[marabu]

Ungefähr so sollte es gehen:

Delphi-Quellcode:

var 
  n, node: IXMLDOMNode;
  nl: IXMLDOMNodeList;
  i: integer;
begin
  node := xmlDoc.documentElement.selectSingleNode('/buttonset/');
  nl := node.childNodes;
  ComboBox.Clear;
  for i := 0 to nl.length - 1 do begin
    n := nl[i];
    ComboBox.Items.Add(n.tagName);
  end;
end;

Grüße vom marabu

[MathiasSimmack]

1. Zum Thema: untergeordnete Knoten: IXMLDOMNode.childNodes

2. Wenn der Knoten existiert und per "selectSingleNode" gefunden wurde, dann ist node nicht nil. Geiler Satz.

[ch33seburger]

vielen vielen dank!!
hat wiedermal alles sofort geklappt )

danke!