delphi nethttpclient操作cookie

delphi nethttpclient操作cookie

unit Unit1;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Net.URLClient,

  System.Net.HttpClient, System.Net.HttpClientComponent;

type

  TForm1 = class(TForm)

    NetHTTPClient1: TNetHTTPClient;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

  cookie: TCookie;

begin

  for cookie in NetHTTPClient1.CookieManager.Cookies do

  begin if (cookie.Domain = 'www.server.com') and (cookie.Name = 'test') then

  begin

  //

  end;

  end;

end;

end.

　　TCookie：

  /// <summary>Cookie record.</summary>

  TCookie = record

  private

    class function StrExpiresToDateTime(const AStrDate: string): TDateTime; static;

  public

    /// <summary>Cookie Name</summary>

    Name: string;

    /// <summary>Cookie Value</summary>

    Value: string;

    /// <summary>Cookie Expires. It's the date when the cookie will expire</summary>

    /// <remarks>When Expires is 0 means a session cookie.</remarks>

    Expires: TDateTime;

    /// <summary>Cookie Domain</summary>

    Domain: string;

    /// <summary>Cookie Path</summary>

    Path: string;

    /// <summary>Cookie Secure</summary>

    /// <remarks>If True then the cookie will be sent if https scheme is used</remarks>

    Secure: Boolean;

    /// <summary>Cookie HttpOnly</summary>

    /// <remarks>If True then the cookie will not be used in javascript, it's browser dependant.</remarks>

    HttpOnly: Boolean;

    /// <summary>Return the cookie as string to be send to the server</summary>

    function ToString: string;

    /// <summary>Return a TCookie parsing ACookieData based on the URI param</summary>

    class function Create(const ACookieData: string; const AURI: TURI): TCookie; static;

  end;