Delphi DLL

Caching cookies in-memory.

See more HTTP Examples

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 = _TRUE_. If the SendCookies property = _TRUE_, then any cached cookies are automatically re-sent with subsequent GETs and POSTs. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
html: PWideChar;
xmlStr: PWideChar;

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

http := CkHttp_Create();

// To save cookies to an in-memory cache, set the
// CookieDir equal to "memory".  Also,
// set the SaveCookies property:
CkHttp_putCookieDir(http,'memory');
CkHttp_putSaveCookies(http,True);

// To cause cached cookies to be sent with 
// subsequent HTTP requests, set the SendCookies
// property = True.
CkHttp_putSendCookies(http,True);

// Any methods that do a GET, POST, etc. will save 
// cookies to the CookieDir (which in this case is an 
// in-memory cache.

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

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

xmlStr := CkHttp__getCookieXml(http,'paypal.com');

Memo1.Lines.Add(xmlStr);

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

// If another HTTP request is sent, the cookies should
// be added:
html := CkHttp__quickGetStr(http,'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(CkHttp__lastHeader(http));

CkHttp_Dispose(http);

end;