(Tcl) HTTP DELETE with Body

Demonstrates how to send a DELETE request with a 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]

# Use the PText method (or PTextSb) to send a DELETE request with a body.
set requestBody "{ \"abc\": 123 }"
# resp is a CkHttpResponse
set resp [CkHttp_PText $http "DELETE" "https://example.com/something" $requestBody "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "Response status: [CkHttpResponse_get_StatusCode $resp]"
puts "Response body: "
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http