Hello Alex and Jabberer
i m follow your vcardresult methos in miniclient
First i have create constuctor
Public Sub New(ByVal UserJid As Jid, ByVal XMPPCon As XmppClientConnection)
XMPPConnection = XMPPCon
m_PrivacyManager = New PrivacyManager(XMPPConnection)
Dim piq As PrivacyIq = New PrivacyIq(client.IqType.get, New Jid(UserJid.Bare))
packetid = piq.Id
XMPPCon.IqGrabber.SendIq(piq, AddressOf GetLists, Nothing)
End Sub
method are ..
Public Sub GetLists(ByVal sender As Object, ByVal query As agsXMPP.protocol.client.IQ, ByVal data As Object)
If InvokeRequired Then
BeginInvoke(CType(AddressOf GetLists, IqCB), New Object() {sender, query, data})
Return
End If
If query.Type = IqType.result Then
Dim mList as List=query.List -- it returns error. ( ex. of vcard like dim vcard as vcard=query.vcard)
End If
End Sub
pls help me.