zoukankan      html  css  js  c++  java
  • Demo学习: Cookies Demo

    Cookies Demo

    浏览器Cookies的读写,最常用的就是记录用户的登录信息,在项目里做登录界面时也用到了Cookies功能。

    procedure TMainForm.UniButton2Click(Sender: TObject);
    begin
      //分别设置Cookies的名称、值、有效期(当超过有效期,浏览器会自动清除当前Cookies)
      UniApplication.Cookies.SetCookie(UniEdit1.Text,UniEdit2.Text,
         UniDateTimePicker1.DateTime);
    end;
    
    procedure TMainForm.UniButton3Click(Sender: TObject);
    begin
      //读取指定Cookies的值
      UniMemo1.Lines.Add('>'+UniApplication.Cookies.Values[UniEdit3.Text]);
    end;
    procedure TLogin_F.UniFormShow(Sender: TObject);
    begin
      UserID_T.Text := UniApplication.Cookies.Values['PCInterogatorLoginName']; //取登用户名end;
    
    if MainModule.UniMainModule.CheckLogin(UserID_T.Text,Password_T.text) = true then
      begin
         //保存用户名,并设置30天有效期 
    UniApplication.Cookies.SetCookie(
    'PCInterogatorLoginName', UserID_T.Text, Now + 30); if Assigned(CallbackProcedure) then CallbackProcedure(True); Close; MainForm.InitWaterworksInfo; MainForm.DoQueryWaterworksAll; end Else begin Password_T.text := ''; Showmessage('登录失败!'); end;

  • 相关阅读:
    【Jmeter】分布式并发测试
    【博客迁移】
    设置超出范围有滚动条
    table中td,th不能设置margin
    文字和input对不齐怎么办
    改变radio单选按钮的样式
    transition的用法以及animation的用法
    选择后代元素或点击元素的方法
    如何简单实用hammer
    添加aimate动画
  • 原文地址:https://www.cnblogs.com/fengxb/p/3108844.html
Copyright © 2011-2022 走看看