15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Добавляем 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;