Cookies no Delphi 2005/2006 (aplicações ASP.NET)

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja como criar, apagar e limitar o tempo dos cookies no Delphi 2005/2006 (aplicações ASP.NET).

Veja como criar, apagar e limitar o tempo dos cookies no Delphi 2005/2006 (aplicações ASP.NET).

Nada melhor que um exemplo prático para aprendermos, por isso segue abaixo os fontes de como  criar, apagar e limitar o tempo dos cookies no Delphi 2005/2006.

unit WebForm1;

interface

uses
  System.Collections, System.ComponentModel,
  System.Data, System.Drawing, System.Web, System.Web.SessionState,
  System.Web.UI, System.Web.UI.WebControls, System.Web.UI.HtmlControls;

type
  TWebForm1 = class(System.Web.UI.Page)
  {$REGION 'Designer Managed Code'}
  strict private
    procedure InitializeComponent;
    procedure Button1_Click(sender: System.Object; e: System.EventArgs);
    procedure Button2_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict private
    procedure Page_Load(sender: System.Object; e: System.EventArgs);
  strict protected
    TextBox1: System.Web.UI.WebControls.TextBox;
    Button1: System.Web.UI.WebControls.Button;
    Label1: System.Web.UI.WebControls.Label;
    Button2: System.Web.UI.WebControls.Button;
    procedure OnInit(e: EventArgs); override;
  private
    { Private Declarations }
  public
    { Public Declarations }
  end;

implementation

{$REGION 'Designer Managed Code'}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///
procedure TWebForm1.InitializeComponent;
begin
  Include(Self.Button1.Click, Self.Button1_Click);
  Include(Self.Button2.Click, Self.Button2_Click);
  Include(Self.Load, Self.Page_Load);
end;
{$ENDREGION}

procedure TWebForm1.Page_Load(sender: System.Object; e: System.EventArgs);
begin
  if Request.Cookies['Usuario'] <> nil then
    Label1.Text := System.String.Format('Seja bem-vindo {0}',
      Request.Cookies['Usuario'].Value);
end;

procedure TWebForm1.OnInit(e: EventArgs);
begin
  //
  // Required for Designer support
  //
  InitializeComponent;
  inherited OnInit(e);
end;

procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
begin
  // apaga o cookie. Literalmente  apaga o arquivo cookie
  Response.Cookies['Usuario'].Expires;
end;

procedure TWebForm1.Button1_Click(sender: System.Object; e: System.EventArgs);
var
  ck: System.Web.HttpCookie;
begin
  // Cria Cookie, expira em 3 dias
  ck := System.Web.HttpCookie.Create('Usuario',TextBox1.Text);
  ck.Expires := System.DateTime.Today.AddDays(3);
  Response.Cookies.Add(ck);
end;

end. 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?