Jabber XMLStream parsen

[marabu]

Hallo Michael,

leider habe ich keine Erfahrung im Umgang mit JabberCom, aber mein Gefühl sagt mir, dass es etwa so gehen könnte:

Delphi-Quellcode:

procedure GetTags(iter: IXMLIteratorEx);
var
  xn: IXMLNode;
begin
  while iter.HasNext do
  begin
    xn := iter.Next;
    ShowMessage(xn.Name);
    if xn.IsTag then with xn as IXMLTag do
      GetTags(Query('*'));
  end;
end;

procedure TDemoForm.JabberSessionMessage(ASender: TObject;
  const Msg: IJabberMsg; const Tag: IXMLTag);
begin
  with Msg.MsgTag do
    GetTags(Query('*'));
end;

Grüße vom marabu