(DataFlex) Get Response Header for Method that does not Return HttpResponse Object

Demonstrates how to get the response header and individual response header fields for a method that does not return an HTTP response object. (If a method returns an HHTTP response object, then the response header information should be obtained from the response object.)

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sStrHtml
    Handle hoMime
    Boolean iSuccess
    String sTemp1
    Boolean bTemp1

    // This example requires 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

    Get ComQuickGetStr Of hoHttp "https://www.duckduckgo.com/" To sStrHtml
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastResponseHeader Of hoHttp To sTemp1
    Showln sTemp1

    // Here's a sample HTTP response header:

    // Server: nginx
    // Date: Wed, 30 Sep 2020 13:13:02 GMT
    // Content-Type: text/html; charset=UTF-8
    // Transfer-Encoding: chunked
    // Connection: keep-alive
    // Vary: Accept-Encoding
    // ETag: W/"5f7371f4-1683"
    // Strict-Transport-Security: max-age=31536000
    // X-Frame-Options: SAMEORIGIN
    // Content-Security-Policy: default-src https: blob: data: 'unsafe-inline' 'unsafe-eval'; frame-ancestors 'self'
    // X-XSS-Protection: 1;mode=block
    // X-Content-Type-Options: nosniff
    // Referrer-Policy: origin
    // Expect-CT: max-age=0
    // Expires: Wed, 30 Sep 2020 13:13:01 GMT
    // Cache-Control: no-cache
    // Content-Encoding: gzip

    // We can load it into a Chilkat MIME object to get header field values:
    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    Get ComLastResponseHeader Of hoHttp To sTemp1
    Get ComLoadMime Of hoMime sTemp1 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get MIME header field values using Chilkat MIME...
    Showln "----"
    Get ComGetHeaderField Of hoMime "ETag" To sTemp1
    Showln "ETag: " sTemp1


End_Procedure