The attached project makes API calls to the winsock.dll eliminating the need for pricey controls. The project contains a BAS module that can be reused for core Winsock functionality. It should be noted that various parts of this code were taken from news group postings, and were heavily modified and compiled by Christopher Aliotta and the help of others.
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.
Here are some samples of the code:
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!
