Как добавить Cookies?
Falk0ner, вс, 06/07/2008 - 15:35.
Пример демонстрирует создание cookie посредствам стандартного компонента Delphi
procedure TwebDispatcher.WebAction(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
begin
with (Response.Cookies.Add) do begin
Name := 'TESTNAME';
Value := 'TESTVALUE';
Secure := False;
Expires := Now;
Response.Cookies.WebResponse.SendResponse;
end;
end;
Response: TWebResponse; var Handled: Boolean);
begin
with (Response.Cookies.Add) do begin
Name := 'TESTNAME';
Value := 'TESTVALUE';
Secure := False;
Expires := Now;
Response.Cookies.WebResponse.SendResponse;
end;
end;
Взято из http://forum.sources.ru
Отправить комментарий