Tcl

Send a 16-bit Integer over a Socket

Demonstrates Socket.SendInt16, which sends the low 16 bits of a value as a two-byte integer in the selected byte order.

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

Download Chilkat for Tcl

Tcl


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
}

#  Send the low 16 bits of the value as a two-byte integer.  Use 1 for network byte order
#  (big-endian) or 0 for little-endian.
set bBigEndian 1
set success [CkSocket_SendInt16 $socket 1024 $bBigEndian]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

puts "16-bit integer sent."

delete_CkSocket $socket