Tcl

Example: Socket.AcceptNext method

Demonstrates how to call the AcceptNext method. Tcl

load ./chilkat.dll

set success 0

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