Jabber XMLStream parsen

**Luckie**

Ich lege mir beim Senden einer Nachricht ein paar extra Knoten in dem XMLStream an. Der sieht dann so aus:

XML-Code:

			<message id="JCOM_2" to="mp@datawerk.de" from="mp-test@datawerk.de/DWJabberClient">

  <foobar type="mp-extra-tag">

    <color>clOlive</color>

  </foobar>

  <body>test</body>

</message>

Jetzt wollte ich den natürlich wieder auslesen und alle Tags erhalten. Also foobar, color und body. Ich habe versucht dies mit einer rekursiven Prozedur zu lösen, nur bleibe ich immer wieder stecken, weil ich entweder nicht den XMLTag bekomme oder den XMLIterator oder den Inhalt des Tags. Ich weiß auch gar noch nit, wie doe einzelnen Elemente zusammenarbeiten sollen:

http://jabbercom.sourceforge.net/xmlcom.html

Das habe ich bisher:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure GetTags(AXMLIteratorEx: IXMLIteratorEx);

var

  XMLIterator: IXMLIteratorEx;

  XMLTag: IXMLTag;

  XMLNode: IXMLNode;

begin

  if AXMLIteratorEx.HasNext then

  begin

    XMLNode := AXMLIteratorEx.Next;

    if XMLNode.IsTag then

    begin

      ShowMessage(XMLNode.Name);

      GetTags(XMLTag.Query(XMLNode.Name));

    end;

  end;

end;

Hier noch ein anderer Versuch:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.GetTags(AXMLIterator: IXMLIterator);

var

  XMLIterator       : IXMLIteratorEx;

  XMLTag            : IXMLTag;

  XMLNode           : IXMLNode;

begin

  if AXMLIterator.HasNext then

  begin

    XMLNode := AXMLIterator.Next;

    if XMLNode.IsTag then

    begin

      ShowMessage(XMLNode.Name);

      XMLTag := JabberSession.CreateXMLTag;

      GetTags(XMLTag.Query(XMLNode.Name));

    end;

  end;

end;

Damit bekomme ich den tag "foobar" aber nicht mehr den Tag "color".

Ich habe auch schon versucht das ganze mit einem XMLTag oder XMLNode als Paramter aufzubauen, aber da bin ich immer genauso stecken geblieben.

**Luckie**

Oder erstmal nicht rekursiv:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.OnJabberMessage(Sender: TObject; const Msg: IJabberMsg; const Tag: IXMLTag);

var

  Nickname          : string;

  XMLIteratorEx     : IXMLIteratorEx;

  XMLNode           : IXMLNode;

  XMLTagIterator    : IXMLTagIterator;

  XMLTag            : IXMLTag;

  XMLCData          : IXMLCData;

  s                 : string;

begin

  if Assigned(JabberSession.Roster.FindUserID(Msg.FromJID)) then

    Nickname := JabberSession.Roster.FindUserID(Msg.FromJID).NickName;

  AddMsgToRTF(rtfMsg, clRed, Now, Nickname, Msg.Body);

  XMLIteratorEx := Tag.Children;

  while XMLIteratorEx.HasNext do

  begin

    XMLNode := XMLIteratorEx.Next;

    if XMLNode.IsTag then

    begin

      ShowMessage(XMLNode.Name);

      XMLIteratorEx := XMLTag.Query(XMLNode.Name);

      XMLNode := XMLIteratorEx.Next;

      if XMLNode.IsTag then

        ShowMessage(XMLNode.Name);

    end;

  end;

end;

Da bekomme ich in Zeile 22 eine AV und weiter geht es dann nicht.

**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:

zusammenfalten · markieren

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

**Luckie**

Danke für deine Hilfe, ich werde das morgen an der Arbeit mal ausprobieren.

**Luckie**

Also so geht es erstmal ohne das sich eine AV bekomme:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.GetTags(iter: IXMLIteratorEx);

var

  xn: IXMLNode;

begin

  while iter.HasNext do

  begin

    xn := iter.Next;

    if xn.IsTag then with xn as IXMLTag do

    begin

      ShowMessage(xn.Name);

      GetTags(Query('*'));

    end;

  end;

end;

Aber an den untergeordneten Tag von foobar komme ich immer noch nicht dran.

**Luckie**

Nachtrag: Ich habe jetzt daraus mal eine Funktion gemacht, denn die ShowMessage nützt mir ja nichts. ,)

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.GetTags(iter: IXMLIteratorEx): String;

var

  xn: IXMLNode;

begin

  while iter.HasNext do

  begin

    xn := iter.Next;

    if xn.IsTag then with xn as IXMLTag do

    begin

      result := xn.Name;

      GetTags(Query('*'));

    end;

  end;

end;

Jetzt fehlt mir aber der erste Tag, nämlich foobar.

**marabu**

Und ich habe immer noch keinen Test-Server am Laufen, aber schau mal:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure 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);

      GetTags(children, s);

    end;

  end;

end;

procedure TDemoForm.ButtonClick(Sender: TObject);

var

  xt: IXMLTag;

  s: TStringList;

begin

  s := TStringList.Create;

  xt := Jabber.CreateXMLTag;

  with xt do

  begin

    Name := 'message';

    PutAttrib('id', 'JCOM_2');

    PutAttrib('to', 'mp@datawerk.de');

    PutAttrib('from', 'mp-test@datawerk.de/DWJabberClient');

    with AddTag('foobar') do

    begin

      PutAttrib('type', 'mp-extra-tag');

      AddBasicTag('color', 'clOlive');

    end;

    ShowMessage(xml);

    GetTags(children, s);

    ShowMessage(s.Text);

    s.Free;

  end;

end;

Ich habe deine Message nachgebaut und dann wieder analysiert. Da ich noch nicht weiß, ob die Methode Query() XPath expressions unterstützt, bin ich erstmal auf die property children ausgewichen. Klappt!

marabu

**Luckie**

Hm, werde ich mir gleich mal angucken. Dank dir noch mal.

**Luckie**

Prima das klappt wunderbar.

Nur wie komme ich jetzt an die Daten von einem Tag dran?

markieren

Code:

			<message id="JCOM_3" to="mp-test@datawerk.de" from="mp@datawerk.de/DWJabberClient">

  <foobar type="mp-extra-tag">

    <color>clOlive</color>

  </foobar><body/>

</message>

Beispielsweise hier an den Wert clOlive? IXMLTag hat zwar die Eigenschaft Data, die diesen Wert wohl enthalten soll, aber mir ist es bisher noch nicht gelungen ihm zu sagen von welchem Tag er den Wert ausgeben soll.

ixmltag.data wird wohl die daten des tags auslesen auf den das interface gerade zeigt und weil du die tags durch den iterator alle durchgehst kannst du auch einfach von jedem tag das data-attribut zurückgeben anstatt dem namen

Jabber XMLStream parsen

Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Re: Jabber XMLStream parsen

Forumregeln

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#4 Re: Jabber XMLStream parsen 20. Feb 2006, 22:53 Danke für deine Hilfe, ich werde das morgen an der Arbeit mal ausprobieren. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 Re: Jabber XMLStream parsen 21. Feb 2006, 11:12 Hm, werde ich mir gleich mal angucken. Dank dir noch mal. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

Frickeldrecktuxer_TM (Gast) n/a Beiträge	#10 Re: Jabber XMLStream parsen 21. Feb 2006, 13:11 ixmltag.data wird wohl die daten des tags auslesen auf den das interface gerade zeigt und weil du die tags durch den iterator alle durchgehst kannst du auch einfach von jedem tag das data-attribut zurückgeben anstatt dem namen
	Zitat