(Delphi ActiveX) Demonstrates how to Get Cookies Sent by the HTTP Server

This example demonstrates how to get the cookies that have been received from the HTTP server.

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;
googleCookies: WideString;
amazonCookies: WideString;

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

http := TChilkatHttp.Create(Self);

// When the HTTP object's SaveCookies property is turned on, the cookies received from the server
// are persited to the CookieDir, which could be a directory where cookie XML files are persisted,
// or the keyword "memory" to keep an in-memory store.

http.SaveCookies := 1;
http.CookieDir := 'memory';

// Do a few GET's 
html := http.QuickGetStr('https://www.google.com/');
html := http.QuickGetStr('https://www.amazon.com/');

// Examine the cookies received from each domain.
googleCookies := http.GetCookieXml('www.google.com');
Memo1.Lines.Add(googleCookies);

// Sample output:

// <?xml version="1.0" encoding="utf-8" ?>
// <cookies>
//     <cookie key=".google.com,/,NID" v="0" expire="Mon, 25-Sep-2017 04:26:57 GMT">
//         <NID>99=AjPVGwqGMP04vlJfmb2r0Zuorv43CnFNWFrIDz8IUrcF5ozTXa7DWBRUR1-_WqcXXQymVNLe9Umr84N87ynLAYzlRZ74ww9pU8f1ZK-pHL88RPcobnlsxE7Xi-XdXR1a6dCQ-5hOoHw7juRB</NID>
//     </cookie>
// </cookies>
// 
amazonCookies := http.GetCookieXml('www.amazon.com');
Memo1.Lines.Add(amazonCookies);

// Sample output:

// <?xml version="1.0" encoding="utf-8" ?>
// <cookies>
//     <cookie key=".amazon.com,/,skin" v="0">
//         <skin>noskin</skin>
//     </cookie>
//     <cookie key=".amazon.com,/,session-id" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
//         <session-id>159-1495930-0239038</session-id>
//     </cookie>
//     <cookie key=".amazon.com,/,session-id-time" v="0" expire="Tue, 01-Jan-2036 08:00:01 GMT">
//         <session-id-time>2082787201l</session-id-time>
//     </cookie>
// </cookies>
end;