(Visual Basic 6.0) 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

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

Dim http As New ChilkatHttp

Dim strHtml As String
strHtml = http.QuickGetStr("https://www.duckduckgo.com/")
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print http.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:
Dim mime As New ChilkatMime

Dim success As Long
success = mime.LoadMime(http.LastResponseHeader)
If (success = 0) Then
    Debug.Print mime.LastErrorText
    Exit Sub
End If

' Get MIME header field values using Chilkat MIME...
Debug.Print "----"
Debug.Print "ETag: " & mime.GetHeaderField("ETag")