Visual FoxPro

Example: Http.SetCookieXml method

Demonstrates the SetCookieXml method. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcHtml
LOCAL loHttpB
LOCAL loHttpC
LOCAL loSbCookiesXml

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

loHttp.SaveCookies = 1
loHttp.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.
loHttp.SendCookies = 0

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

*  Examine the LastResponseHeader to see the cookies that were received:
? loHttp.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.
? loHttp.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:
loHttpB = CreateObject('Chilkat.Http')

loHttpB.SaveCookies = 1
loHttpB.CookieDir = "c:/temp/cookie_cache"
loHttpB.SendCookies = 1

*  The cookies from the cache are sent.
lcHtml = loHttpB.QuickGetStr("https://google.com/")

*  Examine the LastHeader to see the contents of the Cookie header field.
? loHttpB.LastHeader
? "----------------------------------"

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

loHttpC = CreateObject('Chilkat.Http')

loHttpC.SaveCookies = 1
*  Do not save cookies to files, just keep them in memory.
loHttpC.CookieDir = "memory"
loHttpC.SendCookies = 1

loSbCookiesXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbCookiesXml.LoadFile("c:/temp/cookie_cache/google_com.xml","utf-8")
IF (lnSuccess = 0) THEN
    ? loSbCookiesXml.LastErrorText
    RELEASE loHttp
    RELEASE loHttpB
    RELEASE loHttpC
    RELEASE loSbCookiesXml
    CANCEL
ENDIF

lnSuccess = loHttpC.SetCookieXml("google.com",loSbCookiesXml.GetAsString())
IF (lnSuccess = 0) THEN
    ? loHttpC.LastErrorText
    RELEASE loHttp
    RELEASE loHttpB
    RELEASE loHttpC
    RELEASE loSbCookiesXml
    CANCEL
ENDIF

lcHtml = loHttpC.QuickGetStr("https://google.com/")

*  Examine the LastHeader to see the contents of the Cookie header field.
? loHttpC.LastHeader

RELEASE loHttp
RELEASE loHttpB
RELEASE loHttpC
RELEASE loSbCookiesXml