Delphi: Acessando Dados no DataModule em Aplicações Intraweb

O acesso aos componentes não visuais que poderão encontrar-se num datamodule é muito simples para o uso em aplicações normais no delphi. Em se tratando de intraweb a coisa muda um pouco, mas nada tão complicado...

por José Roberto F. de Araújo Jr.

O acesso aos componentes não visuais que poderão encontrar-se num datamodule é muito simples para o uso em aplicações normais no delphi. Em se tratando de intraweb a coisa muda um pouco, mas nada tão complicado, apenas para melhorar a gerencia dos objetos que se encontrão no DataModule, porque? Porque há classe Chamada chamado TIWUserSession(essa Classe foi implementada a partir das versões 6.0.xx) ou TUserSession(implementada nas primeiras versões até a versão 5.0.43). Será nesta classe que instanciaremos nosso DataModule, fazendo com que, um novo usuário ao entrar no site, uma nova instancia do DataModule possa ser criada, isolando as variáveis de sessão impedindo que um usuário interfira nas variáveis de sessão do outro.

Uma modificação terá que ser feita no DataModule, ele não mais conterá sua variável de instancia, como tem em DataModule de aplicações normais, essa variável de instancia será substituída por uma função que retornará uma nova instancia de um DataModule, essa instancia será gerada pela classe TIWUserSession; mostraremos como poderão ser feitas essas modificações, no desenvolvimento de uma rápida aplicação de navegação em uma tabela modelo que vem junto à instalação do delphi chamada employee.gdb

Vamos criar nossa aplicação? Vá ao item de menu File | New | Other e na aba Intraweb dê 2 cliques no ícone Intraweb Application Wizard, depois disso será exiba uma janela de configuração para qual tipo de aplicação que iremos desenvolver, escolha o tipo de aplicação chamada StandAlone Application - isso irá criar uma aplicação executável que se utilizará de um Servidor Web interno simulando um IIS, PWS, Apache ou qualquer outro tipo de Servidor Web, fazendo com que nossa aplicação possa rodar no Browser. Veja as figuras a seguir.

Figura 1. Intraweb Applicatin Wizard selecionado para crier Datamodule.

Figura 2. DataModule criado para uso em aplicações Intraweb, não há nada de novo nele.

Primeiro temos que fazer algumas mudanças no nosso DataModule. Vá até a seção var do seu DataModule e retire a variável de instância, como a instância do seu DataModule será gerenciada pela Classe TIWUserSession não precisaremos mais dessa variável, mesmo porque o sistema de isolamento das instancias será feito pela classe que gerencia as sessões gerando um DataModule para cada nova sessão. Teremos que implementar uma função dentro da unit do DataModule que retorne a mesma classe do seu DataModule, como segue no trecho de código, o código completo encontra-se no projeto de exemplo que acompanha o artigo:

function DataModule1: TDMMain;
begin
Result := TIWUserSession(WebApplication.Data).DMMain;
end;

feito isso temos que agora adicionar as unit que contem a classe TIWUserSession e a unit IWInit na clausula uses da unit do DataModule. Siga agora para a unit que contem a classe TIWUserSession para implementarmos a instância do DataModule. Na seção Public da classe declare um campo interno do mesmo tipo do seu DataModule, no nosso exemplo nosso DataModule tem o nome de DMMain e declare um método contrutor para criar o DataModule dentro das seções, o escopo da classe ficaria como a seguinte declaração:

TIWUserSession = class(TIWUserSessionBase)
private { Private declarations }
public { Public declarations }
DMMain: TDMMain;
constructor Create(AOwner: TComponent); override;
end;

logo após ter feito isso temos que implementar o construtor da classe, a implementação é a seguinte:

constructor TIWUserSession.Create(AOwner: TComponent);
begin
inherited;
DMMain := TDMMain.Create(AOwner);
end;

Pronto feito isso já podemos utilizar nosso DataModule dentro de nossa Aplicação, como se estivéssemos usando um DataModule num de nossos projeto Cliente / Servidor.

Seguindo para nosso DataModule, insira os seguintes componentes e modifique as suas respectivas propriedades:
- TSQLConnection
- ConnectionName: IBConnection
- Database: insira aqui o caminho da Database de exemplo employee.gdb que encontra-se no Diretório Borland Shared\Data.
- User_Name: SYSDBA
- Password: masterkey
- Name: SQLConnection