(Visual FoxPro) Persist Cookies to XML Files and Auto Re-Send

Demonstrates how to persist incoming cookies to XML files and automatically re-send in subsesquent HTTP requests.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml

loHttp = CreateObject('Chilkat.Http')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  To save cookies to XML files (per domain) in a specific
*  directory, set the CookieDir property (the directory must
*  already exist and be writeable by the caller).  Also,
*  set the SaveCookies property:
loHttp.CookieDir = "/cookieDir"
loHttp.SaveCookies = 1

*  Any methods that do a GET, POST, etc. will save cookies
*  to the CookieDir:

lcHtml = loHttp.QuickGetStr("https://www.paypal.com/")

*  After running this code, a "paypal_com.xml" file should appear
*  in /cookieDir.

*  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>



*  To cause cached cookies to be sent with
*  subsequent HTTP requests, set the SendCookies
* property = 1.
loHttp.SendCookies = 1

*  If another HTTP request is sent, the cookies should
*  be added:
lcHtml = loHttp.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.
? "--- LastHeader ---"
? loHttp.LastHeader