(DataFlex) Demonstrates how to Get Cookies Sent by the HTTP Server

This example demonstrates how to get the cookies that have been received from the HTTP server.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sHtml
    String sGoogleCookies
    String sAmazonCookies

    // This example assumes the Chilkat HTTP 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

    // When the HTTP object's SaveCookies property is turned on, the cookies received from the server
    // are persited to the CookieDir, which could be a directory where cookie XML files are persisted,
    // or the keyword "memory" to keep an in-memory store.

    Set ComSaveCookies Of hoHttp To True
    Set ComCookieDir Of hoHttp To "memory"

    // Do a few GET's 
    Get ComQuickGetStr Of hoHttp "https://www.google.com/" To sHtml
    Get ComQuickGetStr Of hoHttp "https://www.amazon.com/" To sHtml

    // Examine the cookies received from each domain.
    Get ComGetCookieXml Of hoHttp "www.google.com" To sGoogleCookies
    Showln sGoogleCookies

    // Sample output:

    // <?xml version="1.0" encoding="utf-8" ?>
    // <cookies>
    //     <cookie key=".google.com,/,NID" v="0" expire="Mon, 25-Sep-2017 04:26:57 GMT">
    //         <NID>99=AjPVGwqGMP04vlJfmb2r0Zuorv43CnFNWFrIDz8IUrcF5ozTXa7DWBRUR1-_WqcXXQymVNLe9Umr84N87ynLAYzlRZ74ww9pU8f1ZK-pHL88RPcobnlsxE7Xi-XdXR1a6dCQ-5hOoHw7juRB</NID>
    //     </cookie>
    // </cookies>
    // 
    Get ComGetCookieXml Of hoHttp "www.amazon.com" To sAmazonCookies
    Showln sAmazonCookies

    // Sample output:

    // <?xml version="1.0" encoding="utf-8" ?>
    // <cookies>
    //     <cookie key=".amazon.com,/,skin" v="0">
    //         <skin>noskin</skin>
    //     </cookie>
    //     <cookie key=".amazon.com,/,session-id" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
    //         <session-id>159-1495930-0239038</session-id>
    //     </cookie>
    //     <cookie key=".amazon.com,/,session-id-time" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
    //         <session-id-time>2082787201l</session-id-time>
    //     </cookie>
    // </cookies>


End_Procedure