(Tcl) Demonstrates the Http.QuickRequestParams Method

Demonstrates how to use the Http.QuickRequestParams method. This is where query params can be provided non-URL-encoded in JSON format.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

# Demonstrate sending a GET request with query parameters.
set queryParams [new_CkJsonObject]

CkJsonObject_UpdateInt $queryParams "limit" 100
CkJsonObject_UpdateString $queryParams "email" "joe@example.com"
CkJsonObject_UpdateString $queryParams "token" "VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4="

# Set a session log filename so we can examine the exact request that is sent.
set sessionLogPath "qa_output/sessionLog.txt"
CkHttp_put_SessionLogFilename $http $sessionLogPath

# Send the GET request to an endpoint.  We don't care about the response. The purpose of this example
# is to see the exact HTTP request that is sent..
# resp is a CkHttpResponse
set resp [CkHttp_QuickRequestParams $http "GET" "https://www.chilkatsoft.com/echoPostBody.asp" $queryParams]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $queryParams
    exit
}

delete_CkHttpResponse $resp

set fac [new_CkFileAccess]

set sessionLog [CkFileAccess_readEntireTextFile $fac $sessionLogPath "utf-8"]
puts "$sessionLog"
set success [CkFileAccess_FileDelete $fac $sessionLogPath]

# This is the exact GET request that was sent.
# Notice how each query parameter is URL encoded and added to the HTTP start line of the request.

# GET /echoPostBody.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
# Host: www.chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip

delete_CkHttp $http
delete_CkJsonObject $queryParams
delete_CkFileAccess $fac