DataFlex

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sHtml
    String sXmlStr
    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 an in-memory cache, set the
    // CookieDir equal to "memory".  Also,
    // set the SaveCookies property:
    Set ComCookieDir Of hoHttp To "memory"
    Set ComSaveCookies Of hoHttp To True

    // To cause cached cookies to be sent with 
    // subsequent HTTP requests, set the SendCookies
    // property = True.
    Set ComSendCookies Of hoHttp To True

    // Any methods that do a GET, POST, etc. will save 
    // cookies to the CookieDir (which in this case is an 
    // in-memory cache.

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

    // To fetch the XML cookie(s) for a domain, call GetCookieXml:

    Get ComGetCookieXml Of hoHttp "paypal.com" To sXmlStr

    Showln sXmlStr

    // 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:
    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