M
mmlmm
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TWeb.SetCookies(CookieValues : array of string);
var
CookieVals : TStringList;
i : Integer;
begin
CookieVals := TStringList.Create;
try
for i := 0 to High(CookieValues) do
CookieVals.Add(CookieValues);
Response.SetCookieField(CookieVals,Request.Host,Request.ScriptName,Now + 30,False);
finally
CookieVals.Free;
end;
end;
SetCookies(['username=' + txtusernam,'password'+ txtpassword ]);
按理应该可以生成Cookie了,可是却不能成功!
请问还需要注意啥?
var
CookieVals : TStringList;
i : Integer;
begin
CookieVals := TStringList.Create;
try
for i := 0 to High(CookieValues) do
CookieVals.Add(CookieValues);
Response.SetCookieField(CookieVals,Request.Host,Request.ScriptName,Now + 30,False);
finally
CookieVals.Free;
end;
end;
SetCookies(['username=' + txtusernam,'password'+ txtpassword ]);
按理应该可以生成Cookie了,可是却不能成功!
请问还需要注意啥?