Tcl
Tcl
Receive a 16-bit Integer from a Socket
See more Socket/SSL/TLS Examples
Demonstrates Socket.ReceiveInt16, which reads exactly two bytes as a 16-bit integer and stores the result in the ReceivedInt property. Byte order and signedness are selectable.
Background. Fixed-size integers and length prefixes are common building blocks for application-defined binary protocols. Byte order is selectable, with big-endian being network byte order.
Chilkat Tcl Downloads
load ./chilkat.dll
set success 0
set socket [new_CkSocket]
# Connect to the server using TLS.
set bTls 1
set maxWaitMs 5000
set success [CkSocket_Connect $socket "example.com" 5000 $bTls $maxWaitMs]
if {$success == 0} then {
puts [CkSocket_lastErrorText $socket]
delete_CkSocket $socket
exit
}
# Read exactly two bytes as a 16-bit integer and store the result in the ReceivedInt property.
# The 1st argument selects byte order (1 = big-endian); the 2nd selects unsigned interpretation.
set bBigEndian 1
set bUnsigned 0
set success [CkSocket_ReceiveInt16 $socket $bBigEndian $bUnsigned]
if {$success == 0} then {
puts [CkSocket_lastErrorText $socket]
delete_CkSocket $socket
exit
}
puts "Received 16-bit integer: [CkSocket_get_ReceivedInt $socket]"
delete_CkSocket $socket