Salve a tutti.
Dovrei comunicare via cavo di rete con una periferica (sensori di pressione), inviare comandi e ricevere dati; tuttavia non riesco neppure a partire.
Ho eseguito il codice di esempio della guida ma non trova la periferica, il codice si blocca sulla ricerca alle istruzioni Dim client As TcpClient = server.AcceptTcpClient()
Un grande grazie a chi potrà aiutarmicodice:Private Sub Listener() Dim server As TcpListener server = Nothing Try Dim localAddr As IPAddress localAddr = IPAddress.Any server = New TcpListener(localAddr, 0) ' Start listening for client requests. server.Start() ' Buffer for reading data Dim bytes(1024) As Byte Dim data As String = Nothing ' Enter the listening loop. While True Debug.Print("Waiting for a connection... ") ' Perform a blocking call to accept requests. ' You could also user server.AcceptSocket() here. '------------------------------------------------------------------------- Dim client As TcpClient = server.AcceptTcpClient() ' si blocca qui... '------------------------------------------------------------------------- Debug.Print("Connected!") data = Nothing ' Get a stream object for reading and writing Dim stream As NetworkStream = client.GetStream() Dim i As Int32 ' Loop to receive all the data sent by the client. i = stream.Read(bytes, 0, bytes.Length) While (i <> 0) ' Translate data bytes to a ASCII string. data = System.Text.Encoding.ASCII.GetString(bytes, 0, i) Debug.Print("Received: {0}", data) ' Process the data sent by the client. data = data.ToUpper() Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data) ' Send back a response. stream.Write(msg, 0, msg.Length) Debug.Print("Sent: {0}", data) i = stream.Read(bytes, 0, bytes.Length) End While ' Shutdown and end connection client.Close() End While Catch e As SocketException 'Console.WriteLine("SocketException: {0}", e) Debug.Print("SocketException: {0}", e) Finally server.Stop() End Try Debug.Print(ControlChars.Cr + "Hit enter to continue....") End Sub
Rispondi quotando
