Tcl Requires Chilkat v11.0.0+

Example: Socket.DupSocket method

See more Socket/SSL/TLS Examples

Demonstrates how to call the DupSocket method. Tcl

load ./chilkat.dll

set success 0

set socket [new_CkSocket]

set success [CkSocket_Connect $socket "example.com" 443 1 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.

set socket_for_sending [new_CkSocket]

set success [CkSocket_DupSocket $socket $socket_for_sending]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    delete_CkSocket $socket_for_sending
    exit
}

set socket_for_monitor [new_CkSocket]

set success [CkSocket_DupSocket $socket $socket_for_monitor]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    delete_CkSocket $socket_for_sending
    delete_CkSocket $socket_for_monitor
    exit
}

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

delete_CkSocket $socket
delete_CkSocket $socket_for_sending
delete_CkSocket $socket_for_monitor