(Tcl) REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

Demonstrates how the autoReconnect argument to the Connect method is used.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set rest [new_CkRest]

# This example demonstrates the usage of the autoReconnect argument to the Connect method.
# When autoReconnect is on, subsequent REST method calls will automatically re-connect
# if necessary, using the same information (domain/IP address, port number, and TLS).
set bTls 0
set port 80
set bAutoReconnect 1
set success [CkRest_Connect $rest "dev.markitondemand.com" $port $bTls $bAutoReconnect]

# Get a stock quote:
set success [CkRest_AddQueryParam $rest "symbol" "AAPL"]
set responseXml [CkRest_fullRequestNoBody $rest "GET" "/MODApis/Api/v2/Quote"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

set xml [new_CkXml]

set success [CkXml_LoadXml $xml $responseXml]
puts "AAPL LastPrice: [CkXml_getChildContent $xml LastPrice]"

# Get another stock quote.  If a new HTTP connection is required,
# the REST object will automatically connect using the same parameters.
set success [CkRest_AddQueryParam $rest "symbol" "AMZN"]
set responseXml [CkRest_fullRequestNoBody $rest "GET" "/MODApis/Api/v2/Quote"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkXml $xml
    exit
}

set success [CkXml_LoadXml $xml $responseXml]
puts "AMZN LastPrice: [CkXml_getChildContent $xml LastPrice]"

delete_CkRest $rest
delete_CkXml $xml