DataSnap_ Transferência de Dados Entre Aplicações Cliente_servidor

8/18/2019 DataSnap_ Transferência de Dados Entre Aplicações Cliente_servidor

1/16

27/11/2015 D ataSnap: T ransfer ência de dados entr e apl icações cl iente/ser vidor

http://www.devmedia.com.br/articles/viewcomp_forprint.asp?comp=27020 1/16

www.devmedia.com.br[versão para impressão]Link original: http://www.devmedia.com.br/articles/viewcomp.asp?comp=27020

DataSnap: Transferência dedados entre aplicações

cliente/servidor

Veja neste artigo como transferir dados simples (String,

Integer, Boolean) entre aplicações Cliente/Servidor

utilizando DataSnap no Delphi.

ntrodução

Com a evolução de aplicações em três camadas, cada vez mais se tem a necessidade

de transferir dados entre aplicações, principalmente com a evolução rápida dos

dispositivos móveis que trouxe uma complexidade a mais, devido a sua diversificação

de plataformas e linguagens que as mesmas utilizam. Hoje quem não se adequar a

essa realidade, fica ultrapassado no mercado.

Mas muitos podem se perguntar: Como trocar essas informações entre as aplicaçõesdesenvolvidas em outras linguagens? Essa pergunta nos impõe a uma tomada de

decisão. Pois temos basicamente dois tipos ou formatos principais de intercâmbio de

dados, JSON e XML. Mas qual é o melhor formato para se encapsular os dados? Vamos

analisar esses dois formatos para tomarmos a melhor decisão.

Vamos transferir duas informações de três pessoas para uma aplicação cliente

qualquer, cuja essas informações seriam: Nome e Idade.

Pessoa 01 - Nome: Welson Play, Idade: 19

Pessoa 02 - Nome: Stephanie, Idade: 15

http://www.devmedia.com.br/http://www.devmedia.com.br/http://www.devmedia.com.br/http://www.devmedia.com.br/


2/16



Pessoa 03 - Nome: João Pedro, Idade: 17

Vamos encapsular primeiramente esses dados em XML para vermos como ficaria:

Listagem 1: Formatação em XML

Welson Play

19

Stephanie

15

João Pedro

17

Agora vamos ver como são encapsuladas as mesmas informações, só que agora

usando JSON:

Listagem 2: Formatação em JSON

{"Pessoas" : [

{"Nome": "Welson Play", "Idade":19},

{"Nome": "Stephanie", "Idade":15},

{"Nome": "João Pedro", "Idade":17}

]

}

Como podemos ver, a formatação em JSON é bem mais simples de lermos e

consequentemente vai ficar muito mais fácil para a máquina interpretar, e poderá ser

até mais rápido para transferir as informações. Então já podemos concluir que vamos

utilizar JSON para o intercâmbio dos dados.

Prática

Vamos iniciar um novo projeto DataSnap utilizando o Delphi XE2, mas quem tiver as

versões do Delphi 2010 em diante provavelmente não terá qualquer problema para

acompanhar este artigo.

Vamos em: File - New – Other

http://www.devmedia.com.br/curso/curso-de-multicamadas-com-delphi-e-datasnap/379


3/16



Figura 1: Iniciando um novo Projeto

Vamos criar um novo projeto com o wizad do DataSnap que está na pasta DataSnap

Server. Clique na opção DataSnap Server e depois em Ok. Será aberto o wizard onde

vamos passar as informações básicas de funcionamento do servidor.


4/16



Figura 2: Selecionando o projeto DataSnap

Observação: Não veremos em detalhes sobre cada opção que tem no wizard, pois esse

não é o foco desse artigo.

Na primeira parte do wizard vamos escolher VCL Forms Applications. Como mostra a

figura 3.


5/16



Figura 3: Etapa 1 de 4 na configuração do Servidor

Clique em Next.

Na próxima etapa deixe o padrão e na etapa 3/4, selecione uma porta qualquer. Nesse

exemplo foi escolhida a 8565.


6/16



Figura 4: Etapa 3 de 4 na configuração do Servidor

Click em Next. Na etapa 4/4 deixe como está e clique em Finish.

Pronto. Já foi criado o nosso projeto. Foi criado pelo wizard um form, um Server

Method de exemplo e um Server Container.

Para facilitar o desenvolvimento foram renomeadas as units da seguinte forma:

Antigo nome Novo Nome

Form1 UFViewPrincipal

ServerMethodsUnit USMMetodos

ServerContainerUnit USCServidor

Tabela 1: Nomes das units do projeto


7/16



Vamos criar um método chamado fOlaMundo na unit USMMetodos como mostra a

listagem 3.

Listagem 3: Primeiro método de transferência de dados entre Cliente/Servidor

{$METHODINFO ON}

TSMMetodos = class(TComponent)

private

{ Private declarations }

public

{ Public declarations }

function EchoString(Value: string): string;

function ReverseString(Value: string): string;

function fAloMundo : TJSONValue;

end;

{$METHODINFO OFF}

Neste método será retornado um string simples com a mensagem “Alô Mundo”.

A implementação desse método é bem simples como mostra a listagem 4, criando um

objeto do tipo TJSONString e é passado o string “Alô mundo”.

Listagem 4: Implementação do método fAloMundo

function TSMMetodos.fAloMundo: TJSONValue;

begin

Result := TJSONString.Create('Alo mundo')

end;

Observação: Para utilizar a classe TJSONString deve-se adicionar a unit Data.DBXJSON

para versões do Delphi XE2 e superiores, nas demais versões deve-se adicionar a Unit

DBXJSON.

Vamos agora adicionar uma aplicação cliente selecionando o Grupo e depois com o

botão direito selecionando Add New Project (Figura 5). Selecionar a pasta Delphi

Project e depois clica duas vezes em VCL Forms Application, como mostra a Figura 6.


8/16



Figura 5: Adicionando um projeto cliente

Figura 6: Adicionando uma aplicação Cliente


9/16



Com o projeto já criado vamos renomear a unit do Form para UFViewPrincipal e o nome

do form para FViewPrincipal.

Vamos Adicionar um TMemo, um TButton e uma TSQLConnection ao form e vamos

renomear como mostra a Tabela 2.

Nome da classe Novo Nome

TMemo MJSON

TButton BGet

TSQLConnection SQLCServidor

Tabela 2: Nomes dos componenetes

Organize sua tela para que fique parecido com a Figura 7.

Figura 7: Organização da tela

Vamos fazer as devidas configurações para que o SQLCServidor possa se conectar com

a aplicação servidor.

Observação: Não entraremos em detalhes sobre cada propriedade do TSQLConnection,

pois esse não é o foco do artigo.

Vamos configurar a TSQLConnection segundo a Tabela 3.

Propriedade Novo Valor

Drive Datasnap


10/16



Port 8565

Tabela 3: Configurando as propriedades do TSQLConnection

Clique com o botão direito no SQLCServidor e em “Generate DataSnap client classes”

como mostra a Figura 8.

Figura 8: Gerando Classe Proxy


11/16



Pronto. Será gerada uma classe Proxy responsável por se conectar com o servidor.

Renomeie a unit para UProxy. Vamos agora implementar o botão BGet como mostra a

Figura 13.

A implementação do evento click do TButton BGet é bem simples como mostra a

imagem abaixo.

Listagem 5: Implementação do TButton BGet

procedure TFViewPrincipal.BGetClick(Sender: TObject);

var oProxy : TSMMetodosClient; // Classe que representa meu server module do servidor

begin

oProxy := TSMMetodosClient.Create(SQLCServidor.DBXConnection); // Criando o Objeto Proxy

try

MJSON.Text := oProxy.fAloMundo.ToString; //Executando a função fAloMundo do Servidor

finally oProxy.Free; //liberando o Objeto Proxy da memória

end;

end;

Por padrão, ao gerar o proxy no TSQLConnection, é gerada uma classe no lado cliente

que representa as classes que vão ser consumida no lado cliente com o mesmo nome

da classe do servidor concatenado com “Client”.

Na Listagem 5 está sendo declarada uma variável da classe representativa da que eu

vamos executar no servidor. Em seguida está sendo criado o nosso objeto proxy, para

o qual é passado no constructor o DBXConnection. Esse objeto funciona como o

endereço do servidor. Com o proxy já criado basta chamar o método do servidor, que

no nosso caso é o método fAloMundo, onde o mesmo retorna um tipo abstrato do tipo

TJSONValue o qual possui um método chamado ToString que converte o objeto em

JSON para string.

Agora vamos testar o programa. O seu resultado deve ser parecido com o da Figura 9

quando for clicado no TButton BGet.


12/16



Figura 9: Resultado do método fAloMundo

Agora vamos voltar para o servidor e vamos criar um novo método chamado fSomar,

conforme a Listagem 6.

Listagem 6: Declaração do método fSomar

public

{ Public declarations }

function EchoString(Value: string): string;

function ReverseString(Value: string): string;

function fAloMundo : TJSONValue;

function fSomar(const pValor1, pValor2 : Integer) : TJSONNumber;

end;

Agora vamos implementar o mesmo como na Listagem 7:

Listagem 7: Implementação do Método fSomar

function TSMMetodos.fSomar(const pValor1, pValor2: Integer): TJSONNumber;

var iSoma : Integer;

begin

iSoma := pValor1 + pValor2;

Result := TJSONNumber.Create(iSoma);

end;

Sua implementação dispensa grandes comentários, pois sua implementação é bastante

simples. Estão sendo somados dois valores e em seguida é passado para o constructor

do TJSONNumber o resultado dessa soma.


13/16



Agora vamos para o lado Cliente e vamos adicionar um novo botão. Cuja sua

implementação está logo abaixo na Listagem 8.

Listagem 8: Implementação do TButton fSomar

procedure TFViewPrincipal.BSomarClick(Sender: TObject);

var oProxy : TSMMetodosClient; // Classe que representa meu server module do servidor

begin

oProxy := TSMMetodosClient.Create(SQLCServidor.DBXConnection); // Criando o Objeto Proxy

try

MJSON.Text := oProxy.fSomar(10, 20).ToString; //Executando a função fSomar do Servidor

finally

oProxy.Free; //liberando o Objeto Proxy da memória

end;

end;

A implementação do TButton BSomar é bem parecida com a do TButton BGet e

dispensa comentários, pois o código fala por si só.

Agora vamos testar e verificar o Resultado. O Resultado deve ser parecido com a da

figura 10.

Figura 10: Resultado da função fSomar

Como foi visto nos exemplos anteriores, não existe complicação para trafegar tipos

primitivos entre aplicações cliente/Servidor. Tente por si mesmo descobrir o

funcionamento dos outros tipos de objetos JSON, como o TJSONTrue, TJSONFalse,

TJSONArray, etc.


14/16



Obs.: Vale ressaltar que o objetivo desse artigo é a transferência dessas informações

entre aplicações Client/Servidor e não de se aprofundar em cada tipo.

Agora vamos consumir esse mesmo servidor no browser para simular um ambiente

híbrido. Para poder consumir o nosso servidor no browser vamos ter que adicionar o

suporte para HTTP no mesmo. Para isso basta adicionar o componente

TDSHTTPService e efetuar as seguintes configurações conforme a Tabela 4:

Propriedade Novo Valor

Server DSServer1

HttpPort 1234

Tabela 5: Propriedades do componente TDSHTTPService

Vamos executar o servidor novamente e digitar a seguinte URL no browser de sua

preferência: http://localhost:1234/datasnap/rest/TSMMetodos/fAlomundo.

O Resultado deve ser parecido com:


IP: IP da Máquina onde está executando o servidor.

Porta: É a porta escolhida no propriedade HttpPort do componente

TDSHttpService.

Context: Sempre deve ter esse contexto.

Classe: Nome da classe do servidor em que se quer consumir o método.Método: Método da classe do servidor passada anteriormente em que se quer

consumir.

Agora vamos executar o método fSomar. Vamos escrever praticamente a mesma URL,

mas com a diferença é que vamos ter que mudar o método para fSomar e temos que

passar os dois parâmetros:

http://localhost:1234/datasnap/rest/TSMMetodos/fSomar/10/30.

O Resultado deve ser parecido com:


15/16



Figura 12: Resultado do método fSomar

Não existe a necessidade do retorno dos métodos serem em JSON, pois o DataSnap

por padrão já faz esse encapsulamento dos tipos, não tendo a necessidade dosretornos serem em JSON, já que internamente esse valores já são convertidos.

A prova disso é que os métodos de exemplos que já foram criados pelo wizard não

retornam os valores propriamente em JSON, mas se eles forem ser consumidos no

browser, os resultados dos métodos estarão encapsulados em JSON.

Vamos consumir o método ReverseString para exemplificar o que foi dito

anteriormente. Para isso digite a seguinte URL no browser e vamos verificar o

resultado em questão:

http://localhost:1234/datasnap/rest/TSMMetodos/ReverseString/Welson

Lembrando que o Result do método ReverseString não está em JSON, ele retorna um

tipo primitivo do próprio Delphi.

O resultado obtido deve ser parecido com o da Figura 13.



16/16


Como foi visto, o resultado do método foi dado em JSON, e isso acontece por que o

DataSnap tem a capacidade de fazer essa conversão internamente, e mais uma vez o

Delphi entra em cena para facilitar a vida dos desenvolvedores.

onclusão

Como foi visto nesse artigo introdutório, não é complicado realizar a troca de

informações entre aplicações Cliente/Servidor. Com esses conceitos que foram

apresentados nesse artigo já podemos ter uma base para o desenvolvimento de

aplicações híbridas e como foi visto, não existe a necessita de ter muito conhecimento

dos tipos em JSON, pois o DataSnap já faz essa conversão internamente. Mas claro

que sempre é bom conhecer o que acontece nos bastidores e foi por isso que neste

artigo foi mostrado primeiramente o que acontece internamente, como o DataSnap

trata esses dados e só então foi explicado que o Delphi já faz tudo isso internamente.

Ficamos por aqui, e fiquem livres para escrever comentários, críticas e sugestões para

novos artigos. Fiquem com Deus.

Welson Play

Sou Desenvolvedor .net e Delphi mais de quatro anos e possuo as certificações MCSD Web Developing e

Delphi Developer, trabalho atualmente no desenvolvimento de sistemas web utilizando o ASP.NET MVC na

Lanlink Informática.
http://www.devmedia.com.br/autor/welson-play/274315http://www.devmedia.com.br/autor/welson-play/274315

Documents

DataSnap_ Transferência de Dados Entre Aplicações Cliente_servidor