Artigo Clube Delphi Edição 12 - Delphi & Internet

Delphi & Internet

Conheça toda a facilidade do Delphi como ferramenta para Web !

Hoje em dia, desenvolver aplicações para Web ficou bem mais fácil. Além dos padrões criados (ISAPI, CGI, entre outros) existem diversas linguagens, scripts server-sided, que facilitam bastante a vida do desenvolvedor.

O Delphi não poderia ficar de fora e implementou desde a versão 3 algumas funcionalidades especialmente projetadas para o desenvolvimento WEB.

Além de disponibilizar o desenvolvimento de aplicações ISAPI e CGI, o Delphi permite ao desenvolvedor utilizar linguagens de scripts, como JavaScript e até mesmo gerar documentos WAP. Isso tudo de maneira bem simples.

Estaremos desenvolvendo aplicações WEB em Delphi. Uma das exigências para testar nossos exemplos é a instalação do Personal Web Server da Microsoft, ou outro Servidor Web similar.

Após instalado, defina um diretório onde serão geradas as nossas aplicações servidoras, como c:\ProjetosWeb.

Selecione a opção File/New do Delphi e na janela seguinte (Figura 1) selecione a opção Web Server Application. Clique no botão OK para confirmar.

Seleção da Nova Aplicação.

Na janela seguinte (Figura 2) selecione a opção ISAPI/NSAPI Dynamic Link Library.

Figura 2 Tipo da Aplicação.

Repare que o Delphi irá criar um repositório do tipo TWebModule (Figura 3).

Figura3 WebModule

A função do WebModule é a de armazenar os objetos não visuais da aplicação, tais como TpageProducer, TqueryPageProducer, Ttable, bem como responder as mensagens requisitadas pelo  servidor HTTP.

Para criar nossa primeira aplicação será necessário a criação de uma ação ou ActionItem.

Clique no botão [...] da propriedade Actions (Figura 4).

Figura 4 Propriedade Actions

E na janela seguinte (figura 5), clique no primeiro botão (Add New)

Figura 5 Adicionando uma nova ação.

Repare na figura6 que será adicionada uma nova ação ao WebModule.

Figura 6 Ação adicionada

Agora, com o foco no objeto WebActionItem1, altere a propriedade Default para True (Figura 7).

Figura 7 Propriedade Default

Neste objeto iremos criar a resposta que será enviada ao usuário. Para isso, digite o seguinte código no evento OnAction (Figura 8) do objeto WebActionItem1.

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;

  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

begin

Response.Content:='Primeira Aplicação ISAPI';

end;

Figura 8 Evento OnAction

Grave seu projeto com o nome Primeiro.dpr e a unit como Unit1.pas. Em seguida (antes de compilar o projeto) devemos configurar o Delphi para gerar a aplicação DLL dentro da Pasta ProjetosWeb. Para isso, selecione a opção Project/Options e clique na aba Directories/Conditionals.

Na opção Output Directory selecione a nossa pasta ProjetosWeb, como mostra a figura 9, e pressione o botão OK  para confirmar.

Figura 9 Configurando a opção Output directory

Normalmente, estamos acostumados a compilar e executar a aplicação numa só operação. Com uma aplicação Web será bem diferente, onde apenas iremos compilá-la no Delphi, e depois testá-la em um browser da internet (Internet Explorer, Nestscape, etc).

Selecione a opção Project/Compile para gerar a DLL no diretório C:\projetosweb.

Em seguida, devemos configurar o Personal Web Server para reconhecer este diretório. Abra o gerenciador do PWS:

Clique no botão Avançado:

Clique no botão Adicionar para abrir a janela Adicionar Pasta. Configure a janela de acordo com a figura abaixo:

Repare que a opção executar está marcada, permitindo os scripts localizados neste diretório serem executados.

Após este procedimento, abra o browser e digite o endereço abaixo:

http://localhost/projetosweb/primeiro.dll

Obs: Localhost deverá ser substituído pelo nome do servidor web gerado pelo Personal Web Manager.

Figura 13  - Primeira Aplicação.

A Figura 13 ilustra a nossa primeira aplicação exemplo, onde mostramos uma mensagem criada através de um objeto ActionItem. A frase exibida pelo browser é o resultado gerado pela nossa ISAPI.

Com isso terminamos o nosso primeiro projeto WEB. Aguardem mais novidades no desenvolvimento para a internet na próxima edição

Sucesso à todos.