(Tcl) Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set listenSocket [new_CkSocket]

set connectedSocket [new_CkSocket]

set port 5555
set backlog 25
set success [CkSocket_BindAndListen $listenSocket $port $backlog]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $listenSocket]
    delete_CkSocket $listenSocket
    delete_CkSocket $connectedSocket
    exit
}

# Accept next incoming connection
set maxWaitMs 200000
set success [CkSocket_AcceptNext $listenSocket $maxWaitMs $connectedSocket]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $listenSocket]
    delete_CkSocket $listenSocket
    delete_CkSocket $connectedSocket
    exit
}

# ...
# ...

set maxWaitMs 20000
CkSocket_Close $connectedSocket

delete_CkSocket $listenSocket
delete_CkSocket $connectedSocket