Use an Existing Socket Connection for REST

See more REST Examples

Demonstrates Rest.UseConnection, which supplies an already-connected Socket as the transport for REST requests instead of calling Connect. This is useful when the connection must be established with specific socket options or shared across objects.

load ./chilkat.dll

set success 0

#  Demonstrates supplying an already-connected socket for the REST transport.  This is useful when
#  the connection must be established with specific socket options, or reused across objects.

set socket [new_CkSocket]

set bSsl 1
set success [CkSocket_Connect $socket "example.com" 443 $bSsl 5000]
if {$success != 1} then {
    puts [CkSocket_lastErrorText $socket]
    delete_CkSocket $socket
    exit
}

set rest [new_CkRest]

#  Use the connected socket as the transport.  The 2nd argument enables automatic reconnection.
set bAutoReconnect 1
set success [CkRest_UseConnection $rest $socket $bAutoReconnect]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkSocket $socket
    delete_CkRest $rest
    exit
}

set responseText [CkRest_fullRequestNoBody $rest "GET" "/api/status"]
if {[CkRest_get_LastMethodSuccess $rest] == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkSocket $socket
    delete_CkRest $rest
    exit
}

puts "$responseText"

delete_CkSocket $socket
delete_CkRest $rest