Добавляем Cookies

Автор: Jon Lee

Пример демонстрирует создание cookie посредствам стандартного компонента Delphi

Совместимость: Все версии 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;