B4X

Caching cookies in-memory.

See more HTTP Examples

Caching cookies in-memory. To automatically save cookies to an in-memory cache, set the CookieDir property equal to the keyword "memory". Also, set the SaveCookies property = _TRUE_. If the SendCookies property = _TRUE_, then any cached cookies are automatically re-sent with subsequent GETs and POSTs. B4X

'  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")

'  To save cookies to an in-memory cache, set the
'  CookieDir equal to "memory".  Also,
'  set the SaveCookies property:
http.CookieDir = "memory"
http.SaveCookies = True

'  To cause cached cookies to be sent with 
'  subsequent HTTP requests, set the SendCookies
'  property = True.
http.SendCookies = True

'  Any methods that do a GET, POST, etc. will save 
'  cookies to the CookieDir (which in this case is an 
'  in-memory cache.
Dim html As String
html = http.QuickGetStr("https://www.paypal.com/")

'  To fetch the XML cookie(s) for a domain, call GetCookieXml:
Dim xmlStr As String
xmlStr = http.GetCookieXml("paypal.com")

Log(xmlStr)

'  It's content will look something like this:

'  <cookies>
'      <cookie key=".paypal.com,/" v="0" secure="yes">
'          <navcmd>_home-general</navcmd>
'          <HttpOnly />
'          <cwrClyrK4LoCV1fydGbAxiNL6iG>9cz...</cwrClyrK4LoCV1fydGbAxiNL6iG>
'      </cookie>
'  </cookies>

'  If another HTTP request is sent, the cookies should
'  be added:
html = http.QuickGetStr("https://www.paypal.com/")

'  Check the LastHeader property to see the MIME header
'  of the last HTTP request sent.
'  The "Cookie" header field should be present.
Log("--- LastHeader ---")
Log(http.LastHeader)