(Delphi) 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.

Download Chilkat HTTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATHTTPLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
success: Integer;
html: String;

begin
http := TChilkatHttp.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := http.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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