Mobile

Dim tcpClient As New Sockets.TcpClient
Dim portNumber As Integer = 1414 '????
'ERROR10060 on next line
tcpClient.Connect(New IPEndPoint(IPAddress.Parse("192.168.55.101"), portNumber))

Private Sub listener()
        Dim tcpListener As New Sockets.TcpListener(IPAddress.Parse("192.168.55.101"), 1414)
        tcpListener.Start()
        
        While (True)
            ' Look for notification
            If (tcpListener.Pending()) Then
                ' Get notification message
                Dim tcpClient As Sockets.TcpClient = tcpListener.AcceptTcpClient()
                Dim s As IO.Stream = tcpClient.GetStream()
                Dim buffer(250) As Byte
                Dim bytes As Int16 = s.Read(buffer, 0, buffer.Length)
                Dim message As String = System.Text.Encoding.ASCII.GetString(buffer, 0, bytes)

                ' Send back confirmation
                Dim response As String = "OK"
                Dim responseBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(response.ToCharArray())
                tcpClient.GetStream().Write(responseBytes, 0, responseBytes.Length)

                tcpClient.Close()
                showNotification(message)
            End If
            System.Threading.Thread.Sleep(1000)
        End While
    End Sub

<br />
'Synchronise Data with the central database<br />
Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click<br />
<br />
Try<br />
<br />
If (dsIncidents.HasChanges()) Then<br />
<br />
dsChanges = dsIncidents.GetChanges()<br />
<br />
'Send only the changes and return a fresh update from the central database<br />
<br />
Dim updatedIncident As DataSet = ws.SynchroniseIncidentChanges(dsChanges)<br />
<br />
'Assign to the global dataset<br />
<br />
Dim objGlobals As New Globals()<br />
<br />
objGlobals.IncidentData = updatedIncident<br />
<br />
Else<br />
<br />
'There was not changes made to the PDA incidents, so just download the latest incidents<br />
<br />
Me.GetLatestIncidentData()<br />
<br />
End If<br />
<br />
End Try<br />
<br />
End Sub<br />