Para isso procure a paleta IWStandard, que contém os componentes básicos para um aplicativo. Selecione os seguintes componentes:

COMPONENTE         NOME               VALOR
TIWLabel           lblNome            Nome:
TIWLabel           lblIdade           Idade:
TIWLabel           lblSexo            Sexo
TIWEdit            edtNome
TIWEdit            edtIdade
TIWEdit            edtSexo
TIWButton          btEnvia            Enviar
TIWButton          btEnviaAjax        Enviar c/ Ajax
TIWCombobox        cmbValores

Aperte F9 e compile o projeto, vai aparecer a janela do Stand Alone, aperte F9 novamente, irá abrir um browser com os componentes que você colocou, mais ou menos semelhante a este:

Figura 1 - Página da web construida no delphi

A Idea aqui é preencher os campos e ao clicar nos botões “enviar” irá popular automaticamente o nosso combo. Coloquei 2 botões para ver a diferença entre usar e não usar Ajax.

Dê um duplo clique no botão enviar e coloque o seguinte código:

  cmbValores.Items.Add(edtNome.Text+' - '+edtIdade.Text+' - '+edtSexo.Text);

Agora no cmbValores procure o evento onChange e insira o seguinte código:

  WebApplication.ShowMessage('Dados de: '+cmbValores.Text);

Agora execute sua aplicação, preencha os campos, clique no botão enviar, e selecione o nome que você cadastrou.

O resultado deve ser semelhante a este abaixo, levando em consideração o nome que você cadastrou:

Figura 2 - Testando a aplicação

Note que ao enviar os dados e ao selecionar seu nome no combo, a pagina dá um postback (Refresh), e é justamente aí que entra o Ajax.

AJAX (Asynchronous Javascript and XML) é uma técnica de programação muito difundida entre os desenvolvedores web, que atualiza os dados da página sem dar um postback completo nela. Pode parecer pouco mas acredite, hoje em dia isso já virou requisito mínimo em qualquer site.

Bom mas voltando a nosso projeto testaremos os eventos Ajax que estão embutidos nesta versão do Intraweb. Para Isso procure o evento OnAsyncClick do botão btEnviaAjax e coloque o mesmo código:

  cmbValores.Items.Add(edtNome.Text+' - '+edtIdade.Text+' - '+edtSexo.Text);

Agora no cmbValores, APAGUE O CÓDIGO DO EVENTO ONCHANGE e coloque o mesmo código no evento OnAsyncChange:

  WebApplication.ShowMessage('Dados de: '+cmbValores.Text);

Execute a aplicação, teste as funcionalidades com os eventos em Ajax e observe o resultado: Não temos mais os postbacks anteriores.

Bom pessoal, aqui conhecemos o Intraweb e os benefícios do Ajax em páginas web. Fico por aqui e espero que tenham gostado, este é apenas um começo. A ferramenta tem vários recursos interessantes mas creio que este seja o pontapé inicial.

Obrigado e até a próxima

Por: Rafael Amaral
Contato: rafamaral@hotmail.com