(Tcl) Simple GET using REST

Demonstrates how to do a simple HTTP GET request using REST.

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]

# Connect to the REST server.
set bTls 1
set port 443
set bAutoReconnect 1
set success [CkRest_Connect $rest "my-store.com" $port $bTls $bAutoReconnect]

set responseJson [CkRest_fullRequestNoBody $rest "GET" "/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

puts "$responseJson"
puts "----"

# We can alternatively do this:
CkRest_ClearAllQueryParams $rest
CkRest_AddQueryParam $rest "consumer_key" "YOUR_CONSUMER_KEY"
CkRest_AddQueryParam $rest "consumer_secret" "YOUR_CONSUMER_SECRET"
set responseJson [CkRest_fullRequestNoBody $rest "GET" "/wp-json/wc/v1/products"]
if {[CkRest_get_LastMethodSuccess $rest] != 1} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

puts "$responseJson"

delete_CkRest $rest