Tcl
Tcl
Receive an Exact Number of Bytes as Encoded Text
See more Socket/SSL/TLS Examples
Demonstrates Socket.ReceiveNBytesENC, which receives exactly the requested number of bytes and returns them encoded using a named encoding. It waits until the full count is received.
Background. Inactivity is controlled by
MaxReadIdleMs: the call fails if incoming bytes halt for longer than MaxReadIdleMs milliseconds before the full amount is received. The ENC methods move raw binary data to and from printable text using a named encoding such as base64 or hex.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
}
# MaxReadIdleMs controls the inactivity limit for receiving. The ReceiveNBytesENC call will fail if
# incoming bytes halt for longer than this many milliseconds before the full amount is received.
CkSocket_put_MaxReadIdleMs $socket 15000
# Receive exactly the requested number of bytes and return them encoded using the named encoding.
# Unlike ReceiveBytesENC, this waits until the full count has been received.
set hex [CkSocket_receiveNBytesENC $socket 16 "hex"]
if {[CkSocket_get_LastMethodSuccess $socket] == 0} then {
puts [CkSocket_lastErrorText $socket]
delete_CkSocket $socket
exit
}
puts "$hex"
delete_CkSocket $socket