Jabber XMLStream parsen

[Luckie]

Jupp, hast Recht. So geht es:

Delphi-Quellcode:

procedure TForm1.GetTags(iter: IXMLIteratorEx; s: TStrings);
var
  xn                : IXMLNode;
begin
  while iter.HasNext do
  begin
    xn := iter.Next;
    if xn.IsTag then
      with xn as IXMLTag do
      begin
        s.Add(Name+ ': ' + (xn as IXMLTag).Data);
        GetTags(children, s);
      end;
  end;
end;

Danke noch mal.