(Tcl) POST JSON Without Waiting for the Response

This example demonstrates sending a POST w/ content-type "application/json" where the body of the POST contains a JSON document. The POST is sent, but we don't wait for the response.

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 rest [new_CkRest]

# Connect to the server using TLS
set bAutoReconnect 0
set success [CkRest_Connect $rest "example.com" 443 1 $bAutoReconnect]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    exit
}

# Create some sample JSON to be sent in the body of the request.
set sbJson [new_CkStringBuilder]

CkStringBuilder_Append $sbJson "{\"create\": [{\"name\": \"Woo Single #1\",\"type\": \"simple\",\"regular_price\": \"21.99\"}]}"

# Add the Content-Type HTTP request header.
CkRest_AddHeader $rest "Content-Type" "application/json"

# Just send the request.  Don't read the response.
# The request is sent to https://example.com/something?arg1=xyz&arg2=abc
set somePath "/something?arg1=xyz&arg2=abc"
set success [CkRest_SendReqSb $rest "POST" $somePath $sbJson]
if {$success == 0} then {
    puts [CkRest_lastErrorText $rest]
    delete_CkRest $rest
    delete_CkStringBuilder $sbJson
    exit
}

# OK, the request was sent.
# Close the connection.
set maxWaitMs 50
CkRest_Disconnect $rest $maxWaitMs

puts "JSON POST Sent."

delete_CkRest $rest
delete_CkStringBuilder $sbJson