Adding Cookies to an HTTP GET Request

Example showing how to add one or more cookies to an HTTP GET request.

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;
request: TChilkatHttpRequest;
response: IChilkatHttpResponse;
domain: String;
port: Integer;
ssl: Integer;

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;

//  The Cookie header field has this format:
//  Cookie: name1=value1 [; name2=value2] ...

//  Build an HTTP GET request:
request := TChilkatHttpRequest.Create(Self);
request.SetFromUrl('http://www.example-code.com/');
request.UseGet();

//  Add two cookies:
request.AddHeader('Cookie','user="mary"; city="Chicago"');

//  Send the HTTP GET.  The cookies are sent as part of the HTTP header.

domain := 'www.example-code.com';
port := 80;
ssl := 0;
response := http.SynchronousRequest(domain,port,ssl,request.DefaultInterface);
if (response = nil ) then
  begin
    ShowMessage(http.LastErrorText);

  end;

//  Display the HTML body of the response.
if (response.StatusCode = 200) then
  begin
    Memo1.Lines.Add(response.BodyStr);
  end
else
  begin
    Memo1.Lines.Add('HTTP Response Status = '
         + IntToStr(response.StatusCode));
  end;


end;