Support forums - Web Messenger 5 Integration (Contact List)

Support forums » Products » Cute Chat and Cute Web Messeng... » Re: Web Messenger 5 Integration (Contact List)

Web Messenger 5 Integration (Contact List)

Last post 08-25-2009, 9:49 AM by cutechat. 1 replies.


	Sort Posts: Previous Next

08-22-2009, 9:00 PM 54921

www.sonet.co.nz
Joined on 08-23-2009
Posts 6

Web Messenger 5 Integration (Contact List)

Reply Quote

Hello,

I recently purchased Web Messenger 5, and am struggling to override the GetContacts() function

I have a custom database and am using Cute Web Messenger standalone

THe table below (_UFriend) contains a list of paired id's (Profile, Friend)

Please help!

This is my code

    Public Overrides Function GetContacts(ByVal identity As CuteChat.ChatIdentity) As CuteChat.IChatUserInfo()
        Dim MyConnection As SqlConnection = New SqlConnection(sitewide.GetWriteConnectionString)
        Dim MyCommand As SqlCommand = New SqlCommand("SELECT * FROM _UFriend WHERE Profile = " & HttpContext.Current.Session("UID"), MyConnection)
        MyCommand.CommandType = CommandType.Text
        Dim res As New ArrayList

        MyConnection.Open()
        Dim MyReader As SqlDataReader = MyCommand.ExecuteReader
        If MyReader.HasRows Then
            While MyReader.Read
                res.Add("User:" & MyReader(1))
            End While
        End If
        MyConnection.Close()

Return res.ToArray(GetType(CuteChat.IChatUserInfo))

End Function

Thanks

08-25-2009, 9:49 AM 55022 in reply to 54921

cutechat
Joined on 07-22-2004
Posts 2,332

Re: Web Messenger 5 Integration (Contact List)

Reply Quote

Hi,

do not use HttpContext.Current.Session("UID"), use the identity object.

Here is code of DotNetNuke, you can learn from it :

Public Overrides Function GetContacts(ByVal identity As CuteChat.ChatIdentity) As CuteChat.IChatUserInfo()
Dim portalid As Integer = 0
Dim list As ArrayList = DotNetNuke.Entities.Users.UserController.GetUsers(portalid)
Dim res As New ArrayList
Dim provider As CuteChat.ChatProvider = CuteChat.ChatProvider.Instance
Dim myname As String = provider.FromUserId(identity.UniqueId)
For Each info As DotNetNuke.Entities.Users.UserInfo In list
f Not String.Equals(info.Username, myname, StringComparison.OrdinalIgnoreCase) Then
res.Add(Me.GetUserInfo(provider.ToUserId(info.Username)))
nd If
Next
Return res.ToArray(GetType(CuteChat.IChatUserInfo))
End Function

Regards,
Terry