Nesta parte do curso, veremos como utilizar DataSnap integrado ao COM+, a solução mais indicada para a construção de aplicações de BD multicamadas.
DataSnap no MTS/COM+
No Delphi 7, clique em File|New|Other. No Objetct Repository, na guia MultiTier, clique sobre Transactional Data Module.
Digite “RDM” para o nome da Co-Class e deixe as demais opções como padrão. Salve o projeto como “AppServerCOMPlus.dpr”. Configure o DataModule usando os mesmos componentes do exemplo anterior, como mostrado a seguir:
Clique em Project|Build AppServerComPlus.
Serviços de Componentes - Instalando o objeto COM+
Ao invés de utilizaremos a IDE do Delphi para instalar o objeto agora vamos usar o Serviços de Componente. Clique em Iniciar|Painel de Controle|Ferramentas Administrativas|Serviços de Componente. Expanda o item Serviços de componente e clique de direita sobre Aplicativos COM+.
Na janela que aparece clique em Next. Depois clique em Criar um aplicativo vazio.
Dê o nome de “AppServerCOMPlus” ao aplicativo. Depois clique em Avançar e Concluir. Expanda o novo aplicativo criado e dê um clique de direita em Componentss, e escolha Novo Componente. Clique em Avançar e depois escolha Instalar novo(s) componente(s).
Localize a DLL da aplicação servidora criada anteriormente no Delphi (AppServerComPlus.dll). Clique em Avançar e Concluir.
Veja na figura a seguir nosso componente instalado no catálogo do COM+.
Thin-Client para o servidor COM+
Agora usaremos o mesmo cliente construído para o servidor DCOM construído anteriormente, chamado DataSnap Client. Após abrir o projeto vá até o DM e adicione um segundo DCOMConnection, dando a ele o nome de “MTSConnection”.
Altere sua propriedade ServerName para apontar para o novo servidor COM+. Defina o RemoteServer do ClientDataSet como MTSConnection. Reconecte o ClientDataSet.
Desligando e Iniciando pacotes
Para retirar a DLL da memória do servidor e parar um pacote, basta que você dê um clique de direita na aplicação e escolha Desligar. Para reiniciar escolha a opção Reiniciar. Lembre-se que o COM+ é Just-In-Time Activation, logo o pacote será carregado assim que um cliente instanciar um objeto. Se você escolher a opção Desativar, então o pacote não será carregado automaticamente a menos que alguém o inicie.
Para mais informações sobre acesso a dados no Delphi e técnicas avançadas, sugiro a leitura do meu livro, “Delphi: Programação para Banco de Dados e Web”, como apoio para o aprendizado das tecnologias. Na obra mostro várias técnicas introdutórios e avançadas de desenvolvimento com ClientDataSet, dbExpress e DataSnap (multicamadas, incluindo SOAP e COM+).
Leia todos artigos da série
- Curso de dbExpress e DataSnap
- Curso de dbExpress e DataSnap - Parte II
- Curso de dbExpress e DataSnap - Parte III
- Curso de dbExpress e DataSnap - Parte IV
- Curso de dbExpress e DataSnap - Parte V
- Curso de dbExpress e DataSnap - Parte VI
- Curso de dbExpress e DataSnap - Parte VII
- Curso de dbExpress e DataSnap - Parte VIII
- Curso de dbExpress e DataSnap - Parte IX
- Curso de dbExpress e DataSnap - Parte X
- Curso de dbExpress e DataSnap - Parte XI
- Curso de dbExpress e DataSnap - Parte XII
- Curso de dbExpress e DataSnap - Parte XIII
- Curso de dbExpress e DataSnap - Parte XIV
- Curso de dbExpress e DataSnap - Parte XV
- Curso de dbExpress e DataSnap - Parte XVI
- Curso de dbExpress e DataSnap - Parte XVII
- Curso de dbExpress e DataSnap - Parte XVII
- Curso de dbExpress e DataSnap - Parte XIX
- Curso de dbExpress e DataSnap - Parte XX
- Curso de dbExpress e DataSnap - Parte XXI
- Curso de dbExpress e DataSnap - Parte XXII
- Curso de dbExpress e DataSnap - Parte XIII
- Curso de dbExpress e DataSnap - Parte XXIV
- Curso de dbExpress e DataSnap - Parte XXV
- Curso de dbExpress e DataSnap - Parte XXVI
- Curso de dbExpress e DataSnap - Parte XXVII
- Curso de dbExpress e DataSnap - Parte XXVIII
- Curso de dbExpress e DataSnap - Parte XXIX
- Curso de dbExpress e DataSnap - Parte XXX