WEBINAR: On-demand webcast
How to Boost Database Development Productivity on Linux, Docker, and Kubernetes with Microsoft SQL Server 2017 REGISTER >
The attached sample (datasender.exe) should have at least two instances running - one to be the server and one as the client. You can then 'listen' as the server and 'connect' as the client to send data between the two.
SocketNum = socket(AF_INET, SOCK_STREAM, 0) If SocketNum < 1 then Exit Sub End If SocketBuffer.sin_family = AF_INET SocketBuffer.sin_port = htons(12310) 'port SocketBuffer.sin_addr = 0 SocketBuffer.sin_zero = string$(8, 0) X = bind(SocketNum, SocketBuffer, sockaddr_size) If X <> 0 then X = WSACleanup() MsgBox "Failed to bind" Exit Sub End If numListen = 2 X = listen(byval SocketNum, byval numListen) X = WSAAsyncSelect(SocketNum, ReceiveWindow.hWnd, _ byval &H202, byval FD_CONNECT Or FD_ACCEPT)
This code specifies the port in which the application should listen on, the socket number, and the type of connection.
RC = SendData(SocketNum, "Your string") 'Sends data to 'the client/server
>- Use this to send data.
SocketBuffer.sin_family = AF_INET SocketBuffer.sin_port = htons(12310) SocketBuffer.sin_addr = IPAddr SocketBuffer.sin_zero = string$(8, 0) RC = connect(SocketNum, SocketBuffer, len(SocketBuffer))
- Designates a port, and IP address for the client and connects to the server.
It's somewhat complicated, but I hope the example I have provided helps. HAVE FUN!