[Gambas-user] best way to use the stream from server socket?

gen braga genbraga1 at gmail.com
Mon Oct 14 18:07:12 CEST 2019

Try this simple example.
I'm using UDP as it seems to me it's enough for what you need.

server side:

Private $ServerSocket As New UdpSocket As "ServerSocket"

Public Sub Main()

  $ServerSocket.Port = "9876"
  $ServerSocket.Host = ""

  If $ServerSocket.Status < Net.Active Then Stop


Public Sub ServerSocket_Read()
  Dim Command As Byte
  Dim Parameter1 As Integer
  Dim Parameter2 As String
  Dim Parameter3 As Boolean

  Command = Read #$ServerSocket As Byte
  Parameter1 = Read #$ServerSocket As Integer
  Parameter2 = Read #$ServerSocket As String
  Parameter3 = Read #$ServerSocket As Boolean

  Print Command
  Print Parameter1
  Print Parameter2
  Print Parameter3


client side:

Private $ClientSocket As New UdpSocket

Public Sub Main()

  Dim Command As Byte = 10
  Dim Parameter1 As Integer = 1000
  Dim Parameter2 As String = "Parameter"
  Dim Parameter3 As Boolean = True

  $ClientSocket.TargetHost = ""
  $ClientSocket.TargetPort = "9876"

  If $ClientSocket.Status < Net.Active Then Stop

    Write #$ClientSocket, Command As Byte
    Write #$ClientSocket, Parameter1 As Integer
    Write #$ClientSocket, Parameter2 As String
    Write #$ClientSocket, Parameter3 As Boolean


There are better ways to do the same but for now I think this is
enough, as you said ur under pressure.


2019-10-14 12:06 GMT-03:00, PICCORO McKAY Lenz <mckaygerhard at gmail.com>:
> I'd like a better explanation of how I could separate what I take out
> of the flow from the object that receives the flow on the socket
> server.
> sorry i'm pretty late now in gambas.. due i have been busy I'm pretty
> rusty on programming now and I'm under pressure...
> i have that piece of code but i¿m not using events in that class:
> Public Clients As Object[]
> Public Srv As ServerSocket
> Public Sub Socket_Read()
>   Dim sCad As String
>   Read #Last, sCad, Lof(Last)
>   Print "Comando recibido --> " & sCad
>   Write #Last, "Comando recibido...", 19
>                '1234567890123456789
> End
> (lest assume _new, _close and connect Sub's)
> i have a main module.. if i have too many impelmentations of that
> class maybe the stream object will be very stressed.. so how to
> property implement?
> Lenz McKAY Gerardo (PICCORO)
> http://qgqlochekone.blogspot.com
> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net ]----

More information about the User mailing list