Добавляем Cookies

Delphi , Интернет и Сети , CGI и 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;

Привет! Теперь давайте более подробно рассмотрим код. Это процедура в Delphi, которая обрабатывает веб-запросы и устанавливает куки.

Вот что она делает:

1. Она добавляет новый кук в ответ с помощью Response.Cookies.Add.
2. Кук имеет несколько свойств:
   • name: установлен на 'TESTNAME'
   • Value: установлен на 'TESTVALUE'
   • Secure: установлен на False, что означает, что кук не является безопасным (т.е., не передается по HTTPS)
   • Expires: установлен на Now, что означает, что кук истекает сразу
3. Наконец, она отправляет ответ с помощью Response.Cookies.WebResponse.SendResponse.

Таким образом, этот код устанавливает новый кук с именем 'TESTNAME' и значением 'TESTVALUE', который будет истечь сразу.

А теперь вернемся к шутке... Она смешная потому что стражник объясняет, что заключенные все еще присутствуют, несмотря на открытые ворота и отсутствие охраны, сказав, что они "провели" интернет- поиск, подразумевая, что заключенные были слишком заняты просмотром веб-сайтов, чтобы сбежать!

Добавляем Cookies: статья рассказывает о неожиданном способе угона преступников из тюрьмы, когда начальник тюрьмы вместо обычного метода безопасности использовал Интернет для создания cookies.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: CGI и Cookies ::