Not logged in. · Lost password · Register
Forum: agsXMPP RSS
Avatar
deepak #1
Member since Dec 2005 · 26 posts
Group memberships: Members
Show profile · Link to this post
Subject: Save vCard
Private Sub VcardResult(ByVal sender As Object, ByVal query As agsXMPP.protocol.client.IQ, ByVal data As Object)
    If query.Type = IqType.result Then
        Dim vcard As Vcard = query.Vcard
        If Not (vcard Is Nothing) Then
             txtFullname.Text = vcard.Fullname
             txtNickname.Text = vcard.Nickname
             txtBirthday.Text = vcard.Birthday.ToString
             txtDescription.Text = vcard.Description
             Dim photo As Photo = vcard.Photo
             If Not (photo Is Nothing) Then
                 picPhoto.Image = vcard.Photo.Image
             End If
        End If
    End If
End Sub
This code in Miniclient retrieves the vCard of specified JID in ur roster. Now how can I save my vCard on the server ??
Avatar
Alex #2
Member since Feb 2003 · 4317 posts · Location: Germany
Group memberships: Administrators, Members
Show profile · Link to this post
hi deepak,

you only have to set the IqType = IqType.set in your query.
And of course have a vcard object in your query with all your data you want to send to the server.
Normally you retrieve your own vcard. Edit it, change IqType to set and send it back to the server.

Alex
Close Smaller – Larger + Reply to this post:
Verification code: VeriCode Please enter the word from the image into the text field below. (Type the letters only, lower case is okay.)
Smileys: :-) ;-) :-D :-p :blush: :cool: :rolleyes: :huh: :-/ <_< :-( :'( :#: :scared: 8-( :nuts: :-O
Special characters:
Forum: agsXMPP RSS