Tcl

QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse object. 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]

# Send a GET request to download a PDF into an HTTP response object.
set resp [new_CkHttpResponse]

set success [CkHttp_HttpNoBody $http "GET" "https://www.chilkatsoft.com/hello.pdf" $resp]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpResponse $resp
    exit
}

# Get the response status
set statusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response status: $statusCode"

# In this example, we want a 200 status code.
if {$statusCode == 200} then {
    # Save the response body to a file.
    # Note: This is only for the sake of this example.
    # It's better to call the Download method to download directly to a file.
    set success [CkHttpResponse_SaveBodyBinary $resp "qa_output/hello.pdf"]
    if {$success == 0} then {
        puts "Failed to write output file."
    }     else {
        puts "Wrote hello.pdf"
    }

} else {
    # Perhaps we have response body with an error message..
    puts [CkHttpResponse_bodyStr $resp]

}


delete_CkHttp $http
delete_CkHttpResponse $resp