Добавляем Cookies - Delphi Sources FAQ

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Добавляем Cookies

Замминистра приезжает с инспекцией в тюрьму и видит: ворота открыты, охраны нет, камеры настежь, при этом все преступники на месте!!! Совершенно ошарашенный увиденным, он вызывает начальника тюрьмы и говорит:
- Послушайте, у других сбегают, несмотря на наручники, решетки, запертые двери, несмотря на собак и охрану ! Что сделали вы ?!!
- Провел им Интернет...

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;