(Delphi ActiveX) Persist Cookies to XML Files and Auto Re-Send

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

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
html: WideString;

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

http := TChilkatHttp.Create(Self);

// 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:
http.CookieDir := '/cookieDir';
http.SaveCookies := 1;

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

html := 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.
http.SendCookies := 1;

// If another HTTP request is sent, the cookies should
// be added:
html := 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.
Memo1.Lines.Add('--- LastHeader ---');
Memo1.Lines.Add(http.LastHeader);
end;