(Delphi ActiveX) Adding Cookies to an HTTP Request

Demonstrates how to add one or more cookies to an HTTP request.

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;
req: TChilkatHttpRequest;
resp: IChilkatHttpResponse;
domain: WideString;
port: Integer;
ssl: Integer;
html: WideString;

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

http := TChilkatHttp.Create(Self);

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

// Build an HTTP POST request:
req := TChilkatHttpRequest.Create(Self);
req.SetFromUrl('http://www.chilkatsoft.com/echoPost.asp');
req.HttpVerb := 'POST';

req.AddParam('param1','value1');
req.AddParam('param2','value2');

// To add cookies to any HTTP request sent by a Chilkat HTTP method
// that uses an HTTP request object, add the cookies to the
// request object by calling AddHeader.  

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

// Send the HTTP POST.  
// (The cookies are sent as part of the HTTP header.)

domain := 'www.chilkatsoft.com';
port := 80;
ssl := 0;
resp := http.SynchronousRequest(domain,port,ssl,req.ControlInterface);
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Display the HTML body of the response.
if (resp.StatusCode = 200) then
  begin
    // Show the last HTTP request header sent, which should include
    // our cookies...
    Memo1.Lines.Add(http.LastHeader);
  end
else
  begin
    Memo1.Lines.Add('HTTP Response Status = ' + IntToStr(resp.StatusCode));
  end;

Memo1.Lines.Add('---------------------');

// Some Chilkat HTTP methods do not use an HTTP request object. 
// For these methods, such as for QuickGetStr, cookies (or any HTTP request header) 
// are added by calling SetRequestHeader.  
http.SetRequestHeader('Cookie','user="mary"; city="Chicago"');

html := http.QuickGetStr('http://www.w3.org/');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
  end
else
  begin
    // Show the last HTTP request header sent, which should include
    // our cookies...
    Memo1.Lines.Add(http.LastHeader);
  end;
end;