PowerBuilder

QuickDeleteStr Example

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

integer li_rc
oleobject loo_Http
integer li_StatusCode
string ls_Url
string ls_ReponseBodyStr

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Specifiy a session log file so we can see the exact request/response
loo_Http.SessionLogFilename = "c:/aaworkarea/sessionLog.txt"

// Perhaps add a custom header or two..
loo_Http.SetRequestHeader("x-exz-date","20201012T235046Z")
loo_Http.SetRequestHeader("x-exz-id","1234")

// Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
ls_Url = "https://www.example.com/someting?param1=123&param2=abc"
ls_ReponseBodyStr = loo_Http.QuickDeleteStr(ls_Url)
if loo_Http.LastMethodSuccess = 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.
    li_StatusCode = loo_Http.LastStatus
    Write-Debug "Response status: " + string(li_StatusCode)

    if li_StatusCode = 0 then
        // There was an error in communications.  
        Write-Debug loo_Http.LastErrorText
    else
        // We received a response status code indicating failure.
        // Examine the response body.
        Write-Debug loo_Http.LastResponseBody
    end if

    destroy loo_Http
    return
end if

// 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
li_StatusCode = loo_Http.LastStatus
Write-Debug "Response status: " + string(li_StatusCode)

// Show the response body
Write-Debug ls_ReponseBodyStr


destroy loo_Http