Disconnect from a REST Server

See more REST Examples

Demonstrates Rest.Disconnect, which closes the current HTTP connection. The argument is the maximum number of milliseconds to wait for the close to complete.

load ./chilkat.dll

set success 0

set rest [new_CkRest]

#  Connect to the REST server.  The 3rd argument enables TLS (use 1 for HTTPS on port 443),
#  and the 4th enables automatic reconnection if the connection is dropped between requests.
set bTls 1
set bAutoReconnect 1
set success [CkRest_Connect $rest "example.com" 443 $bTls $bAutoReconnect]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

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

puts "$responseText"

#  Close the connection.  The argument is the maximum number of milliseconds to wait for the
#  close to complete.
set bDisconnected [CkRest_Disconnect $rest 200]
if {$bDisconnected != 1} then {
    puts "The disconnect did not complete within the wait time."
}

puts "Done."

delete_CkRest $rest