Andreano Lanusse | Tecnologia e Desenvolvimento de Software » DataSnap

Video: Aprenda como utilizar DataSnap Connectors na prática

Andreano Lanusse — Mon, 23 Apr 2012 05:24:55 +0000

Neste vídeo explico como você pode utilizar DataSnap Connectors para conectar suas aplicações móveis, como exemplo mostro como conectar apps Windows Phone e Android, mas você pode conectar aplicações iOS e BlackBerry também.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

CopyReaderToClientDataSet, Blob e a mensagem “Feature not implemented”

Andreano Lanusse — Thu, 03 Nov 2011 23:57:19 +0000

Se você já utilizou o método TDBXDataSetReader.CopyReaderToClientDataSet provavelmente já se deparou com a mensagem “Feature not implemented”, esta exception ocorre porque o método CopyReaderToClientDataSet não suporta a cópia de campos Blob de um DBXReader para um ClientDataSet.

A partir do Delphi XE2 Update 2 isso não é mais problema, o suporte a blob no método CopyReaderToClientDataSet foi implementando.

Para saber como utilizar o método CopyReaderToClientDataSet na prática leia o artigo “Copiando estrutura e dados de um DBXReader para ClientDataSet - DataSnap“

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Publicando providers durante o registro dinâmico de DataSnap Server Class

Andreano Lanusse — Mon, 24 Oct 2011 23:37:14 +0000

Já faz algum tempo que publiquei aqui no blog sobre registro de DataSnap Server Class em tempo de execução, neste mesmo post surgiu vários comentários relacionados a não publicação dos Provider parte do ServerModule, o código original ao registrar o DSServerClass publicava apenas métodos (Server methods), mas não os Providers.

A solução para este problema é bem simples, basta registrar a classe TDSProviderDataModuleAdapter, a qual é usada internamente para permitir que o Provider esteja visível para os clientes DataSnap. TDSProviderDataModuleAdapter atua como um proxy entre TProviderDataModule no lado servidor e o TDSProviderConnection no lado cliente.

Poderíamos apenas mudar a implementação do método GetDSClass conforme abaixo, isso funcionaria, mas não seria a melhor implementação visto que estariamos sempre publicando os métodos da interface IAppServer utilizados pelo Provider e ClientDataSet, não faz sentido publicar esta interface se não há provider no ServerModule.

Tornar a publicação parametrizável traz maior flexbilidade e controle para a aplicação e para o desenvoldedor, fica a seu critério quando publicar ou não os providers, assim sendo precisamos apenas de um novo parâmetro na classe TSimpleServerClass.

function TSimpleServerClass.GetDSClass: TDSClass;
begin
  Result := TDSClass.Create(FPersistentClass, False);
  Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

Abaixo temos o código atualizado, a única alteração foi no constructor que recebeu o novo parâmetro ExposeProvider, desta forma você decide se quer ou não publicar os providers.

type

unit SimpleServerClass;

interface

uses DSServer, Classes, DSCommonServer, DSReflect;

type

  TSimpleServerClass = class(TDSServerClass)
  private
    FPersistentClass: TPersistentClass;
    FExposeProvider : Boolean;
  protected
    function GetDSClass: TDSClass; override;
  public
    constructor Create(AOwner: TComponent; AServer: TDSCustomServer;
      AClass: TPersistentClass; ExposeProvider: Boolean; ALifeCycle: String);
      reintroduce; overload;
  end;

implementation

constructor TSimpleServerClass.Create(AOwner: TComponent;
  AServer: TDSCustomServer; AClass: TPersistentClass; ExposeProvider: Boolean;
  ALifeCycle: String);
begin
  inherited Create(AOwner);
  FPersistentClass := AClass;
  FExposeProvider  := ExposeProvider;
  Self.Server := AServer;
  Self.LifeCycle := ALifeCycle;

end;

function TSimpleServerClass.GetDSClass: TDSClass;
var
  isAdapted : Boolean;
begin
  isAdapted := FPersistentClass.InheritsFrom(TProviderDataModule);
  Result := TDSClass.Create(FPersistentClass, isAdapted);
  if FExposeProvider and isAdapted then
     Result := TDSClass.Create(TDSProviderDataModuleAdapter, Result)
end;

end.

Abaixo um exemplo onde são registradas 3 classes e somente uma delas expõe os Providers:

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
begin
  Assert(AServer.Started = false, 'Não é possível adicionar classes com o servidor ativo');

  TSimpleServerClass.Create(AOwner, AServer, TGlobal, False, TDSLifeCycle.Server);
  TSimpleServerClass.Create(AOwner, AServer, TCustomer, True, TDSLifeCycle.Session);
  TSimpleServerClass.Create(AOwner, AServer, TObjectPool, False, TDSLifeCycle.Invocation);
end;

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Monitoramento e controle de conexões em DataSnap XE2

Andreano Lanusse — Sat, 01 Oct 2011 16:59:26 +0000

Uma das grandes novidades relacionadas ao DataSnap no Delphi e C++Builder XE2 é o monitoramento e controle de conexões TCP/IP a partir do servidor DataSnap, uma das grandes solicitações dos usuários de DataSnap, até a versão XE o monitoramente e controlo era possível mas requeria muito código por parte do desenvolvedor. Atende a pedidos isso já não é mais necessário, tudo isso é parte do framework e neste artigo vou explicar como funciona.

Aproveitando a oportunidade, dia 30 de Novembro acontece o Delphi Conference 2011, o maior evento de Delphi do Brasil, um dia inteiro para aprimorar seus conhecimento em Delphi e ir a fundo nas mais recentes novidades. Todas as informações no site do evento HTTP://www.delphiconference.com.br

Pra começar, toda a implementação do monitoramento e controle foi implementada para protocolo TCP/IP o que permite monitorar e derrubar qualquer conexão, assim sendo o componente TDSTCPServerTransporter recebeu dois novos eventos OnConnect e OnDisconnect, estes eventos são muito importantes, pois através deles gerenciamos a lista de conexões no servidor podendo fazer o que quiser com as mesmas. Além disso toda conexão está associado a um Session ID que é único, o Session ID já está disponível desde as versões anteriores do DataSnap.

Para exemplificar o funcionamento e implementação do monitoramento definimos uma lista (collection) conforme abaixo para armazenar as instâncias de cada conexão (TIdTCPConnection) e protocolo (TDSTCPChannel)

FConnections: TObjectDictionary;

A partir dai implementamos os eventos OnConnect e OnDisconnect no TDSTCPServerTransporter. Implementar o evento OnConnect é bem simples, você tem apenas que armazenar as informações referente a conexão na sua lista e caso tenha alguma interface para atualizar com as informações referentes a esta conexão, assim faze-lo.

O código abaixo adiciona a nova conexão utilizando os métodos TMonitor.Enter e TMonitor.Exit para assegurar que nenhuma outra thread irá tentar atualizar esta lista.

Após adicionar a lista utilizamos o método EnableKeepAlive que irei explicar em seguida.

procedure TCMServerForm.CMServerTransportConnectEvent(Event: TDSTCPConnectEventObject);
begin
  System.TMonitor.Enter(FConnections);
  try
    FConnections.Add(TIdTCPConnection(Event.Connection), Event.Channel);
  finally
    System.TMonitor.Exit(FConnections);
  end;

  //Enable Keep-alive for this new connection.
    Event.Channel.EnableKeepAlive(10000);
end;

A implementação do método OnDisconnect terá que localizar a instância da conexão e remove-la da lista, OnDisconnect será executado quando a aplicação cliente desconectar do servidor, seja de forma natural, queda de rede, etc.

Por padrão, o evento OnDisconnect não será notificado se o cliente de forma abrupta perde sua conexão internet. Isso acontece porque a conexão Socket permanece aberta até que ocorra alguma chamada e esta falhe. Se o sistema operacional está configurado para usar pacotes keep-alive para todas as conexões TCP/IP e com base na sua configuração, você verá o evento OnDisconnect ser notificado. Se você desejar controlar este comportamento para cada conexão, então use os métodos EnableKeepAlive e DisableKeepAlive para cada instância do TDSTCPChannel.

No código acima foi definido para cada conexão o KeepAlive em 10 segundos, isso quer dizer que o server irá enviar um pacote (fazer um ping) no cliente quando o mesmo estiver inativo por mais de 10 segundos, se o cliente não responder o server irá tentar novamente, a quantidade de tentativas é baseada no sistema operacional, por exemplo Windows 7 tenta 10 vezes. Você ainda pode definir o intervalo entre os pings, basta configurar o KeepAliveInterval.

O código abaixo demonstra como remover a instância da conexão da lista e como atualizar a interface do usuário utilizando TThread.Synchronize.

procedure TCMServerForm.CMServerTransportDisconnectEvent(Event: TDSTCPDisconnectEventObject);
var
  Index: Integer;
begin
  if (FConnections = nil) or (Event.Connection = nil) then
    Exit;

  //This is called when a TCP connection is closed, for whatever reason.
  System.TMonitor.Enter(FConnections);
  try
    FConnections.Remove(TIdTCPConnection(Event.Connection));

    TThread.Synchronize(nil, procedure
      begin
        //update the connection list box, removing the connection that was just closed
        Index := ConnectionsList.Items.IndexOfObject(Event.Connection);
        if Index > -1 then
        begin
          ConnectionsList.Items.Delete(Index);

          if ConnectionsList.SelCount = 0 then
            SessionIdList.ClearSelection;
        end;
      end);
  finally
    System.TMonitor.Exit(FConnections);
  end;

Até aqui sabemos quem está conectado ao servidor, a partir dai podemos derrubar qualquer conexão, visto que temos a instância de cada TDSTCPChannel e este contém o método close que encerra a conexão cliente, ao ser desconectado o lado cliente recebe uma exception quando tentar executar qualquer operação no servidor.
No exemplo abaixo encerramos a conexão selecionada em um ListBox, o método GetSelectedChannel busca a instância do Channel baseado na conexão selecionada no ListBox.

Quando executamos o método Channel.Close o evento OnDisconnect será notificado.

procedure TCMServerForm.ButtCloseSelectedClick(Sender: TObject);
var
  Channel: TDSTCPChannel;
begin
  //Find the selected connection's channel, and then close it.
  Channel := GetSelectedChannel;

  //after calling close, the CMServerTransportDisconnectEvent event will be notified.
  if Channel <> nil then
  begin
    Channel.Close;
  end;
end;
function TCMServerForm.GetSelectedChannel(Conn: TIdTCPConnection): TDSTCPChannel;
begin
  Result := nil;

  //Finds the selected connection
  if Conn = nil then
    Conn := GetSelectedConnection;

  //uses the selected connection to look up the associated channel.
  if Conn <> nil then
    FConnections.TryGetValue(Conn, Result)
end;

O RAD Studio XE2 traz um exemplo completo sobre o assunto e se você já usa a versão XE2 pode encontrá-lo em C:\Users\Public\Documents\RAD Studio\9.0\Samples\Delphi\DataSnap\DataSnapMonitor ou fazer o download direto do repositório de demos do RAD Studio XE2 aqui.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Implementando cache de dados em servidores DataSnap

Andreano Lanusse — Tue, 29 Mar 2011 03:38:27 +0000

O gerenciamento de memória do DataSnap é muito poderoso e uma característica chave para a implementação de cache. Imagine o cenário onde a aplicação cliente solicita os mesmos dados milhares de vezes durante o dia, certamente teremos que tocar o banco de dados a cada solicitação. Vamos supor que esses dados não mudam com muita freqüência, por exemplo: tabela de países, estados ou cidades.

Quando implementamos cache para este cenário, a primeira solicitação obtém os dados a partir do banco de dados e os mantém em memôria, a partir da segunda solicitação o servidor de aplicação irá buscar estes dados em memória e retornar para a aplicação cliente, em outra palavras a aplicação tocou o banco de dados apenas uma única vez.

A combinação entre o gerenciamento de memória do DataSnap, DBXReader e ClientDataSet é o que você precisa para implementar uma solução de cache.

O gerenciamento de memória do DataSnap é definido através do componente DSServerClass e sua respectiva propriedade LifeCycle, que você pode ser definida como:

Server → O servidor mantém uma única instância da classe no server, todos os clientes ao solicitar essa classe receberão sempre a mesma instância (Singleton)
Session → O servidor mantém uma instância da classe por sessão do DataSnap, cada cliente recebe uma instância diferente da classe (Statefull)
Invocation → A cada execução de um server method uma instância da classe será criada e logo depois destruída (Stateless), você pode intervir no processo de criação e destruição desta classe a partir do servidor.

Vamos ver como podemos implementar uma solução de cache usando o cenário onde terei que armazenar uma lista de estados, esta informação está na tabela de STATE.

A minha classe no servidor (ServerClass) foi criada a partir de um DSServerModule e se chama TDMDataSet5, contém dois métodos privados (private) e um público (public), que são:

private
   function GetRecords(Fields, Table: String): TDBXReader;
   function GetData(Cds : TClientDataSet; Fields, Table: String) : TDBXReader;
public
   function GetState: TDBXReader;

O método GetRecords irá consultar o banco de dados e retornar os registros como um DBXReader, este método não implementa nenhuma lógica para verificar se o cache já está preenchido.

function TDMDataSet5.GetRecords(Fields, Table: String): TDBXReader;
var
    cmd: TDBXCommand;
begin

    cmd := DMServerContainer.GetConnection.DBXConnection.CreateCommand;
    try
      cmd.Text := 'Select ' + Fields + ' from ' + Table;
      Result := cmd.ExecuteQuery;
    except
      raise;
    end;
end;

Como o DBXReader é unidirecional não podemos manter os dados em memória, a solução para isso é copiar os dados e mantê-los em um ClientDataSet.

GetData é um método interno responsável por criar, manter e retornar os dados como DBXReader.

Conforme a implementação abaixo o método irá obter os dados a partir do banco de dados (GetRecords) somente se o ClientDataSet não está ativo, em outras palavras nós nunca tivemos os dados em cache e somente iremos executar este código uma única vez. Após o bloco do IF a classe TDBXDataSetReader irá copiar os dados do ClientDataSet para um DBXReader e retorná-lo.

function TDMDataSet5.GetData(Cds: TClientDataSet; Fields, Table: String): TDBXReader;
var
    Reader : TDBXReader;
begin
    if not Cds.Active then // Not active means, never move the data to ClientDataSet – no cache
      begin
      Reader := GetRecords(Fields, Table);
      TDBXDataSetReader.CopyReaderToClientDataSet( Reader, Cds );
      Reader.Free;
      Cds.Open;
    end;

    Result := TDBXDataSetReader.Create(Cds, False (* InstanceOwner *) );
end;

Você pode estar se perguntando por que estou copiando os dados do ClientDataSet para DBXReader e não retornando diretamente o ClientDataSet, duas razões:

Não é possível fazer o marshal/unmarshal de ClientDataSet para um objeto JSON
DataSnap converte DBXReader em JSON quando o server methods é chamado a partir de uma interface REST.

Um ponto importante, o DSServerModule TDMDataSet5 irá gerenciar o cache, se o LifeCycle para esta classe for definido como server isso irá significar uma única instância do cache para todos os clientes, podemos chamar isso de “cache global”, caso defina como Session estaremos criando um cache para cada cliente conectado ao servidor.

Caso a sua aplicação cliente utilize o DBXClient irá receber um DBXReader a partir da execução do server method, a partir dai é sua responsabilidade decidir o que fazer com os dados, mas sendo necessário conectar estes dados a componentes data-aware será necessário copiar os dados do DBXReader para um ClientDataSet, o método TDBXDataSetReader.CopyReaderToClientDataSet é a solução pra isso.

   TDBXDataSetReader.CopyReaderToClientDataSet(Reader, CDSCity);

Se algum dados relacionado com a tabela State mudar será necessário implementar um server method para atualizar os dados. Além disso, ao definir o LifeCycle como Server o cache será destruído no momento que o servidor parar (Stop), mas se utilizamos o LifeCycle Session o cache será destruído no momento em que a aplicação cliente se desconecta do server.

Usando esta técnica você garante que o cache no servidor não depende da implementação do lado cliente, além disso quero lembrar que essa solução irá funcionar como DataSnap Servers, se você implementou o server usando DataSnap REST Interface você não terá cache, porque cada solicitação ao server funciona como o lifecycle invocation.

Este é um exemplo realista que explica como implementar cache em servidores DataSnap usando dados a partir de um banco de dados como exemplo, além disso, você aprendeu como mover dados de/para ClientDataSet de/para DBXReader.

O download do código fonte utilizado como exemplo está disponível aqui, veja a unit DataSetDM5.pas (Servidor) e FormDataSet5 (Cliente).

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Exemplos e slides do Delphi Meeting 2011

Andreano Lanusse — Mon, 28 Feb 2011 05:27:22 +0000

Primeiramente obrigado a todos que participaram do Delphi Meeting 2011, foi um grande sucesso nas 12 cidades percorridas onde 1500 desenvolvedores Delphi compareceram e aprenderam muito sobre desenvolvimento multi-camada com Delphi, C++Builder, RadPHP e Delphi Prism, além de desenvolvimento com Delphi Prism cpara iPhone e MonoTouch, .NET com Mono e Linux, enfim começos 2011 em grande estilo.

Os inscritos no Delphi Meeting 2011 tem descontos especiais para atualizar sua licença de Delphi, C++Builder ou RAD Studio, basta entrar em contato com nosso distribuidor no Brasil (11) 2165-8000.

Na comunidade Delphi Brasil no Facebook foram publicadas várias fotos dos eventos pelo Brasil.

Como prometido segue abaixo o link com os slides e exemplos utilizados durante o Delphi Meeting 2011.

Slides do Delphi Meeting 2011 – download
- Embarcadero e Delphi Update
- Introdução ao DataSnap XE
- Migrando da arquitetura Cliente/Servidor para Multicamada
- Desenvolvendo clientes DataSnap em Delphi XE, .NET, JavaScript e RadPHP
- Criando aplicações para Linux e iPhone com Delphi Prism e Mono/MonoTouch
Exemplos DataSnap – download, traz vários exemplos:
- DataSnap clients em Delphi, C++Builder, ASP.NET, PHP
- Como utilizar ClientDataSet em multi-tier
- Múltiplas atualizações através de ClientDataSet – Master Detail e Nested DataSet
- Utilizar lookups em ClientDataSet
- Como implementar cache global e por sessão em servidores DataSnap
- Server Methods
- Transferir dados através do DBX Reader
- Object Transfer JSON simple e collection
- Callback – backup no servidor e transferência de arquivos
Exemplos iPhone e Linux
- Web browser para iPhone com Delphi Prism – download
- Usando o Google Maps em aplicações iPhone com Delphi Prism - download
Exemplos ASP.NET e Web Service para Linux - download
- Aplicação ASP.NET
- Aplicação Web Service
Papel de parede do Delphi XE

Mais uma vez obrigado a todos e agora é hora colocar em prática o que discutimos durante o evento, até o próximo.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Tratando o retorno de server methods em PHP a partir de DataSnap REST

Andreano Lanusse — Mon, 17 Jan 2011 22:51:22 +0000

Criar aplicações PHP para conectar a servidores DataSnap REST é relativamente simples já que o RadPHP traz um assistente que gera as classes proxies em PHP, mas como PHP é uma linguagem dinâmica e não é fortemente tipada, isso abre margem para erros durante a chamadas dos server methods, além disso em chamadas REST o retorno é sempre um JSON object, mas tudo isso é relativamente fácil de resolver.

Considere o seguinte cenário onde você tem um método de autenticação que retorna TRUE ou FALSE, claro que você deve estar pensando que em caso de erro o método irá retornar sempre falso, isso não é necessariamente verdade e vou explicar em seguida.

No caso de aplicações PHP ao executar um server method você sempre receberá um objeto como retorno e a partir dele executará as operações que sua aplicação requer.

Assumindo que você já gerou a classe proxy em PHP no RadPHP, temos o que precisamos para executar nossas regras de negócio no servidor DataSnap a partir da aplicação PHP.

Ao criar a classe proxy o assistente cria um datamodule que contem o componente DSRestConnection, este componente contém as informações necessárias para conectar ao servidor como Host, Port, UserName e Password.

O código abaixo executa o método TUser.isValidUser passando usuário e senha como parâmetro, se o retorno for uma instância de DSObject a propriedade result deste objeto terá o valor TRUE ou FALSE, caso ocorra uma EXCEPTION no servidor não será retornado o objeto DSObject e você terá a propriedade error a sua disposição contento a mensagem de erro.

type
   global $ClientModuleDataModule1;
   $conninfo = $ClientModuleDataModule1->DSRestConnection1->ConnectionInfo;

   $user = new TUser($conninfo);

   $valid = $user->IsValidUser($this->edUserName->Text, $this->edPassword->Text);

   if($valid instanceof DSObject)
   {
      if($valid->result)
      {
         setcookie('loginid', $this->edUserName->Text);
         redirect("Main.php");
      }
      else
      {
         $this->Button1->Caption = "Username/Password invalid";
      }
   }
   else
   {
      $this->Button1->Caption = $valid->error;
   }

Nos exemplos do RAD Studio XE no sourceforge estão disponíveis o código desta aplicação cliente em PHP e o servidor em Delphi XE, faça o download aqui.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeo: Integração Delphi e Java com DataSnap, WebService e JSON – Delphi Conference 2010 Brasil

Andreano Lanusse — Wed, 29 Dec 2010 17:00:28 +0000

Nesta apresentação Willian Zonta fala sobre a experiência recente do desenvolvimento WebServices fornecendo recursos para outros sistemas, os quais foram desenvolvidos em Delphi e Java, para a troca de informações utilizou-se JSON, durante a palestra Willian trouxe exemplos práticos.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeo: Threads e DataSnap – otimizando um servidor de aplicação – Delphi Conference 2010 Brasil

Andreano Lanusse — Mon, 27 Dec 2010 23:17:54 +0000

Nesta apresentação Kelver Merlotti como o uso de Threads pode otimizar um servidor de aplicação DataSnap, que tem o objetivo de receber e persistir dados estatísticos coleta dos por uma aplicação cliente Win32, para que sejam posteriormente analisados em uma ferramenta de BI na matriz franqueadora onde está este servidor. Serão apresentados conceitos de segurança, através dos DataSnap Filters, e a importância das Threads que se não utilizadas, impactariam consideravelmente o projeto pois o registro dos dados seria lento, visto que envolve diversas triggers.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeo: Conectando aplicações Android com DataSnap Server no Delphi Conference 2010 Brasil

Andreano Lanusse — Tue, 21 Dec 2010 19:18:31 +0000

Este é segundo vídeo do Delphi Conference 2010 Brasil onde o italiano Daniele Teti apresenta na prática como integrar aplicações para Android com servidores DataSnap, reserve um tempinho e assista ou faço o download desta apresentação que foi um show a parte.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeos sobre DataSnap para 2011 – o que você gostaria de ver?

Andreano Lanusse — Mon, 20 Dec 2010 18:48:52 +0000

Estou preparando uma série de vídeos sobre DataSnap para 2011, gostaria de saber dos usuários atuais ou futuros usuários do DataSnap sugestões sobre o que vocês gostariam de ver nesses vídeos.

Durante 2010 nós criamos centenas de materiais incluindo vídeos e artigos, mas sempre podemos fazer mais e melhor, assim sendo envio sua sugestão comentando nesse post.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeo: Estratégias e ferramentas para desenvolvimento de aplicações DataSnap com Delphi XE

Andreano Lanusse — Tue, 07 Dec 2010 19:26:49 +0000

Se você não teve a chance de participar do Webinar “Estratégias e ferramentas para desenvolvimento de aplicações DataSnap com Delphi XE”, assista a gravação do evento abaixo e aproveita para aprimorar seus conhecimentos em Delphi e DataSnap.

Nesse vídeo você irá conhecer diversas ferramentas e tecnologias que podem ser usadas durante o desenvolvimento em seus mais variados aspectos, vantages do desenvolvimento multicamada vs Client/Server, assim como:

Arquitetura do servidor físico e aplicação DataSnap
Automação de processos que facilitem o teste, compilação e distribuição da aplicação
Melhora da qualidade dos dados durante os testes
Isolar problemas da aplicação e banco de dados
E outras coisas mais

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Registrando DataSnap Server Class em tempo de execução no Delphi

Andreano Lanusse — Tue, 30 Nov 2010 23:00:55 +0000

Sempre que estamos construindo uma aplicação DataSnap temos que registrar as classes que serão disponbilizadas para o lado cliente, o natural é utilizar o componente DSServerClass pra isso, muitas vezes queremos fazer isso em tempo de execução, abaixo segue um código exemplo de como efetuar o registro destas classes em tempo de execução.

No código abaixo a classe TSimpleServerClass herda de TDSServerClass e estende o método Create onde passamos a classe a ser registrada, seu respectivo DataSnap Server e o LifeCycle.

type

  TSimpleServerClass = class(TDSServerClass)
  private
    FPersistentClass: TPersistentClass;
  protected
    function GetDSClass: TDSClass; override;
  public
    constructor Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass; ALifeCycle: String); reintroduce; overload;
  end;

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);

implementation

constructor TSimpleServerClass.Create(AOwner: TComponent; AServer: TDSCustomServer; AClass: TPersistentClass; ALifeCycle: String);
begin
  inherited Create(AOwner);
  FPersistentClass := AClass;
  Self.Server := AServer;
  Self.LifeCycle := ALifeCycle;
end;

function TSimpleServerClass.GetDSClass: TDSClass;
begin
  Result := TDSClass.Create(FPersistentClass, False);
end;

Agora é criar uma instância de TSimpleServerClass para cada classe que contém os server methods.

Abaixo um exemplo onde são registradas 3 classes no mesmo server, com LifeCycles distintos:

procedure RegisterServerClasses(AOwner: TComponent; AServer: TDSServer);
begin
  Assert(AServer.Started = false, 'Não é possível adicionar classes com o servidor ativo');

  TSimpleServerClass.Create(AOwner, AServer, TGlobal, TDSLifeCycle.Server);
  TSimpleServerClass.Create(AOwner, AServer, TCustomer, TDSLifeCycle.Session);
  TSimpleServerClass.Create(AOwner, AServer, TObjectPool, TDSLifeCycle.Invocation);
end;

Simples e muito prático, até o próximo artigo.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Webinar: Estratégias e ferramentas para desenvolvimento de aplicações DataSnap com Delphi XE

Andreano Lanusse — Tue, 23 Nov 2010 22:08:19 +0000

No dia 7 de dezembro a partir das 15 horas (horário de Brasilia) estarei apresentando o Webinar: Estratégias e ferramentas para desenvolvimento de aplicações DataSnap com Delphi XE.

A idéia é mostrar as diversas ferramentas e tecnologias que podem ser usadas durante o desenvolvimento em seus mais variados aspectos, vantages do desenvolvimento multicamada vs Client/Server, assim como:

Arquitetura do servidor físico e aplicação DataSnap
Automação de processos que facilitem o teste, compilação e distribuição da aplicação
Melhora da qualidade dos dados durante os testes
Isolar problemas da aplicação e banco de dados
E outras coisas mais

O webinar é gratuito e você já pode se inscrever aqui.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Apresentações do Delphi Conference 2010 disponível para download

Andreano Lanusse — Thu, 18 Nov 2010 23:54:24 +0000

Já está disponível o material utilizado nas apresentações do Delphi Conference 2010 Brasil, os slides disponibilizados trazem informações valiosas e link para download dos exemplos utilizados.

Para efetuar o download das apresentações você precisa de uma conta no EDN (Embarcadero Developer Network), que é grátis, caso você já a tenha, efetue o login e tenha acesso ao melhor conteúdo já apresentado sobre Delphi.

Artigo do EDN com todas as apresentações, clique aqui.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

DataSnap – Compartilhando conexão com o banco entre diferentes Server Classes a partir do mesmo cliente (Session)

Andreano Lanusse — Tue, 09 Nov 2010 15:59:15 +0000

Aqueles que começam a desenvolver aplicações utilizando DataSnap tem como hábito definir conexões ao banco de dados por Data Module, isso gera um volume muito grande de conexões ao banco de dados, dependendo da situação isso pode se tornar um problema.

No Delphi XE o DataSnap traz o gerenciamento de sessão (Session Management), este gerenciamento facilita a implementação do servidor em diversos aspectos, especificamente tratando do tema de como definir uma única conexão ao banco de dados para cada cliente onde cada Server Methods receba esta conexão, o gerenciamento de sessão é o ponto chave pra isso.

A definição deste controle irá ocorrer do lado servidor, a aplicação cliente não precisa e não tem que saber como ocorre a conexão ao banco de dados.

Ao criar um servidor DataSnap como boa prática definimos um Server Container (Data Module) que basicamente é o seu servidor DataSnap, é neste container que será definido o método responsável por passar a cada Server Class a conexão com o banco, assim sendo, a implementação seria.

Primeiro, o método GetConnection retornará a conexão ao banco, neste método teremos a lógica responsável por saber se a conexão existe ou não para aquele cliente conectado, cada cliente ao conectar so servidor DataSnap terá um ID de sessão associado, assim declaramos o método e a variável ListofConnection como parte do nosso Server Container.

  private
    { Private declarations }
    ListofConnection : TDictionary;
  public
    function GetConnection : TSQLConnection;

O método GetConnection irá consultar o pool de conexões (variável ListOfConnection) para saber se este cliente já tem uma conexão no pool ou não, através do TDSSessionManager.GetThreadSession.Id obtemos o Id da sessão para este cliente, este Id é único e somente será renovado se o cliente desconectar e voltar a conectar novamente ao servidor.

Não existindo a conexão para o cliente naquele sessão, será criada dinamicamente uma conexão e esta será retornada.

function TServerContainer1.GetConnection: TSQLConnection;
var
  dbconn : TSQLConnection;
begin

  if ListofConnection.ContainsKey(TDSSessionManager.GetThreadSession.Id) then
     Result := ListofConnection[TDSSessionManager.GetThreadSession.Id]
  else
  begin
    dbconn := TSQLConnection.Create(nil);
    dbconn.Params.Clear;
    dbconn.LoadParamsOnConnect := true;
    dbconn.ConnectionName := 'DS Employee';

    ListofConnection.Add(TDSSessionManager.GetThreadSession.Id, dbconn);
    Result := dbconn;
  end;

end;

A partir de agora precisamos informar a cada Server Class qual conexão utilizar. Se o seu Server Class tem como base um DataModule, basta no onCreate do DataModule informar a conexão que deverá ser utilizada nos objetos TSQLQuery ou outro objeto que conecte ao banco de dados.

Como exemplo, tenho um DataModule como Server Class, neste existem 2 SQLQuery, assim sendo passo a conexão para cada uma deles:

  COUNTRYQuery.SQLConnection := ServerContainer1.GetConnection;
  EMPLOYEE1Query.SQLConnection := ServerContainer1.GetConnection;

Para não deixar conexões abertas no servidor assim que um cliente desconectar do servidor DataSnap, implementamos no evento onDisconnect do componente DSServer o seguinte método:

  if GetConnection <> nil then
     GetConnection.Close;

Este método irá fechar a conexão com o banco.

O código fonte completo está disponível no Code Central.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Vídeo de lançamento da familia XE do Delphi, C++Builder, RadPHP e Delphi Prism

Andreano Lanusse — Fri, 17 Sep 2010 07:05:43 +0000

Se você não teve a oportunidade de assistir ao lançamento online do novo RAD Studio XE, onde foram apresentadas as novidades do Delphi XE, C++Builder XE, RadPHP XE e Delphi Prism XE não tem problema, o evento foi gravado e você poderá assistir na integra a apresentação, que traz:

Assista o vídeo de lançamento da família XE do Delphi, RadPHP, C++Builder e Delphi Prism

Update sobre o futuro do Delphi

Novidades do IDE, RTL, VCL para Delphi e C++Builder

Performance Profile com AQTime

Logs avançados com CodeSite

Intergração com Subversion

O novo RadPHP para desenvolvimento PHP

Como desenvolver aplicações para Facebook com RadPHP

As novidades no Delphi Prism XE

Desenvolvimento de aplicações para iPhone com Delphi Prism

As inúmeras novidades no DataSnap XE

Automatização de builds com FinalBuilder

Desenvolvimento ágil com RAD Studio XE

E muito mais…

Além disso você pode fazer o download e compartilhar com seus amigos, incluir no seu website, etc.

Ao final faça o download do trial e teste na prática as novidades

Divulgue as novidades e mostre a comunidade de desenvolvedores o que você pode fazer com o novo RAD Studio XE.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Teste nosso servidor DataSnap XE instalado no Amazon Cloud

Andreano Lanusse — Thu, 02 Sep 2010 23:39:56 +0000

Funciona assim, instalamos InterBase e uma aplicação DataSnap Server no Amazon EC2 e disponibilizamos a aplicação DataSnap client desenvolvidade em Delphi.

Se você quer usar um cliente DataSnap e ver na prática como é rápido o DataSnap XE, faça o download da aplicação cliente desenvolvida em Delphi e navegue pelas opções disponíveis na aplicação. O servidor estará disponível durante as próximas 24 horas.

Aqui algumas orientações sobre a aplicação que irá lhe ajudar a entender o que acontece quando você executa alguns dos server methods:

Tab Server Methods

Button Get Server DateTime – retorna a data e hora a partir do servidor Amazon
Jobs available – lista os registros a partir de um ClientDataSet, você pode editar, deletar e inserir dados

Using ClientDataSet (Master-Detail)

ClientDataSet usando modelo Master-Detail (somente leitura)

Reading Data from DBXReader

Essa tab tem 3 botoões, o primeiro lista os departamentos, o segundo diz ao objeto no server que a próxima requisição deverá ser ordernada por ID, o próximo botão irá ordernar por NOME. Este objeto no servidor é singleton, ou seja, tem apenas uma instância, se quando você solicitar a lista de departamento e esta não vier ordenada pelo item que você solicitou é porque alguém fez uma solicitação ao server para ordenar por outro campo. Este é um exemplo simples mostrando como funciona a gerenciamento de objetos.

Using DBX framework to send TParams

Adiciona registros na tabela Department passando os dados como um objeto TParams

Object Transfer

Recebe objetos do servidor

Faça o download da aplicacão cliente para DataSnap aqui, unzip, clique e execute.

Este é um pequeno exemplo que mostra alguma das funcionalidades do DataSnap, Anders foi responsável pelo processo de teste .

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

DataSnap XE e Windows Azure – RAD Studio XE Preview #3

Andreano Lanusse — Tue, 24 Aug 2010 09:06:34 +0000

Uma das grandes novidades no RAD Studio XE é o suporte a Cloud Computing, neste mostramos como acessar serviços no Microsoft Azure através de servidores DataSnap. Além disso o DataSnap XE traz várias novidades nesta versão, como por exemplo o suporte a autenticação e acesso a métodos a partir de grupo de usuários.

Neste vídeo você irá conhecer a integração com Cloud Computing, divirta-se.

Agora acesse a página do RAD Studio XE Preview e conheça mais sobre outras novidades do Delphi XE, C++Builder XE, Delphi Prism XE e RadPHP XE.

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Delphi Tour 2010 – slides e exemplos disponibilizados para download

Andreano Lanusse — Fri, 25 Jun 2010 20:26:49 +0000

Estimados desenvolvedores Delphi, primeiramente obrigado a todos que participaram do Delphi Tour 2010, foram 2 semanas por várias cidades conversando frente a frente com a comunidade Delphi, compartilhando conhecimento e anotando as inúmeras sugestões para fazer o Delphi cada vez melhor.

Como prometido, estou disponibilizando os slides e exemplos utilizados nas apresentações, somente a apresentação sobre o RAD Studio RoadMap será direcionado para o EDN, onde o mesmo é atualizado frequentemente e pode ser acessado através deste link.

Resolvendo problemas de performance em aplicações Delphi e bancos de dados

Testando aplicações DataSnap

Integrando Skype em aplicações Delphi

Delphi Prism 2011

O código fonte dos exemplos utilizados nas apresentações sobre DataSnap e Skype, podem ser obtidos através dos links abaixo:

Aplicação ASP.NET utilizando AJAX, dbExpress, Themes, Skin e outros recursos, download aqui
Aplicação DataSnap, cliente, servidor e testes unitários, download aqui
Aplicação Delphi integrada a Skype, utillizando Skype API e Skype4COM, download aqui

Posts relacionados

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse