Pascal (Lazarus/Delphi)

Persist Cookies to XML Files and Auto Re-Send

See more HTTP Examples

Demonstrates how to persist incoming cookies to XML files and automatically re-send in subsesquent HTTP requests. Pascal (Lazarus/Delphi)

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.Http;

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

procedure RunDemo;
var
  http: THttp;
  html: string;

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

  http := THttp.Create;

  //  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 := True;

  //  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 = True.
  http.SendCookies := True;

  //  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.
  WriteLn('--- LastHeader ---');
  WriteLn(http.LastHeader);


  http.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.