_TITLE "Server"

''$SCREENHIDE

REM'$CONSOLE:ONLY

'$DYNAMIC

_DEFINE A-Z AS LONG

OPTION _EXPLICITARRAY



SCREEN 0



DIM SENDEDLONGSG(1 TO 1)

DIM SENDEDFLOATG#(1 TO 1)



DIM SHARED WWW AS STRING * 3



HOST = _OPENHOST("TCP/IP:5000")

DO

    CLIENT = _OPENCONNECTION(HOST)

    IF CLIENT <> 0 THEN

        GET #CLIENT, 1, WWW$

        PRINT "SIMPLE REQUEST"

        WWW$ = UCASE$(WWW$)

        SELECT CASE WWW$

            CASE "GSL": D = UBOUND(SENDEDLONGSG): _

                    GET #CLIENT, , SENDEDLONGSG(D): PRINT SENDEDLONGSG(D):  _

                    REDIM _PRESERVE SENDEDLONGSG(D + 1) 'GAME SEND LONG"

            CASE "GRL":_

                    D = LBOUND(SENDEDLONGSG): _

                    PUT #CLIENT, , SENDEDLONGSG(D): PRINT SENDEDLONGSG(D): _

                    Z = UBOUND(SENDEDLONGSG): _

                    if Z <> D then: FOR x = 0 TO Z STEP 1: SWAP SENDEDLONGSG(D), SENDEDLONGSG(x): NEXT: _

                    REDIM _PRESERVE SENDEDLONGSG(Z - 1):  'GAME RECEIVE LONG

            CASE "GSD": D = UBOUND(SENDEDFLOATG#): _

                    GET #CLIENT, , SENDEDFLOATG#(D): _

                    REDIM _PRESERVE SENDEDFLOATG#(D + 1) 'GAME SEND DOUBLE"

            CASE "GRF":_

                    D = LBOUND(SENDEDFLOATG#): _

                    PUT #CLIENT, , SENDEDFLOATG#(D): _

                    Z = UBOUND(SENDEDFLOATG#): _

                    IF Z<>D THEN : FOR x = 0 TO Z STEP 1: SWAP SENDEDFLOATG#(D), SENDEDFLOATG#(x): NEXT: _

                    REDIM _PRESERVE SENDEDFLOATG#(Z - 1)  'GAME RECEIVE DOUBLE

            CASE ELSE: PRINT "IDK"

        END SELECT

    END IF



    CLOSE CLIENT 

    _LIMIT 20

LOOP UNTIL UCASE$(INKEY$) = "Q"



SYSTEM 0

_TITLE "Client"

_DEFINE A-Z AS LONG



X = _OPENCLIENT("TCP/IP:5000:localhost")

IF X <> 0 THEN

    D$ = "GSL"

    PUT #X, , D$

    TOSEND = 80

    PRINT TOSEND

    PUT #X, , TOSEND

    _DELAY 1

    CLOSE X

ELSE

    PRINT "error no server"

    _DELAY 1

    SYSTEM 1

END IF



X = _OPENCLIENT("TCP/IP:5000:localhost")

IF X <> 0 THEN

    D$ = "GRL"

    TOSEND = -1

    PUT #X, , D$

    GET #X, , TOSEND

    PRINT TOSEND

    _DELAY 1

    CLOSE X

END IF

$Console:Only

Dim Shared crlf As String * 2: crlf = Chr$(13) + Chr$(10)

Dim Shared hostConn&, conn&(100), conns%



hostConn& = _OpenHost("TCP/IP:1234")

Print _ConnectionAddress$(hostConn&)



Do

  _Limit 10

  newConn& = _OpenConnection(hostConn&)

  If newConn& <> 0 Then

    conns% = conns% + 1: conn&(conns%) = newConn&

    Print "connections:"; conns%

  End If



  If Abs(Timer - tim!) > .1 Then

    out$ = Time$ + " "

    c% = 1

    Do While c% <= conns%

      If _Connected(conn&(c%)) = 0 Then

        Close conn&(c%)

        For i% = c% + 1 To conns%

          conn&(i% - 1) = conn&(i%)

        Next i%

        conns% = conns% - 1

        Print "connections:"; conns%

      Else

        Get #conn&(c%), , in$: If in$ <> "" Then Print c%, in$

        Put #conn&(c%), , out$

      End If

      c% = c% + 1

    Loop

    tim! = Timer

  End If

Loop Until InKey$ <> ""



Close hostConn&

System

Do

  _Limit 20



  Do

    m$ = receive$

    If m$ <> "" Then Print m$;

  Loop Until m$ = ""

Loop Until InKey$ = Chr$(27)

Close connect&

System



Function send& (m$)

  c& = connect&

  If c& Then Put #c&, , m$

  send& = c&

End Function



Function receive$

  c& = connect&

  If c& Then Get #c&, , m$

  receive$ = m$

End Function



Function connect&

  Static conn&, hconn&

  If conn& Then If _Connected(conn&) Then connect& = conn&: Exit Function

  If hconn& Then

    conn& = _OpenConnection(hconn&)

  Else

    conn& = _OpenClient("TCP/IP:1234:localhost")

    If Not conn& Then

      hconn& = _OpenHost("TCP/IP:1234")

      If hconn& Then conn& = _OpenConnection(hconn&)

    End If

  End If

  connect& = conn&

End Function

• but as first I must let see you that the Client output is a fake output, you print the client variables just after sent the request of data, no time for the system to process the TCP/IP communication with the server!
  

• About code, if you like keywords UPPERCASE it is ok, I find overwelming the use of _  that you know is useful in OLD QBasic to write a line too long ( peharps more than 255 characters), but this limit is no present in QB64pe!
  

• about commands:
  

 Z = UBOUND(SENDEDLONGSG): _

                    if Z <> D then: FOR x = 0 TO Z STEP 1: SWAP SENDEDLONGSG(D), SENDEDLONGSG(x): NEXT: _

                    REDIM _PRESERVE SENDEDLONGSG(Z - 1):  'GAME RECEIVE LONG

Quote:"internal\c\c_compiler\bin\mingw32-make.exe" non Š riconosciuto come comando interno o esterno,
un programma eseguibile o un file batch.