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.

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;
xmlStr: 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
    ShowMessage(http.LastErrorText);

  end;

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

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

html := http.QuickGetStr('https://www.paypal.com/');

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

xmlStr := http.GetCookieXml('paypal.com');

Memo1.Lines.Add(xmlStr);

//  It's content will look something like this:

//  
<?xml version="1.0" encoding="utf-8" ?>

<cookies>
    <cookie key=".paypal.com,/" v="0" expire="Wed, 18-Dec-01 11:46:29 GMT">
        <cwrClyrK4LoZV1fydVbAxiNL6iG>%7cfDCeCmXQmy1oTIcoXsWvcd37b6p_6RgwKqM1UvJdeZRgM6VZkNmzrVEer4AeeZiaAfsEI0%7cR9EBOpbfqFYdeURXLUmpIZyfn3wBh0HB8Vn3id9mupwK_1SEYH1yrJXaPe4YRK66GZQb9W%7c</cwrClyrK4LoCV1fydGbAxiNL6iG>
        <KHcl0EuY7AKSMgfvHl7J5E7aPtK>kOs1uUEJtZyt-biv4ElK1TAK6l0VdUJ74c1ybtKppY5M2rgyRGDpACuoTR3pnPHFjudyffXO5Jgv7D2L</KHcl0EuY7AKSMgfvHl7J6E7hPtK>
        <cookie_check>yes</cookie_check>
        <navcmd>_home-general</navcmd>
        <navlns>0.0</navlns>
        <Apache>67.173.123.150.127491301803295492</Apache>
    </cookie>
</cookies>

end;