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.
