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;