Tcl

Connect to a REST Server

Demonstrates Rest.Connect, which establishes the initial TCP (and optionally TLS) connection to a REST server. The example connects over HTTPS and then reuses the connection for a request.

Background. A single connection can serve many requests to the same host. The TLS argument should be _TRUE_ for HTTPS (typically port 443), and automatic reconnection lets Chilkat transparently re-establish a dropped keep-alive connection.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


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
}

#  The connection is now established and ready for requests.  A single connection can be reused for
#  many requests to the same server.
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"

delete_CkRest $rest