VB.NET – Ricevere messaggi via Socket [Socket Listener]

Ieri ho scritto un articolo su come inviare dei messaggi via Socket. Come promesso sono qua a scrivervi su come realizzare un ricevitore di messaggi via Socket. Naturalmente come ieri le classi da importare nel progetto sono le stesse e vi invito a vederle nel articolo di ieri.

Io ho realizzato una applicazione di console la quale non fa nient’altro che scrivere sulla console i messaggi inviati dal mittente. Nella main della mia applicazione ho inserito tutto il codice che si mette in ascolto su una determinata porta del mio PC. Il codice è questo:

Dichiarate le seguenti variabili:

Dim host As IPAddress
Dim mySock As Socket
Dim ip As IPHostEntry
Dim ep As IPEndPoint
Dim listener As TcpListener

Una volta dichiarate le variabili ecco qua il corpo del programma. Qua viene utilizzata una funzione che elabora il messaggio in ingresso:

Try
‘Viene preso l’IP della macchina locale
ip = Dns.GetHostEntry(Dns.GetHostName())
host = IPAddress.Parse(ip.AddressList(0).ToString())
‘Creato l’EndPoint sulla porta 8200 (Porta di ascolto)
ep = New IPEndPoint(host, 8200)
‘Dichiarato il Socket di tipo TCP
mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
‘Dichiarata variabile di tipo TCPListener per far partire l’ascolto
listener = New TcpListener(ep)
listener.Start()
While True
‘Aspetto una connessione
mySock = listener.AcceptSocket()
‘Quando arriva la connessione chiamo la funzione Elabora Messaggio passando il socket
ElaboraMessaggio(mySock)
End While
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try

La funzione che Elabora il messaggio in ingresso  invece è cosi composta:

Dim buffer(1024) As Byte
Dim ByteDaLeggere As Integer

Una volta dichiarato il buffer e una variabile di tipo integer che ci dice quanto dobbiamo leggere, il codice è questo:

Try
‘Controllo se il socket è ancora connesso
If mySocket.Connected Then
‘Ricavo la lunghezza dei byte da leggere. Qua viene caricato anche il buffer
ByteDaLeggere = mySocket.Receive(buffer)
‘Faccio l’encoding del buffer per ricavare la stringa
Dim ritorno As String = Encoding.ASCII.GetString(buffer)
‘Scrivo il messaggio letto
Console.WriteLine(ritorno.TrimEnd())
End If
Catch ex As Exception
Throw ex
End Try

Se ci sono connessioni lente e messaggi tanto lunghi bisogna naturalmente ciclare sulla funzione di lettura fino a quando non si leggono tutti i byte. Questo è tutto. Nel video sotto potete vedere il risultato della applicazione di ieri e quella di oggi. Un invio e ricezione in questo caso sulla stessa macchina.