PowerBuilder

Persist Cookies to XML Files and Auto Re-Send

See more HTTP Examples

Demonstrates how to persist incoming cookies to XML files and automatically re-send in subsesquent HTTP requests. PowerBuilder

integer li_rc
oleobject loo_Http
string ls_Html

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

loo_Http = create oleobject
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 XML files (per domain) in a specific
//  directory, set the CookieDir property (the directory must
//  already exist and be writeable by the caller).  Also,
//  set the SaveCookies property:
loo_Http.CookieDir = "/cookieDir"
loo_Http.SaveCookies = 1

//  Any methods that do a GET, POST, etc. will save cookies
//  to the CookieDir:

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

//  After running this code, a "paypal_com.xml" file should appear
//  in /cookieDir.

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

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

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