Move a Connection into Another Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.TakeConnection, which moves the active connection from one Socket into another. The receiving object first releases any connection it previously held.

Dim success As Long
success = 0

Dim listenSock As New ChilkatSocket

success = listenSock.BindAndListen(5000,25)
If (success = 0) Then
    Debug.Print listenSock.LastErrorText
    Exit Sub
End If

Dim connectedSock As New ChilkatSocket
success = listenSock.AcceptNext(20000,connectedSock)
If (success = 0) Then
    Debug.Print listenSock.LastErrorText
    Exit Sub
End If

'  Move the active connection out of connectedSock and into another Socket object.  Unlike
'  TakeSocket, this does not add a member to a socket set.  After success, connectedSock holds no
'  connection.
Dim handlerSock As New ChilkatSocket
success = handlerSock.TakeConnection(connectedSock)
If (success = 0) Then
    Debug.Print handlerSock.LastErrorText
    Exit Sub
End If

Debug.Print "Connection moved to the handler socket."