where can I get more info about TCP/IP in QB64?

[TempodiBasic]

Hello QB64 friends

I was playing with Steve's code about multiscreen using TCP/IP ... but I have no informations about this field of programming, so I am also in learning mode...
where I can get more informations about the use of TCP/IP used in localhost mode?
I have read WIKI and its code examples ....
but how many clients can I connect to a localhost?
I have found no answer to this my dubt.

Thanks for helping.

[SMcNeill]

I've stored several hundreds at one time to a local host.  If there's a limit to the number, it's greater than whatever my needs have always been. 

[TempodiBasic]

I've got a trouble with this wiki example code about sharing data with TCP/IP...
on my Lenovo Ideapad 3  I got nothing new after the FOR loop!
I have used QB64pe 3.8.0

wiki example about sharing data by TCP/IP

does it work  in your Pc/notebook?

@Steve
where can I get more informations about the use of TCP/IP used in localhost mode?

[Jack]

@TempodiBasic 
try it this way and see if it works
create the executable and make a duplicate
click on one copy to highlight/select it
control-click on the second copy and then press return, both copies should run at about the same time
the first time you run it Windows may ask you if you want to allow the app to communicate, allow it, you may need to close the apps and try again

[TempodiBasic]

Hi Jack 
you're right! I got this



with this code

Code: (Select All)

Screen _NewImage(512, 512, 256)



Dim a(511, 511) As Integer 'an array we'll send



x = _OpenClient("TCP/IP:1234:localhost") 'try to connect to a host



If x = 0 Then 'couldn't be client, so become a host

    'put some data into array a

    For xx = 0 To 511

        For yy = 0 To 511

            a(xx, yy) = xx * yy

        Next

    Next

    Print "(Try running two copies of me at once!)"

    Print "Waiting... (Press any key to end)"

    x = _OpenHost("TCP/IP:1234")

    If x = 0 Then Print "failure to create host" Else Print "Host ON"

    Do

        z = _OpenConnection(x)

        If z <> 0 Then

            Put #z, , a() 'send array a to any client that connects

            Close z

            Print "Array data send to client!"

        Else

            Print "Failure connection"

        End If

        _Limit 10

    Loop Until InKey$ <> ""

    Print "Finished!"

    End

End If



'connect to host as a client

Print "Conected to host. Reading data..."

Do

    Get #x, , a()

    _Limit 100

Loop Until EOF(x) = 0 'wait until enough data to fill the array arrives

For xx = 0 To 511

    For yy = 0 To 511

        PSet (xx, yy), a(xx, yy)

    Next

Next

Close x

Print "That's how you share data folks!" 'G@lleon

PS the debug message is mine, not of origiinal code.