Add a Request Header to a REST Request

See more REST Examples

Demonstrates Rest.AddHeader, which adds an HTTP request header field. The 1st argument is the field name and the 2nd is the value. Adding a header whose name already exists replaces the previous value.

Dim success As Long
success = 0

Dim rest As New ChilkatRest

'  Connect to the REST server.  The 3rd argument enables TLS (use 1 for HTTPS on port 443),
'  and the 4th enables automatic reconnection if the connection is dropped between requests.
Dim bTls As Long
bTls = 1
Dim bAutoReconnect As Long
bAutoReconnect = 1
success = rest.Connect("example.com",443,bTls,bAutoReconnect)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

'  Add request header fields.  The 1st argument is the field name and the 2nd is the value.
'  Adding a header with a name that already exists replaces the previous value.
success = rest.AddHeader("Accept","application/json")
success = rest.AddHeader("X-Custom-Header","example-value")

Dim responseText As String
responseText = rest.FullRequestNoBody("GET","/api/data")
If (rest.LastMethodSuccess = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Debug.Print responseText