(Tcl) QuickGetObj Example

The QuickGetObj method is called to send a GET request and receive the response as an HttpResponse object.

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]

# Send a GET request to download a PDF into an HTTP response object.
# resp is a CkHttpResponse
set resp [CkHttp_QuickGetObj $http "https://www.chilkatsoft.com/hello.pdf"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    # This will happen if the request could not be sent, or if no response was received.
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    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_CkHttpResponse $resp


delete_CkHttp $http