Delphi DLL

Example: Http.SetCookieXml method

Demonstrates the SetCookieXml method. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
html: PWideChar;
httpB: HCkHttp;
httpC: HCkHttp;
sbCookiesXml: HCkStringBuilder;

begin
success := False;

http := CkHttp_Create();

CkHttp_putSaveCookies(http,True);
CkHttp_putCookieDir(http,'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.
CkHttp_putSendCookies(http,False);

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

// Examine the LastResponseHeader to see the cookies that were received:
Memo1.Lines.Add(CkHttp__lastResponseHeader(http));
Memo1.Lines.Add('----------------------------------');

// 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.
Memo1.Lines.Add(CkHttp__getCookieXml(http,'google.com'));
Memo1.Lines.Add('----------------------------------');

// 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 := CkHttp_Create();

CkHttp_putSaveCookies(httpB,True);
CkHttp_putCookieDir(httpB,'c:/temp/cookie_cache');
CkHttp_putSendCookies(httpB,True);

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

// Examine the LastHeader to see the contents of the Cookie header field.
Memo1.Lines.Add(CkHttp__lastHeader(httpB));
Memo1.Lines.Add('----------------------------------');

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

httpC := CkHttp_Create();

CkHttp_putSaveCookies(httpC,True);
// Do not save cookies to files, just keep them in memory.
CkHttp_putCookieDir(httpC,'memory');
CkHttp_putSendCookies(httpC,True);

sbCookiesXml := CkStringBuilder_Create();
success := CkStringBuilder_LoadFile(sbCookiesXml,'c:/temp/cookie_cache/google_com.xml','utf-8');
if (success = False) then
  begin
    Memo1.Lines.Add(CkStringBuilder__lastErrorText(sbCookiesXml));
    Exit;
  end;

success := CkHttp_SetCookieXml(httpC,'google.com',CkStringBuilder__getAsString(sbCookiesXml));
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(httpC));
    Exit;
  end;

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

// Examine the LastHeader to see the contents of the Cookie header field.
Memo1.Lines.Add(CkHttp__lastHeader(httpC));

CkHttp_Dispose(http);
CkHttp_Dispose(httpB);
CkHttp_Dispose(httpC);
CkStringBuilder_Dispose(sbCookiesXml);

end;