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：

///

TCookie = record

private

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

public

  ///

  Name: string;

  ///

  Value: string;

  ///

  ///

  Expires: TDateTime;

  ///

  Domain: string;

  ///

  Path: string;

  ///

  ///

  Secure: Boolean;

  ///

  ///

  HttpOnly: Boolean;

  ///

  function ToString: string;

  ///

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

end;