Cáp. 18 - Manipular exceções com o IntraWeb

Crie uma aplicação que permite ao usuário digitar valores em um IWEdit. Quando o usuário clicar no botão “Adicionar”, esse valor deve ser adicionado a um Cookie. Quando for clicado o botão Listar, mostre todos os valores adicionados no cookie em um ListBox.

No Delphi escolha File|New>Other. Na página IntraWeb escolha IntraWeb Application Wizard. Na janela a seguir marque StandAlone Application e clique no botão Ok.

No formulário gerado pelo IntraWeb adicione um componente IWEdit, um IWListBox e dois IWButtons.

Ajuste-os no formulário como mostrado a seguir:

No evento OnClick do botão Adicionar digite:

procedure TIWForm1.IWButton1Click(Sender: TObject);
begin
  with WebApplication.Response.Cookies.Add do
  begin
     Name := 'ck' + IWEdit1.Text;
     Value := IWEdit1.Text;
  end;
end;

Isso adiciona o valor digitado no IWEdit em um cookie.
No evento OnClick do botão Listar digite:

procedure TIWForm1.IWButton2Click(Sender: TObject);
var
  i: integer;
begin
  with WebApplication.Request.CookieFields do
    for i := 0 to Count - 1 do
      IWListbox1.Items.Add(ValueFromIndex[i]);
end;

Execute a aplicação e faça o teste. Veja o resultado na figura a seguir: