DataFlex

Example: Http.ClearInMemoryCookies method

Demonstrates how to call the ClearInMemoryCookies method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    String sHtml
    String sXmlStr

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

    // Save received cookies to an in-memory cache.
    Set ComCookieDir Of hoHttp To "memory"
    Set ComSaveCookies Of hoHttp To True

    // Indicate that saved cookies should be sent on subsequent requests (where the cookie's attributes match the request)
    Set ComSendCookies Of hoHttp To True

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

    // Examine the cookies cached for the domain paypal.com
    Get ComGetCookieXml Of hoHttp "paypal.com" To sXmlStr
    Showln sXmlStr

    // Sample output:
    // <?xml version="1.0" encoding="utf-8"?>
    // <cookies>
    //     <cookie key="/,/,$x-enc" v="0" maxAge="1800">
    //         <x-enc>URI_ENCODING</x-enc>
    //     </cookie>
    //     <cookie key=".paypal.com,/,LANG" v="0" expire="Fri, 15 Aug 2025 23:42:44 GMT" maxAge="31556000" secure="yes">
    //         <LANG>en_US%3BUS</LANG>
    //     </cookie>
    //     <cookie key="paypal.com,/,ts" v="0" expire="Mon, 14 Aug 2028 14:56:50 GMT" secure="yes">
    //         <ts>vreXpYrS%3D1848964208%26vteXpYrS%3D1755271608%26vr%3Dae3bc3371987669703182e1efffffffe%26vt%3Dae3bc337198369703182e1efffffffd%26vtyp%3Dnew</ts>
    //     </cookie>
    //     <cookie key="paypal.com,/,ts_c" v="0" expire="Mon, 14 Aug 2028 14:56:50 GMT" secure="yes">
    //         <ts_c>vr%3Dae3bc3371987365703182e1efffffffe%26vt%3Dae3bc337198759703182e1efffffffd</ts_c>
    //     </cookie>
    // </cookies>

    // Clear the in-memory cookies.
    Send ComClearInMemoryCookies To hoHttp

    // The cached cookies should not be present.
    Get ComGetCookieXml Of hoHttp "paypal.com" To sXmlStr
    Showln "After calling ClearInMemoryCookies..."
    Showln sXmlStr
    Showln "----"


End_Procedure