Lazarus Pascal

Example: Http.SetCookieXml method

Demonstrates the SetCookieXml method. Lazarus Pascal

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.StringBuilder,
  Chilkat.Http;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  http: THttp;
  html: string;
  httpB: THttp;
  httpC: THttp;
  sbCookiesXml: TStringBuilder;

begin
  success := False;

  http := THttp.Create;

  http.SaveCookies := True;
  http.CookieDir := 'c:/temp/cookie_cache';
  //  For this initial request, we are not sending cookies.
  //  We are starting a new (cookie) session and saving the cookies we receive.
  http.SendCookies := False;

  //  Do a request that establishes and saves cookies in files in the cookie directory.
  html := http.QuickGetStr('https://google.com/');

  //  Examine the LastResponseHeader to see the cookies that were received:
  WriteLn(http.LastResponseHeader);
  WriteLn('----------------------------------');

  //  We can see the following Set-Cookie response header fields:

  //  Set-Cookie: AEC=AVh_V2h-fsL2-****; expires=Mon, 23-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; Secure; HttpOnly; SameSite=lax
  //  Set-Cookie: NID=525=XC_cL****Hn7-WONX; expires=Thu, 26-Feb-2026 19:15:10 GMT; path=/; domain=.google.com; HttpOnly

  //  The following file was created:  c:/temp/cookie_cache/google_com.xml

  //  Examine the cookies received in the above request.
  WriteLn(http.GetCookieXml('google.com'));
  WriteLn('----------------------------------');

  //  Sample output.

  //  <?xml version="1.0" encoding="utf-8"?>
  //  <cookies>
  //      <cookie key=".google.com,/,AEC" v="0" expire="Mon, 23-Feb-2026 19:05:20 GMT" secure="yes">
  //          <AEC>AVh_V2gL8QzTdFGYq6_rS6ktBfqm8WNG3pzHxS2nTZD5i23dRBau2c4ZRA</AEC>
  //      </cookie>
  //      <cookie key=".google.com,/,NID" v="0" expire="Thu, 26-Feb-2026 19:05:20 GMT">
  //          <NID>525=SuLcnaSkFqF4Jz_jLEq4kt_f3MY2Xro1VDoVzLKvp8XHcW2UHuLKJSr55iDeW0NiRIPXoAwJWF1-YNl29unX2xfhEWsS5BhbuK_2DXdD9cTOmn5BSENMhZasxeJ71mEP2PQRMXBndqnl41DhblC2jjdac_so4TESIll1B0GCVe9wRFjqI6DTZItRCj61BHmr1_RAQi0_jrh_ihn6KYtIFEY7</NID>
  //      </cookie>
  //  </cookies>

  //  -------------------------------------------------------------------------------------------
  //  Let's say we want to continue with the session at some later time with a new HTTP object.
  //  One way to do it is to simply set the same cookie properties:
  httpB := THttp.Create;

  httpB.SaveCookies := True;
  httpB.CookieDir := 'c:/temp/cookie_cache';
  httpB.SendCookies := True;

  //  The cookies from the cache are sent.
  html := httpB.QuickGetStr('https://google.com/');

  //  Examine the LastHeader to see the contents of the Cookie header field.
  WriteLn(httpB.LastHeader);
  WriteLn('----------------------------------');

  //  -------------------------------------------------------------------------------------------
  //  Another way to do it is to explicitly load the cookies from XML
  //  and set the cookies for the particular domain.

  httpC := THttp.Create;

  httpC.SaveCookies := True;
  //  Do not save cookies to files, just keep them in memory.
  httpC.CookieDir := 'memory';
  httpC.SendCookies := True;

  sbCookiesXml := TStringBuilder.Create;
  success := sbCookiesXml.LoadFile('c:/temp/cookie_cache/google_com.xml','utf-8');
  if (success = False) then
    begin
      WriteLn(sbCookiesXml.LastErrorText);
      Exit;
    end;

  success := httpC.SetCookieXml('google.com',sbCookiesXml.GetAsString());
  if (success = False) then
    begin
      WriteLn(httpC.LastErrorText);
      Exit;
    end;

  html := httpC.QuickGetStr('https://google.com/');

  //  Examine the LastHeader to see the contents of the Cookie header field.
  WriteLn(httpC.LastHeader);


  http.Free;
  httpB.Free;
  httpC.Free;
  sbCookiesXml.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.