Delphi XE2、IntraWeb2.1.23和cookies

Question

我所做的一切都与cookies示例中的完全相同(这里显示了http://www.atozed.com/intraweb/docs/Develop/Cookies.aspx)，但是它没有编译，并且它显示"DCC Error Login.pas(38)：E2035没有足够的实际参数“，并将courser放在"WebApplication.Response.Cooki­es.Add”之后。

我遗漏了什么？有没有我需要添加到使用中的单元？

我使用的是Delphi XE2和IntraWeb2.1.23哦，而且我是Intraweb的新手。

请帮帮忙谢谢

Answer 1

确保httpapp在您的uses子句中，并尝试如下所示：

procedure TIWServerController.SetCookie;
var
  mCookie: TCookie;
begin
  mCookie := WebApplication.Response.Cookies.Add;
  with mCookie do begin
    Name:='mycookie';
    Value:='mycookievalue';
    Expires := Date + 30;
  end;
end;

Answer 2

以下是在IntraWeb12.2.8 XE2中创建Cookie的工作代码块

确保在uses子句中添加IW.HTTP.Cookie。

当然，您必须修改TiwfrmMain以匹配您的iwform，并在您的

procedure TiwfrmMain.MakeCookie;
    var cookieMain: THttpCookie;

begin

 try
  cookieMain:=  THttpCookie.Create('email',editLogin.Text,'',Date + 999);
  WebApplication.Response.Cookies.Add(cookieMain);
  cookieMain.free;  
 except

 end;

end;

你也可以通过以下方式获得它：

procedure TiwfrmMain.SetCookie;
begin
  try


    if WebApplication.Request.CookieFields.IndexOfName('email')> -1 then
    editLogin.Text := WebApplication.Request.CookieFields.Values['email'];


  except

  end;

end;

njoy :)

Answer 3

我的代码：

procedure SetCookie(AIWApplication: TIWApplication; AName, AValue: string; AExpiration: TDate);
var
   LCookie: TCookie;
begin
   AIWApplication.Response.Cookies.Add(LCookie);
 with LCookie do
 begin
   Name := AName;
   Value := AValue;
   Expires := AExpiration;
 end;
end;