在DELPHI里怎样使用cookies,多谢帮助,

Question

在DELPHI里怎样使用cookies,多谢帮助,

Answer 1

直接用cookies或者cookiefield
procedure TWebModule1.PasswordCookieActionAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);begin
  Handled := False; { adding a cookie does not handle the request }
  with Response.Cookies.Add do
  begin
    Name := 'LastPassword';
    { Set the LastPassword cookie to the current authorization }
    { Or, if no authorization was supplied this time, carry over }
    { the authorization from the LastPassword cookie of the request }
    Value := Request.Authorization;
    if Value = '' then 
      Value :=  Request.CookieFields.Values('LastPassword');    Secure := True; { be sure to use a secure connection!!!!}
    Expires := Now + 1; { this cookie expires in one day }
  end;
end;

Answer 2

直接用cookies或者cookiefield
procedure TWebModule1.PasswordCookieActionAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);begin
  Handled := False; { adding a cookie does not handle the request }
  with Response.Cookies.Add do
  begin
    Name := 'LastPassword';
    Value := Request.Authorization;
    if Value = '' then 
      Value :=  Request.CookieFields.Values('LastPassword');    Secure := True; { be sure to use a secure connection!!!!}
    Expires := Now + 1; { this cookie expires in one day }
  end;
end;