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;