B4X Requires Chilkat v11.0.0+

Example: Socket.DupSocket method

See more Socket/SSL/TLS Examples

Demonstrates how to call the DupSocket method. B4X

Dim success As Boolean = False

Dim socket As ChilkatSocket
socket.Initialize("socket")
success = socket.Connect("example.com", 443, True, 5000)

'  ...
'  ...

'  Duplicate the socket to share the same connection across threads.
'  In a multithreaded application, each thread should use its own socket object. For example:

'  - The main thread can use the original socket for reading.
'  - A secondary thread can use a duplicate for writing.
'  - Another thread can use a separate duplicate to monitor the connection status.

Dim socket_for_sending As ChilkatSocket
socket_for_sending.Initialize("socket_for_sending")
success = socket.DupSocket(socket_for_sending)
If success = False Then
    Log(socket.LastErrorText)
    Return
End If


Dim socket_for_monitor As ChilkatSocket
socket_for_monitor.Initialize("socket_for_monitor")
success = socket.DupSocket(socket_for_monitor)
If success = False Then
    Log(socket.LastErrorText)
    Return
End If


'  All three socket objects: socket, socket_for_sending, and socket_for_monitor share the same underlying connection.