(Tcl) HTTP POST with Binary Data in Request Body

Do an HTTPS POST with a binary request body.

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]

set fac [new_CkFileAccess]

set reqBody [new_CkByteData]

set success [CkFileAccess_ReadEntireFile $fac "qa_data/pdf/helloWorld.pdf" $reqBody]

set responseStr [CkHttp_postBinary $http "https://example.com/something" $reqBody "application/pdf" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkFileAccess $fac
    delete_CkByteData $reqBody
    exit
}

set responseStatusCode [CkHttp_get_LastStatus $http]
puts "Status code: $responseStatusCode"

# For example, if the response is XML, JSON, HTML, etc.
puts "response body:"
puts "$responseStr"

delete_CkHttp $http
delete_CkFileAccess $fac
delete_CkByteData $reqBody