Cria��o de um cliente do servidor de aplica��o em COM+
Veja com Bruno Lichot, como criar um cliente so servidor de aplica��o em COM+.	0
Continuando a seq��ncia da semana passada quando falamos sobre a concep��o de um Servidor de Aplica��o baseado em COM+, nesta semana vamos trabalhar na constru��o de um cliente para este Servidor de Aplica��o.
N�o se esque�a que este modelo de desenvolvimento � completado pelas outras mat�rias dispon�veis na coluna sobre Multi-Camadas, por tanto n�o vou abordar quest�es do tipo como configura��o do servidor e distribui��o da aplica��o cliente, tendo em vista os assuntos j� terem sido abordados anteriormente.
Vamos ao que interessa: Menu File, New, Application.
Com o novo formul�rio, montemos o seguinte Layout:
Para Fazermos a conex�o com o servidor de aplica��o vamos utilizar o componente DcomConnection da palheta DataSnap. Vamos as suas configura��es: Abra o combo da propriedade ServerName e procure pela op��o AppServer.ClasseDados, que � nome do servidor e da classe que criamos no exemplo de semana passada. Ap�s selecionar o servidor basta passar o valor da propriedade Connected para True. A primeira chamada demorar� alguns segundos, depois � instant�neo. Estamos conectados, passemos ao acesso e manipula��o dos dados.
Selecione um ClientDataSet da palheta DataAccess, defina a sua propriedade Name como CdsProdutos, em seguida configure a propriedade RemoteServer com o nome do nosso objeto de conex�o com o Servidor de Aplica��o, se voc� n�o mudou o seu nome, este deve ainda se chamar DComConnection1. Ele tamb�m � listado no combo do valor da propriedade.
Como estamos utilizando um DataSetProvider na aplica��o servidora para disponibilizar o conte�do de um DataSet e assim, junto com o ClientDataSet promover o ambiente para navega��o e opera��o com os dados, vamos a defini��o do valor da propriedade ProviderName que ser� o nome do DataSetProvider com o qual queremos trabalhar e que est� no servidor de aplica��o. No nosso caso ser� o DspProdutos, criado no exemplo da semana passada.
Lembrando que o comando de execu��o do DataSet no servidor de aplica��o precisa de um par�metro para sua execu��o, que � o nome parcial do produto; clique com o bot�o direito do mouse no CdsProdutos e em seguida clique em Fetch Params para adicionar os par�metros necess�rios a execu��o do comando.
Em seguida aplique um duplo clique no CdsProdutos e no editor de campos adicione todos os campos, fazemos isto para ganharmos maior progamabilidade visto que os campos s�o objetos para n�s agora.
Coloque no formul�rio um componente DataSource da palheta DataAccess, defina sua propriedade Name como DsProdutos e sua propriedade DataSet como CdsProdutos.
Passemos a configura��o do DBGrid: defina a propriedade DataSource com DsProdutos, aplique um duplo clique no DBGrid e no editor de campos adicione os campos DESCRICAO, ESTOQUE e PRECOCOMPRA.
Com as configura��es b�sicas prontas, vamos a confec��o dos c�digos:
Evento OnClick do Bot�o Consultar:
Este c�digo simplesmente fecha o ClientDataSet, passa o par�metro da consulta e usa o m�todo Open para executar o comando e obter os dados.
Evento OnClick do Bot�o Deletar:
Atrav�s do teste de exist�ncia de registro para n�o incorrer em erros, deleta o registro selecionado no DBGrid.
Evento OnClick do Bot�o Aplicar:
Este evento testa o estado do registro selecionado na hora da opera��o e aplica o m�todo Post caso esteja em edi��o ou inclus�o, isto fazemos antes de enviar as altera��es para o Servidor de Aplica��o. Armazenamos numa vari�vel a posi��o do cursor dos registros do DataSet, enviamos as altera��es para o Servidor de Aplica��o, executamos a consulta novamente e reposicionamos o cursor na posi��o armazenada do registro do DataSet.
Evento OnClick do Bot�o Sair:
Sem coment�rios sobre este evento.
Evento BeforePost do CdsProdutos:
Este evento ocorre imediatamente antes do m�todo Post ser executado, e como o identificador do produto � gerado no SGBD, preenchemos seu valor com um n�mero qualquer, apenas por este ser do tipo requerido. Mas na verdade o valor utilizado ser� o gerado pelo SGBD.
Salve tudo e execute a aplica��o.
Com isso conclu�mos o nosso estudo sobre concep��o de um servidor de aplica��o e esta��o cliente para tecnologia COM+.
No treinamento ClubeDelphi temos toda uma forma��o para capacitar o participante a explorar os melhores recursos do Delphi para os modelos de desenvolvimento dispon�veis hoje. Se voc� n�o mora no Rio ou em S�o Paulo, n�o tem problema, entre em contato conosco e veja como � f�cil levar o Treinamento ClubeDelphi para sua empresa, faculdade, grupo de amigos, etc; em qualquer lugar do Brasil. Caso a sua necessidade seja algo espec�fico, faremos um treinamento personalizado.
Fiquem ligados no TechDay (www.clubedelphi.com.br/eventos/cdtd), este evento est� fazendo um tour por algumas cidades do Brasil com uma galera muito boa de Delphi e palestras alucinantes. Em tempo, obrigado por todos os e-mails que os amigos delphianos tem me mandado, me desculpem as vezes sobre a demora na resposta, espero poder continuar ajudando e sendo ajudado, repartindo para conquistar!
Continuem a mandar e-mails com cr�ticas, d�vidas e sugest�es.
Um grande abra�o e at� semana que vem.
System Engineer da Borland/MicroFocus, especialista em desenvolvimento de aplica��es de miss�o critica, multicamadas, web services, de alta disponibilidade, interfaces web e distribui��o geogr�fica. � Consultor T�cnico para a linha da Embarcadero. Atua na implementa��o e consultoria de Projetos �gei...