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

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Artigo da Revista Clube Delphi Edição 12.

Esse artigo faz parte da revista Clube Delphi edição 12. Clique aqui para ler todos os artigos desta edição



Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.

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.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?