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
long 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