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;

  • 相关阅读:
    2017.3.22上午
    2017.3.21下午
    2017.3.21上午
    git上传到阿里云code
    spring+ibatis整合
    Aop资料整理
    java加密算法之AES小记
    单例的八种写法:推荐静态内部类和枚举
    dubbo入门示例
    自定义注解判空简单示例
  • 原文地址:https://www.cnblogs.com/fengxb/p/3108844.html
Copyright © 2011-2022 走看看