Utilizzare ZeroMQ con VB.NET

Mattepuffo's logo
Utilizzare ZeroMQ con VB.NET

Utilizzare ZeroMQ con VB.NET

ZeroMQ è una libreria per lo scambio di messaggi tra un client ed un server di tipo brokerless!

Sostanzialmente vuol dire che nella libreria è già incluso tutto quello che ci serve, senza altre configurazioni.

In questo articolo vediamo un esempio di utilizzo in VB.NET.

Come potete dalla documentazione abbiamo due possibilità; noi useremo NetMQ che potete installare tramite NuGET.

Una volta fatto, vediamo un esempio di server:

Imports System.Threading
Imports NetMQ
Imports NetMQ.Sockets

Module Program

    Sub Main(args As String())
        Server()
    End Sub

    Sub Server()
        Console.WriteLine("Server avviato...")

        Using responder As ResponseSocket = New ResponseSocket()
            responder.Bind("tcp://*:5555")

            While True
                Dim str As String = responder.ReceiveFrameString()
                Console.WriteLine(str)
                Thread.Sleep(1000)
                responder.SendFrame("CIAO DAL SERVER")
            End While
        End Using

    End Sub

End Module

Per quanto riguarda il client, ovviamente potete usare qualsiasi linguaggio.

Se volete usare sempre VB.NET:

Imports System.Threading
Imports NetMQ
Imports NetMQ.Sockets

Module Program

    Sub Main(args As String())
        Client()
    End Sub

    Sub Client()
        Console.WriteLine("Connessione al server...")

        Using requester As RequestSocket = New RequestSocket()
            requester.Connect("tcp://localhost:5555")

            Dim requestNumber As Int32 = 0

            While requestNumber <> 5
                requestNumber += 1

                requester.SendFrame("CIAO DAL CLIENT!")
                Dim str As String = requester.ReceiveFrameString()
                Console.WriteLine("RISPOSTA DAL SERVER: {0}", requestNumber)
            End While

        End Using
    End Sub

End Module

Enjoy!


Condividi su Facebook

Commentami!