I figured I'd put my code, as irrelevant or silly some think it is, in case someone else is fighting...
(use whatever for ports, I just picked a random one)
This is the client end:
'dummy program to connect to server
cname$ = "bench-a" ' replace string with server computer name, 'bench-a' was mine
keeptrying:
desip$ = "TCP/IP:50064:" + cname$
Print "Trying to connect to "; desip$; "..."
ch = _OpenClient(desip$)
_Delay 1
If ch <> 0 Then GoTo answer
GoTo keeptrying
answer:
Print "Connected, file number:"; ch
And this is the server waiting for incoming connection:
'just a dummy program to act as a server
' get this computers name from hostname file
Open "/etc/hostname" For Input As #1
Input #1, hostname$
Close #1
Print "This computer to connect to: "; hostname$
serverport$ = "TCP/IP:50064"
servername& = _OpenHost(serverport$)
hangout:
_Delay 1
If InKey$ > "" Then End
Print "Waiting..."
n& = _OpenConnection(servername&)
If n& = 0 Then GoTo hangout
Print "Connected-";
Print _ConnectionAddress(n&)
Print "filenumber:"; n&
(use whatever for ports, I just picked a random one)
This is the client end:
'dummy program to connect to server
cname$ = "bench-a" ' replace string with server computer name, 'bench-a' was mine
keeptrying:
desip$ = "TCP/IP:50064:" + cname$
Print "Trying to connect to "; desip$; "..."
ch = _OpenClient(desip$)
_Delay 1
If ch <> 0 Then GoTo answer
GoTo keeptrying
answer:
Print "Connected, file number:"; ch
And this is the server waiting for incoming connection:
'just a dummy program to act as a server
' get this computers name from hostname file
Open "/etc/hostname" For Input As #1
Input #1, hostname$
Close #1
Print "This computer to connect to: "; hostname$
serverport$ = "TCP/IP:50064"
servername& = _OpenHost(serverport$)
hangout:
_Delay 1
If InKey$ > "" Then End
Print "Waiting..."
n& = _OpenConnection(servername&)
If n& = 0 Then GoTo hangout
Print "Connected-";
Print _ConnectionAddress(n&)
Print "filenumber:"; n&