Cookies per HTTPS auslesen

[shebang]

Das ist die Art von Frage, welche die Chatbots inzwischen ziemlich gut beantworten können. Hier ein leicht bearbeitetes und funktionierendes Ergebnis:

Delphi-Quellcode:

program ProjectX;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  IdHTTP, IdSSL, IdSSLOpenSSL, SysUtils, Classes;

var
  URL : string;
  IdHTTP: TIdHTTP;
  IdSSL: TIdSSLIOHandlerSocketOpenSSL;
  Cookies: TStringList;

begin
  try
    URL := 'https://www.delphipraxis.net';

    IdHTTP := TIdHTTP.Create(nil);
    IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    Cookies := TStringList.Create;
    try
      IdHTTP.IOHandler := IdSSL;
      IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';

      IdSSL.SSLOptions.Method := sslvTLSv1_2;

      // Setze die URL, von der du die Cookies abrufen möchtest
      IdHTTP.Get(URL);

      // Cookies aus dem Header auslesen
      Cookies.Text := IdHTTP.Response.RawHeaders.Values['Set-Cookie'];

      // Hier kannst du die Cookies weiterverarbeiten
      Writeln('Cookies:');
      Writeln(Cookies.Text);
    finally
      Cookies.Free;
      IdSSL.Free;
      IdHTTP.Free;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

Code:

Cookies:
dp2010lastvisit=1744201874; expires=Thu, 09-Apr-2026 12:31:14 GMT; Max-Age=31536000; path=/; secure