(Tcl) QuickDeleteStr Example

Sends a DELETE request to a URL. The URL can potentially include params, and custom request headers can be added.

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]

# Specifiy a session log file so we can see the exact request/response
CkHttp_put_SessionLogFilename $http "c:/aaworkarea/sessionLog.txt"

# Perhaps add a custom header or two..
CkHttp_SetRequestHeader $http "x-exz-date" "20201012T235046Z"
CkHttp_SetRequestHeader $http "x-exz-id" "1234"

# Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
set url "https://www.example.com/someting?param1=123&param2=abc"
set reponseBodyStr [CkHttp_quickDeleteStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    # This will happen if the response status code was 400 or greater,
    # or if the request could not be sent, or if no response was received.
    set statusCode [CkHttp_get_LastStatus $http]
    puts "Response status: $statusCode"

    if {$statusCode == 0} then {
        # There was an error in communications.  
        puts [CkHttp_lastErrorText $http]
    }     else {
        # We received a response status code indicating failure.
        # Examine the response body.
        puts [CkHttp_lastResponseBody $http]
    }

    delete_CkHttp $http
    exit
}

# The DELETE request that is sent looks like this.
# The Accept and Accept-Encoding headers are automatically added by default.

# 	DELETE /someting?param1=123&param2=abc HTTP/1.1
# 	Host: www.example.com
# 	Accept: */*
# 	Accept-Encoding: gzip
# 	x-exz-date: 20201012T235046Z
# 	x-exz-id: 1234

# Get the response status
set statusCode [CkHttp_get_LastStatus $http]
puts "Response status: $statusCode"

# Show the response body
puts "$reponseBodyStr"

delete_CkHttp $http