Xbase++

Example: Http.SetCookieXml method

Demonstrates the SetCookieXml method. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cHtml
LOCAL oHttpB
LOCAL oHttpC
LOCAL oSbCookiesXml

nSuccess := 0

oHttp := CreateObject("Chilkat.Http")

oHttp:SaveCookies := 1
oHttp:CookieDir := "c:/temp/cookie_cache"
//  For this initial request, we are not sending cookies.
//  We are starting a new (cookie) session and saving the cookies we receive.
oHttp:SendCookies := 0

//  Do a request that establishes and saves cookies in files in the cookie directory.
cHtml := oHttp:QuickGetStr("https://google.com/")

//  Examine the LastResponseHeader to see the cookies that were received:
? oHttp:LastResponseHeader
? "----------------------------------"

//  We can see the following Set-Cookie response header fields:

//  Set-Cookie: AEC=AVh_V2h-fsL2-****; expires=Mon, 23-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; Secure; HttpOnly; SameSite=lax
//  Set-Cookie: NID=525=XC_cL****Hn7-WONX; expires=Thu, 26-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; HttpOnly

//  The following file was created:  c:/temp/cookie_cache/google_com.xml

//  Examine the cookies received in the above request.
? oHttp:GetCookieXml("google.com")
? "----------------------------------"

//  Sample output.

//  <?xml version="1.0" encoding="utf-8"?>
//  <cookies>
//      <cookie key=".google.com,/,AEC" v="0" expire="Mon, 23-Feb-2026 19:05:20 GMT" secure="yes">
//          <AEC>AVh_V2gL8QzTdFGYq6_rS6ktBfqm8WNG3pzHxS2nTZD5i23dRBau2c4ZRA</AEC>
//      </cookie>
//      <cookie key=".google.com,/,NID" v="0" expire="Thu, 26-Feb-2026 19:05:20 GMT">
//          <NID>525=SuLcnaSkFqF4Jz_jLEq4kt_f3MY2Xro1VDoVzLKvp8XHcW2UHuLKJSr55iDeW0NiRIPXoAwJWF1-YNl29unX2xfhEWsS5BhbuK_2DXdD9cTOmn5BSENMhZasxeJ71mEP2PQRMXBndqnl41DhblC2jjdac_so4TESIll1B0GCVe9wRFjqI6DTZItRCj61BHmr1_RAQi0_jrh_ihn6KYtIFEY7</NID>
//      </cookie>
//  </cookies>

//  -------------------------------------------------------------------------------------------
//  Let's say we want to continue with the session at some later time with a new HTTP object.
//  One way to do it is to simply set the same cookie properties:
oHttpB := CreateObject("Chilkat.Http")

oHttpB:SaveCookies := 1
oHttpB:CookieDir := "c:/temp/cookie_cache"
oHttpB:SendCookies := 1

//  The cookies from the cache are sent.
cHtml := oHttpB:QuickGetStr("https://google.com/")

//  Examine the LastHeader to see the contents of the Cookie header field.
? oHttpB:LastHeader
? "----------------------------------"

//  -------------------------------------------------------------------------------------------
//  Another way to do it is to explicitly load the cookies from XML
//  and set the cookies for the particular domain.

oHttpC := CreateObject("Chilkat.Http")

oHttpC:SaveCookies := 1
//  Do not save cookies to files, just keep them in memory.
oHttpC:CookieDir := "memory"
oHttpC:SendCookies := 1

oSbCookiesXml := CreateObject("Chilkat.StringBuilder")
nSuccess := oSbCookiesXml:LoadFile("c:/temp/cookie_cache/google_com.xml", "utf-8")
IF (nSuccess == 0)
    ? oSbCookiesXml:LastErrorText
    oHttp:destroy()
    oHttpB:destroy()
    oHttpC:destroy()
    oSbCookiesXml:destroy()
    RETURN
ENDIF

nSuccess := oHttpC:SetCookieXml("google.com", oSbCookiesXml:GetAsString())
IF (nSuccess == 0)
    ? oHttpC:LastErrorText
    oHttp:destroy()
    oHttpB:destroy()
    oHttpC:destroy()
    oSbCookiesXml:destroy()
    RETURN
ENDIF

cHtml := oHttpC:QuickGetStr("https://google.com/")

//  Examine the LastHeader to see the contents of the Cookie header field.
? oHttpC:LastHeader

oHttp:destroy()
oHttpB:destroy()
oHttpC:destroy()
oSbCookiesXml:destroy()