(DataFlex) 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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sHtml
    String sTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // 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:
    Set ComCookieDir Of hoHttp To "/cookieDir"
    Set ComSaveCookies Of hoHttp To True

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

    Get ComQuickGetStr Of hoHttp "https://www.paypal.com/" To sHtml

    // 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 = True.
    Set ComSendCookies Of hoHttp To True

    // If another HTTP request is sent, the cookies should
    // be added:
    Get ComQuickGetStr Of hoHttp "https://www.paypal.com/" To sHtml

    // Check the LastHeader property to see the MIME header
    // of the last HTTP request sent.
    // The "Cookie" header field should be present.
    Showln "--- LastHeader ---"
    Get ComLastHeader Of hoHttp To sTemp1
    Showln sTemp1


End_Procedure