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

[gen braga]

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

server side:

-----8<--------------------------
Private $ServerSocket As New UdpSocket As "ServerSocket"

Public Sub Main()

  $ServerSocket.Port = "9876"
  $ServerSocket.Host = "127.0.0.1"
  $ServerSocket.Bind()

  If $ServerSocket.Status < Net.Active Then Stop

End

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

End
-----8<--------------------------

client side:

-----8<--------------------------
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 = "127.0.0.1"
  $ClientSocket.TargetPort = "9876"
  $ClientSocket.Bind()

  If $ClientSocket.Status < Net.Active Then Stop

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

  $ClientSocket.Close()
End
-----8<--------------------------

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

-
Regards,

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 ]----
>