(Visual FoxPro) 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

LOCAL loHttp
LOCAL lcStrHtml
LOCAL loMime
LOCAL lnSuccess

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lcStrHtml = loHttp.QuickGetStr("https://www.duckduckgo.com/")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? loHttp.LastResponseHeader

* 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:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Mime')
loMime = CreateObject('Chilkat.Mime')

lnSuccess = loMime.LoadMime(loHttp.LastResponseHeader)
IF (lnSuccess = 0) THEN
    ? loMime.LastErrorText
    RELEASE loHttp
    RELEASE loMime
    CANCEL
ENDIF

* Get MIME header field values using Chilkat MIME...
? "----"
? "ETag: " + loMime.GetHeaderField("ETag")

RELEASE loHttp
RELEASE loMime