B4X

Adding Cookies to an HTTP Request

See more HTTP Examples

Demonstrates how to add one or more cookies to an HTTP request. B4X

Dim success As Boolean = False

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

Dim http As ChilkatHttp
http.Initialize("http")

'  The Cookie header field has this format:
'  Cookie: name1=value1 [; name2=value2] ...

'  Build an HTTP POST request:
Dim req As ChilkatHttpRequest
req.Initialize
req.SetFromUrl("http://www.chilkatsoft.com/echoPost.asp")
req.HttpVerb = "POST"

req.AddParam("param1", "value1")
req.AddParam("param2", "value2")

'  To add cookies to any HTTP request sent by a Chilkat HTTP method
'  that uses an HTTP request object, add the cookies to the
'  request object by calling AddHeader.  

'  Add two cookies:
req.AddHeader("Cookie", "user=" & Chr(34) & "mary" & Chr(34) & "; city=" & Chr(34) & "Chicago" & Chr(34))

'  Send the HTTP POST.  
'  (The cookies are sent as part of the HTTP header.)

Dim domain As String = "www.chilkatsoft.com"
Dim port As Int = 80
Dim ssl As Boolean = False
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpSReq(domain, port, ssl, req, resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


'  Display the HTML body of the response.
If resp.StatusCode = 200 Then
    '  Show the last HTTP request header sent, which should include
    '  our cookies...
    Log(http.LastHeader)
Else
    Log("HTTP Response Status = " & resp.StatusCode)
End If


Log("---------------------")

'  Some Chilkat HTTP methods do not use an HTTP request object. 
'  For these methods, such as for QuickGetStr, cookies (or any HTTP request header) 
'  are added by calling SetRequestHeader.  
http.SetRequestHeader("Cookie", "user=" & Chr(34) & "mary" & Chr(34) & "; city=" & Chr(34) & "Chicago" & Chr(34))

Dim html As String = http.QuickGetStr("http://www.w3.org/")
If http.LastMethodSuccess <> True Then
    Log(http.LastErrorText)
Else
    '  Show the last HTTP request header sent, which should include
    '  our cookies...
    Log(http.LastHeader)
End If