Sample code for 30+ languages & platforms
Tcl

Receive a Single Byte from a Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.ReceiveByte, which reads exactly one byte and stores its numeric value in the ReceivedInt property. The argument selects signed or unsigned interpretation.

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

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
}

#  Read exactly one byte.  Its numeric value is stored in the ReceivedInt property.  Passing 1
#  interprets the byte as unsigned (0 through 255); 0 interprets it as signed.
set bUnsigned 1
set success [CkSocket_ReceiveByte $socket $bUnsigned]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

puts "Received byte value: [CkSocket_get_ReceivedInt $socket]"

delete_CkSocket $socket