Tcl

Example: Http.HttpParams method

Demonstrates the HttpParams method. Tcl

load ./chilkat.dll

set success 0

# 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 "c:/temp/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..
set resp [new_CkHttpResponse]

set success [CkHttp_HttpParams $http "GET" "https://chilkatsoft.com/echo_request_body.asp" $queryParams $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $queryParams
    delete_CkHttpResponse $resp
    exit
}

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 /echo_request_body.asp?limit=100&email=joe%40example.com&token=VGhlIHF1aWNrIGJyb3duIGZveCBqdW1wZWQgb3ZlciB0aGUgbGF6eSBkb2cuLi4%3D HTTP/1.1
# Host: chilkatsoft.com
# Accept: */*
# Accept-Encoding: gzip

delete_CkHttp $http
delete_CkJsonObject $queryParams
delete_CkHttpResponse $resp
delete_CkFileAccess $fac