Trasmissione di dati fra due o più programmi Gambas mediante la Classe Socket del Componente gb.net

I Socket sono definiti come endpoint di comunicazione e si riferiscono a un mezzo di comunicazione del computer che utilizza indirizzi IP e porte.

I Socket vengono generalmente utilizzati per inviare dati tra due computer su una rete, ma possono anche essere utilizzati per comunicare tra due programmi sullo stesso computer.

La struttura base di funzionamento delle Socket è di tipo Client/Server.
Supponiamo di avere due processi p1 e p2. Il processo p2 ha bisogno del processo p1 per eseguire un determinato compito. Il processo p1 offrirà al processo p2 tale servizio, esso perciò sarà il "Servente" ovvero il Server. Il processo p2 che richiede il servizio sarà dunque il "Cliente", ovvero il Client.

Questa pagina mostrerà come creare un programma Server Socket e due o più programmi Client Socket mediante la Classe "Socket" del Componente Gambas gb.net . ^{[Nota 1]}
Dopo aver lanciato il Server e i due Client, si potrà inviare del testo dal primo Client al secondo e viceversa.

Creiamo il "Server Socket":

Public Clients As New Object[]
Private MySock As Socket


Public Sub Form_Open()
 
' Si assegna un numero qualsiasi della porta:
 ServerSocket1.Port = 12345
 ServerSocket1.Type = Net.Internet
   
 Button1.Text = "Attiva il Server..."
  
End

Public Sub Form_Close()

 ServerSocket1.Close
 
End


Public Sub Button1_Click()

 ServerSocket1.Listen(2)
 
 If ServerSocket1.Status = Net.Active Then
   Button1.Enabled = False
   Button1.Background = Color.Green
   Button1.Text = "Server attivo !"
   Me.Caption &= "In attesa sulla Porta: " & ServerSocket1.Port & gb.CrLf
 End If

End

Public Sub ServerSocket1_Connection(HostIP As String)
 
 Me.Text = "Connessione da... " & HostIP
 
 MySock = ServerSocket1.Accept()
 Clients.Add(MySock)
 Object.Attach(MySock, Me, "Forza")
 
 Write #Clients[Clients.Max], "Connessione al Server accettata !\n"
 
End


Public Sub Forza_Read()
 
 Dim strMsg As String
 
 If Last.Status <> Net.Connected Then Return
 
 Read #Last, strMsg, Lof(Last)
 
 TextArea1.Text &= strMsg
 
 If Clients.Count = 1 Then
   Write #Clients[0], strMsg
 Else
   If Last.RemotePort == Clients[0].RemotePort Then
     Write #Clients[1], strMsg
   Else
     Write #Clients[0], strMsg
   Endif
 Endif
 
End

Quindi scriviamo il codice del primo "Client Socket".
Bisognerà individuare il proprio indirizzo IP privato. Questo indirizzo IP privato potrà essere ricavato lanciando da Terminale il comando: ~$ hostname -I

Private SockClient1 As Socket
Private Button1 As Button
Private Button2 As Button
Private TextArea1 As TextArea


Public Sub form_Open()
 
 With Me
   .Center
   .W = 400
   .H = 400
 End With
 With Button1 = New Button(Me) As "Button1"
   .Text = "   Attiva connessione   "
   .W = .Font.TextWidth(.Text)
   .H = .Font.TextHeight(.Text) * 3
   .X = (Me.W / 2) - (.W / 2)
   .Y = Me.H * 0.05
 End With
 With TextArea1 = New TextArea(Me) As "TextArea1"
   .W = Me.W * 0.8
   .H = Me.H * 0.6
   .X = (Me.W / 2) - (.W / 2)
   .Y = Button1.Y + Button1.H + 10
 End With
 With Button2 = New Button(Me) As "Button2"
   .Text = "   INVIA TESTO   "
   .W = .Font.TextWidth(.Text)
   .H = .Font.TextHeight(.Text) * 3
   .X = (Me.W / 2) - (.W / 2)
   .Y = TextArea1.Y + TextArea1.H + 10
 End With
 
End

Public Sub Form_Close()
 
 If SockClient1.Status > Net.Inactive Then SockClient1.Close
 
End


Public Sub Button1_Click()
 
 Dim sBuf As String
 
 SockClient1 = New Socket As "Server"
' Si connette al proprgramma "Server" impostando l'indirizzo IP privato e il numero della porta del "Server" medesimo:
 SockClient1.Connect("Indirizzo_IP_privato", 12345)
 
 Do While (SockClient1.Status <> 7) And (SockClient1.Status > 0)
   Wait 0.01
 Loop
 
 If SockClient1.Status <> 7 Then
   Print "Error"
   Quit
 Endif
 
End

Public Sub Button2_Click()
 
' Invia testo al Server, affinché lo indirizzi all'altro programma "Client":
 Write #SockClient1, TextArea1.Text
 
End

Public Sub Server_Read()   ' Legge i dati inviati dal Server
 
 Dim buf As String
 
 Read #SockClient1, buf, Lof(SockClient1)
 
 With TextArea1
   .Wrap = True
   .Text = buf & gb.NewLine
   .SetFocus
 End With
 
End

Public Sub TextArea1_MouseUp()
 
 TextArea1.Clear

End

Il codice del secondo "Client Socket" sarà uguale al codice del primo "Client Socket".

Note

[1] Da vedere le seguenti pagine web:
- http://gambaswiki.org/wiki/doc/network
- http://gambaswiki.org/wiki/comp/gb.net/socket
- http://captainbodgit.blogspot.com/2016/08/using-sockets-with-gambas.html
- https://jsbsan.blogspot.com/2012/07/arduino-y-linux-ejemplo-de-uso-de.html
- https://docs.oracle.com/cd/E19620-01/805-4041/index.html
- http://linuxdidattica.org/docs/altre_scuole/planck/socket/progr-socket.pdf
- https://www.wikihow.it/Controllare-l%27Indirizzo-IP-su-Linux
- https://noviello.it/come-trovare-il-proprio-indirizzo-ip-su-linux/
- https://linuxiano.altervista.org/2019/11/indirizzo-ip-dal-terminale-linux/

Pagina in costruzione !