I get an Access Violation after receiving an Agents
answer from amessage.ch
The code sends a disco#info to amessage.ch, the answer
doesn't has any disco#items, but it does has an agents
feature. Then I send an agents get request an the
server sends the answer.
GI:=Form1.JAbberSession1.Session.CreateXMLTag;
GI.Name:='iq';
GI.PutAttrib('type','get');
GI.PutAttrib('from',Form1.JabberSession1.Session.
MyJID);
GI.PutAttrib('to',Entity.JID);
GI.PutAttrib('id',Entity.FWantedItem.FID);
Qry:=GI.AddTag('query');
Qry.PutAttrib('xmlns','jabber:iq:agents');
Form1.JabberSession1.Session.SendXML(GI.xml);
this is the answer:
'<iq from='amessage.ch' to='dnabdala@jabberes.org/
TiJy_im' type='result' id='JCOM_4'><query
xmlns='jabber:iq:agents'><agent jid='users.jabber.
org'><name>Users directory at jabber.org</
name><service>jud</service></agent><agent jid='aim.
gate.amessage.de'><name>AIM transport</
name><service>aim</service></agent><agent jid='icq.
amessage.info'><name>ICQ transport</name><service>icq</
service></agent><agent jid='yahoo.amessage.
info'><name>Yahoo transport</name><service>yahoo</
service></agent><agent jid='chat.amessage.
info'><name>Chat rooms</name><service>public</
service></agent></query></iq>'
After generating the OnAngentsStart Event the Dll
throws an AV at address 00EBCDD5 "read of address
0000000".
Logged In: NO
It happends if you never call Agents.Fetch(), it doesn't if
before sending the request you call it.
I asume that has something to do with the _AgentsList.