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 + );
if Assigned(CallbackProcedure) then CallbackProcedure(True);
Close;
MainForm.InitWaterworksInfo;
MainForm.DoQueryWaterworksAll;
end
Else
begin
Password_T.text := '';
Showmessage('登录失败！');
end;