Forum: Object-Pascal / Delphi-Language
by marabu,
23. Feb 2006
Hallo Michael,
das Problem hast du richtig erkannt, die Lösung ist denkbar einfach: Nicht das Iterator-Interface global speichern, sondern das Wurzel-Element.
procedure TForm1.OnJabberMessage(Sender: TObject; const Msg: IJabberMsg; const Tag: IXMLTag);
begin
self.MsgTag := Tag;
// ...
end;
Forum: Object-Pascal / Delphi-Language
by marabu,
21. Feb 2006
Das Problem ist nun wirklich klein:
// ...
if xn.Name = 'color' then
begin
s := (xn as IXMLTag).Data;
ShowMessage(s);
result := s;
end else
Forum: Object-Pascal / Delphi-Language
by marabu,
21. Feb 2006
Und ich habe immer noch keinen Test-Server am Laufen, aber schau mal:
procedure GetTags(iter: IXMLIteratorEx; s: TStrings);
var
xn: IXMLNode;
begin
while iter.HasNext do
begin
xn := iter.Next;
Forum: Object-Pascal / Delphi-Language
by marabu,
20. Feb 2006
Hallo Michael,
leider habe ich keine Erfahrung im Umgang mit JabberCom, aber mein Gefühl sagt mir, dass es etwa so gehen könnte:
procedure GetTags(iter: IXMLIteratorEx);
var
xn: IXMLNode;
begin
while iter.HasNext do