(Tcl) TCP Socket Send Byte and Receive Byte

Demonstrates the Chilkat Socket ReceiveByte and SendByte method.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set sock [new_CkSocket]

# --------------------------------------------------------------------
# This example uses the public TCP echo service at https://tcpbin.com/
# --------------------------------------------------------------------

set useTls 0
set port 4242
set maxWaitMs 5000
set success [CkSocket_Connect $sock "tcpbin.com" $port $useTls $maxWaitMs]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $sock]
    delete_CkSocket $sock
    exit
}

# Wait a max of 2 seconds for a response..
CkSocket_put_MaxReadIdleMs $sock 2000

# Send a byte.
CkSocket_SendByte $sock 96

# The tcpbin.com echo server only echoes after receiving an LF (linefeed char)
CkSocket_SendByte $sock 10

# The echo server will echo back whatever is sent to it.
# We should be able to read the same byte back..
# After successfully reading, the byte value is available in the ReceivedInt property.
set treatAsUnsignedInt 1
set success [CkSocket_ReceiveByte $sock $treatAsUnsignedInt]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $sock]
    delete_CkSocket $sock
    exit
}

# Let's look at the value of the byte received.  It should be 96.
puts [CkSocket_get_ReceivedInt $sock]

# The echo server also echoed the LF back.
set success [CkSocket_ReceiveByte $sock $treatAsUnsignedInt]
# Assuming success..

# Should be decimal 10.
puts [CkSocket_get_ReceivedInt $sock]

delete_CkSocket $sock