Code not working with new version

[jimmie11]

I was using the code below in an older version.

Now, I am getting a compile error:

"Error BC30451 'connClient' is not declared. It may be inaccessible due to its protection level."

What is the error? It used to work before.

Here is the code;

Private Sub send2Controller()
        Try
            If (Started) Then
                '----------------------------------------------------------------------------
                Dim clients As IEnumerable(Of String) = _Server.ListClients()
                clients = _Server.ListClients.ToList

                For Each connClient In clients
                    If Not String.IsNullOrEmpty(connClient) Then
                        _Server.Send(connClient, bFullMessage)
                        lastSendTime = Now
                        Logger(Severity.Debug, "ID: " + CStr(truckID) + " - Sent " + (CStr(bFullMessage.Length)) + " bytes to client " & connClient & " - " + "at " + Now.ToString)
                    Else
                        Logger(Severity.Debug, "No client connected")
                    End If
                Next
                '----------------------------------------------------------------------------
                If (textNetwork.Text.Length > 100000) Then Set_textNetworkBoxOutText("")
                '----------------------------------------------------------------------------
            End If
        Catch ex As Exception
            writeIssuesFile("Send ERROR: " + ", ID = " + CStr(truckID) + "  Msg: " + ex.Message)
        End Try
    End Sub

[jchristn]

I'm assuming you were using 4.x. In 5.x the ListClients changed from providing an IEnumerable<string> to an IEnumerable<ClientMetadata>, and, the Send (and variant) methods no longer accept a string ipPort but require Guid guid. The ClientMetadata object has a Guid property. So your iteration will need to be modified.

[jimmie11]

Thank you for your quick response and for your effort in making a great library. Indeed, i was using version 4.

Can you show me how to correct those couple of lines of code as my knowledge is limited? The current documentation is very limited.

Thanks in advance.

[jchristn]

Hi @jimmie11 it looks like you're using VB, which I don't know, but based on a cursory Google search (for syntax) this is what I came up with.

Private Sub send2Controller()
	Try

	    If (Started) Then
	        '----------------------------------------------------------------------------
	        Dim clients As IEnumerable(Of ClientMetadata) = _Server.ListClients()
	        clients = _Server.ListClients.ToList

	        For Each client In clients
	            If client IsNot Nothing Then
	                _Server.Send(client.Guid, bFullMessage)
	                lastSendTime = Now
	                Logger(Severity.Debug, "ID: " + CStr(truckID) + " - Sent " + (CStr(bFullMessage.Length)) + " bytes to client " & client & " - " + "at " + Now.ToString)
	            Else
	                Logger(Severity.Debug, "No client connected")
	            End If
	        Next
	        '----------------------------------------------------------------------------
	        If (textNetwork.Text.Length > 100000) Then Set_textNetworkBoxOutText("")
	        '----------------------------------------------------------------------------
	    End If

	Catch ex As Exception

	    writeIssuesFile("Send ERROR: " + ", ID = " + CStr(truckID) + "  Msg: " + ex.Message)

	End Try
End Sub

[jimmie11]

Thank you very much. I will try it as I had gone back to using the 4.8 version.

---

I know that both the client and the server have to be written with the Watson library. But can a 4.x client talk to a 5.x server?

Thanks again.

[jchristn]

I don't believe there were any metadata schemes changes that would cause problem in a 4.x to 5.x environment.