(DataFlex) QuickDeleteStr Example

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Integer iStatusCode
    String sUrl
    String sReponseBodyStr
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Specifiy a session log file so we can see the exact request/response
    Set ComSessionLogFilename Of hoHttp To "c:/aaworkarea/sessionLog.txt"

    // Perhaps add a custom header or two..
    Send ComSetRequestHeader To hoHttp "x-exz-date" "20201012T235046Z"
    Send ComSetRequestHeader To hoHttp "x-exz-id" "1234"

    // Send a DELETE request to https://www.example.com/someting?param1=123&param2=abc
    Move "https://www.example.com/someting?param1=123&param2=abc" To sUrl
    Get ComQuickDeleteStr Of hoHttp sUrl To sReponseBodyStr
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        // 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.
        Get ComLastStatus Of hoHttp To iStatusCode
        Showln "Response status: " iStatusCode

        If (iStatusCode = 0) Begin
            // There was an error in communications.  
            Get ComLastErrorText Of hoHttp To sTemp1
            Showln sTemp1
        End
        Else Begin
            // We received a response status code indicating failure.
            // Examine the response body.
            Get ComLastResponseBody Of hoHttp To sTemp1
            Showln sTemp1
        End

        Procedure_Return
    End

    // 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
    Get ComLastStatus Of hoHttp To iStatusCode
    Showln "Response status: " iStatusCode

    // Show the response body
    Showln sReponseBodyStr


End_Procedure