(PowerBuilder) Caching cookies in-memory.

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 = 1. If the SendCookies property = 1, then any cached cookies are automatically re-sent with subsequent GETs and POSTs.

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

integer li_rc
oleobject loo_Http
string ls_Html
string ls_XmlStr

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

loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// To save cookies to an in-memory cache, set the
// CookieDir equal to "memory".  Also,
// set the SaveCookies property:
loo_Http.CookieDir = "memory"
loo_Http.SaveCookies = 1

// To cause cached cookies to be sent with 
// subsequent HTTP requests, set the SendCookies
// property = 1.
loo_Http.SendCookies = 1

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

ls_Html = loo_Http.QuickGetStr("https://www.paypal.com/")

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

ls_XmlStr = loo_Http.GetCookieXml("paypal.com")

Write-Debug ls_XmlStr

// 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:
ls_Html = loo_Http.QuickGetStr("https://www.paypal.com/")

// Check the LastHeader property to see the MIME header
// of the last HTTP request sent.
// The "Cookie" header field should be present.
Write-Debug "--- LastHeader ---"
Write-Debug loo_Http.LastHeader


destroy loo_Http