(PureBasic) Example: Http.ClearInMemoryCookies method

Demonstrates how to call the ClearInMemoryCookies method.

Note: This example requires Chilkat v11.1.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Save received cookies to an in-memory cache.
    CkHttp::setCkCookieDir(http, "memory")
    CkHttp::setCkSaveCookies(http, 1)

    ; Indicate that saved cookies should be sent on subsequent requests (where the cookie's attributes match the request)
    CkHttp::setCkSendCookies(http, 1)

    html.s = CkHttp::ckQuickGetStr(http,"https://www.paypal.com/")

    ; Examine the cookies cached for the domain paypal.com
    xmlStr.s = CkHttp::ckGetCookieXml(http,"paypal.com")
    Debug xmlStr

    ; 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.
    CkHttp::ckClearInMemoryCookies(http)

    ; The cached cookies should not be present.
    xmlStr = CkHttp::ckGetCookieXml(http,"paypal.com")
    Debug "After calling ClearInMemoryCookies..."
    Debug xmlStr
    Debug "----"


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure