ContactSearchDone Samples (wodXMPP)

i try wodXMPP 1.43
and try C:Program FilesWeOnlyDo.ComXMPPSamplesVBComponent6. Search And Add Samples

Private Sub wodXMPP1_ContactSearchDone(ByVal Service As WODXMPPCOMLib.IXMPPService, ByVal items As WODXMPPCOMLib.IXMPPVars)
If (items.Type = VarForm) Then
Dim fok As Boolean
fok = items.Show( Please enter criteria to search for: , Me.hWnd)
If (fok) Then
wodXMPP1.Contacts.Search Service, items
End If
End If

If (items.Type = VarReport) Then
Dim srchResult As SearchResult
Set srchResult = New SearchResult
srchResult.Show
Dim i As Integer
For i = 0 To items.Count - 1
srchResult.List1.AddItem items( jid ).SubValue(i)
Next
End If

End Sub

but srchResult.List1.AddItem items( jid ).SubValue(i) not work

Hi,

Can you please be more specific? What does not work mean? Does it throw an error? Or it simply doesn't add contacts jid into Result form?

Did search find anyone? Does it get to the line you specified at all?

Regards,
Damba

i can get Items.Count = 6
but i dont kown how to get every count 's jid

Hi,

Is there any chance we can duplicate this?

Can you please provide us an example how to reproduce this issue on our side?

Regards,
Damba

i use wodXMPP1.Contacts.Search Service, items

but i dont wanna use items.Show to set items

how can i set items myself

tks

Hi,

When Search is performed, the items collection is sent by the server containing the search form. Those are stored into XMPPVar collection, and shown as form when Show method is called.

The only way to accomplish this would be to iterate thru the items collection and create your own form.

Regards,
Damba

hi
plea's help me for example to create room

Hi,

Can you please be a little bit more specific? Did you check our samples?

We already have some sample on how to use Chatrooms. Can you try them out?

Regards,
Damba