Send BinData Contents over a Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.SendBd, which sends bytes from a BinData beginning at an offset. A numBytes of 0 sends from the offset through the end of the data.

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
}

#  Place some bytes into a BinData to be sent.
set bd [new_CkBinData]

CkBinData_AppendString $bd "message payload" "utf-8"

#  Send bytes from the BinData starting at the given offset.  A numBytes of 0 sends from the offset
#  through the end of the data.
set success [CkSocket_SendBd $socket $bd 0 0]
if {$success == 0} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    delete_CkBinData $bd
    exit
}

puts "Sent [CkBinData_get_NumBytes $bd] bytes."

delete_CkSocket $socket
delete_CkBinData $bd