zoukankan      html  css  js  c++  java
  • 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;
    

      

  • 相关阅读:
    背景100%显示
    你还在用Html.PartialAsync? 教你更简单一招搞定
    记一次TokuMX数据库集群恢复
    使用SolrNet访问Solr-5.5.0
    从注册表中删除打印机列表中的打印机
    DEV之GridControl常用设置
    在Devexpress中设置按钮列(无需写代码)
    Sql中获取表结构(字段名称,类型,长度,说明)
    DevExpress之ChartControl基本用法
    SQL Server类型与C#类型对应关系[转]
  • 原文地址:https://www.cnblogs.com/hnxxcxg/p/10892102.html
Copyright © 2011-2022 走看看