LiveBindings Tutorial: A evolu��o no Delphi

Fique por dentro

Atrav�s de exemplos comparativos entre as vers�es do Delphi, � mostrado como o recurso de Live Bindings amadureceu. Os exemplos mostram como a praticidade se tornou o foco em sua utilizaç�o, colocando lado a lado situaç�es que sofreram melhoras, por exemplo, a notificaç�o de mudanças nos bindings, o surgimento de um assistente para criaç�o de Bindings, binding de objetos n�o visuais e outras.

O LiveBindings foi lançado juntamente com o FireMonkey no Delphi XE2, principalmente porque esta nova plataforma de desenvolvimento n�o cont�m os controles DataAware tradicionais como existiam na VCL, ent�o optou-se por criar um mecanismo de Binding semelhante ao que j� existe na plataforma .NET, o que obviamente uma �tima ideia da Embarcadero. Vale lembrar que este recurso tamb�m foi disponibilizado para os componentes da VCL.

Saiba mais: Guia Completo de Delphi

J� era previsto que houvesse melhorias no LiveBindings para as novas vers�es do Delphi, j� que o recurso surgiu no Delphi XE2, onde ainda era um tanto trabalhoso de usar. Em sua primeira vers�o, as notificaç�es de atualizaç�o entre os controles eram feitas manualmente via c�digo.

J� nas vers�es mais recentes do IDE, estas notificaç�es s�o autom�ticas, bastando o desenvolvedor ligar os controles de forma gr�fica e intuitiva.

Foram criados dois facilitadores para esta tarefa que s�o o LiveBindings Designer e o LiveBindings Wizard.

FireMonkey

O FireMonkey � o novo Framework de desenvolvimento de aplicaç�es criado pela Embarcadero a partir do Delphi XE2. Seu prop�sito surgiu atrav�s da necessidade de criar aplicaç�es com visual mais rico e que sejam multiplataforma. Os recursos gr�ficos do FireMonkey fazem uso da GPU do hardware, possibilitando o trabalho com aplicaç�es HD, 3D.

A vers�o FireMonkey 2 presente no Delphi XE3 trouxe algumas novidades como Actions, Anchors, Touch e Gesture, recursos estes que j� existiam na VCL.

Saiba mais: Curso de FireMonkey

DataBinding

O DataBinding � uma t�cnica de ligaç�o entre duas fontes de dados que nos permite manter a sincronizaç�o destes, onde uma alteraç�o feita por um elemento reflete automaticamente nos elementos ligados a ele. Para isto temos um objeto de origem (source) e um ou mais objetos de destino (target). Alteraç�es no objeto de origem ir�o refletir automaticamente nos objetos de destino.

O uso mais comum de DataBinding � o de ligar campos do banco de dados ou atributos de uma classe a um controle de tela, como Edits, Memos, Grids, etc.

Podemos ter tr�s tipos de ligaç�es entre estes elementos:

OneWay: onde somente o objeto de origem atualiza o de destino;
TwoWay: neste os dois fazem atualizaç�es no outro;
OneWayToSource: aqui o destino quem faz atualizaç�es no objeto de origem.

LiveBindings

O LiveBinding � um mecanismo de DataBinding que foi incorporado na vers�o XE2 do Delphi e que tem o objetivo de fazer a ligaç�o de fontes distintas de dados atrav�s de express�es. Estas express�es s�o relacionais, conhecidas como Binding Expressions, podendo ser unidirecional ou bidirecional, que define o sentido do fluxo de dados na ligaç�o.

Unidirecional: a alteraç�o � feita apenas na origem, ou seja, a propriedade de destino apenas reflete os dados da origem.
Bidirecional: a alteraç�o � feita na origem e no destino, ou seja, qualquer alteraç�o � refletida tanto na origem quanto no destino.

Por meio destas express�es podemos ter qualquer objeto ligando com qualquer outro, simplesmente criando esta express�o de ligaç�o entre eles.

No LiveBinding temos os objetos que s�o os Source Objects (objetos de origem) e os Control Objects (objetos de controle). H� a possibilidade de um mesmo objeto ser tanto de origem quanto de controle. Os componentes dispon�veis podem ser vistos na Figura 1.

Figura 1. Componentes LiveBindings no Delphi XE4.

LiveBindings Designer

Este editor pode ser visualizado usando o menu View/LiveBindings Designer, ele nos exibe os componentes que temos em nossa tela e a partir de agora podemos fazer a ligaç�es deste componentes simplesmente traçando uma linha simples entre as propriedades dos objetos.

A partir desta vers�o, o pr�prio Delphi se encarrega de disparar as notificaç�es entre os componentes, n�o precisamos mais programar nenhum m�todo nem codificar nenhum evento para esta tarefa, como t�nhamos anteriormente no Delphi XE2.

A seguir uma breve descriç�o de cada bot�o do editor conforme a ordem da Figura 2.

Fit in Window: redimensiona os itens para se adequar ao tamanho atual do editor;
Zoom In: aumenta o tamanho dos itens do editor;
Zoom Out: diminui o tamanho dos itens do editor;
Restore Actual Size: restaura o tamanho padr�o dos itens;
LiveBindings Wizard: abre um wizard que ajuda na criaç�o de Bindings.

Figura 2. Bot�es do Editor.

No Editor de Bindings tamb�m temos os chamados Layers ou camadas, que s�o diferentes formas de visualizaç�o que podemos ter das ligaç�es entre os componentes, como pode ser visto na Figura 3.

A ideia � dar foco a alguns componentes e ligaç�es que desejamos. Isto � muito �til quando h� muitas ligaç�es dentro do formul�rio, como por exemplo dois ClientDataSets ligado a v�rios controles. Neste caso poder�amos ter duas visualizaç�es, uma para cada ClientDataSet.

Figura 3. Layers(camadas) do Wizard.

Existem alguns componentes, como r�tulos, que n�o temos a necessidade de termos no nosso editor de Bindings e que acabam poluindo a tela.

Podemos deixar invis�veis estes controles para o editor, bastando apenas acionarmos o bot�o direito dentro do editor e escolher a opç�o �Show/Hide elements...�. Ser� aberta uma janela com todos os itens do formul�rio, onde basta desmarcar os controles que n�o desejamos que sejam exibidos no editor, conforme a Figura 4.

Figura 4. Ocultando elementos do editor.

Olhando para o editor vemos que as principais propriedades de cada componente ficam dispon�veis para fazermos a ligaç�o, por�m, podemos adicionar as propriedades que est�o ocultas de cada componente, basta clicarmos nos �tr�s pontos� no canto inferior direito de cada componente do editor que ele vai trazer todas as propriedades dispon�veis naquele componente, e ent�o podemos escolher quais desejamos que estejam dispon�veis no editor, conforme a Figura 5.

Figura 5. Propriedades ativas ou inativas no Editor.

Acionando o bot�o direito dentro do editor, temos outro interessante recurso, que � o de exportar nosso diagrama como imagem, conforme mostra a Figura 6. Podemos configurar v�rias opç�es relacionadas ao tamanho do diagrama.

Temos um preview do resultado e podemos salvar em v�rios formatos de imagens. Isso � interessante para documentaç�o da aplicaç�o que estamos desenvolvendo.

Figura 6. Exportando diagrama para imagem.

Notificaç�es no Delphi XE2

Na vers�o XE2 do Delphi, para refletirmos o texto de um Edit no Caption de um Button t�nhamos que fazer as seguintes operaç�es. Ir na propriedade LiveBindings e escolher New LiveBinding.

Ap�s escolher a opç�o TBindExpression, era criado o componente TBindingsList onde dever�amos configurar na nossa express�o as seguintes opç�es:

Control Expression: propriedade do Button afetada, no caso Text.
Source Component: componente de origem, no caso o Edit.
Source Expression: express�o, que pode ser simplesmente Text ou qualquer funç�o adicional.

Para o correto funcionamento do exemplo ainda precisava-se implementar um procedimento de notificaç�o na seç�o published da unit, para que a cada troca de dados no Edit os controles ligados sejam notificados, conforme a Listagem 1.

Listagem 1. Evento de notificaç�o.


  01 procedure Notify(Sender: TObject);
  02 begin
  03   BindingsList1.Notify(Sender, "");
  04 end;

Finalmente, no evento OnChange do Edit dev�amos vincular a procedure Notify e ao executar tudo funcionava conforme o planejado.

Note que para apenas uma relaç�o tivemos uma s�rie de configuraç�es a fazer al�m da codificaç�o, que n�o deveria ser necess�ria, j� que isso faz parte do recurso de LiveBindings e n�o � uma l�gica de nossa aplicaç�o. Veremos a seguir o quanto isso ficou f�cil nas vers�es recentes do IDE.

Notificaç�es no Delphi XE4

Para termos o mesmo exemplo no Delphi XE4 basta segurarmos o bot�o esquerdo do mouse da propriedade Text do Edit at� a propriedade Text do Button. Pronto, basta executarmos a aplicaç�o e temos o nosso exemplo em funcionamento, conforme a Figura 7.

Figura 7. Ligaç�o visual dos componentes.

� claro que para o tratamento avançado desta ligaç�o temos que ir na express�o do componente TBindingsList, mas sem d�vida este Wizard nos traz muita produtividade no desenvolvimentos de telas com v�rios controles interligados.

LiveBindings Wizard

Temos dispon�veis a partir do Delphi XE3 tamb�m o LiveBindings Wizard, onde � poss�vel acess�-lo acionando o bot�o direito do mouse em qualquer componente da tela e escolher a opç�o referida.

Ser� aberta uma tela para ajudar o desenvolvedor a criar a ligaç�o entre os objetos. Essa Wizard facilita muito o desenvolvedor a criar as ligaç�es. Vale lembrar que este � muito sens�vel ao contexto, portanto, dependendo do componente selecionado, mudam as opç�es dispon�veis no Wizard.

Esse Wizard � dividido em duas partes, no lado esquerdo ficam os passos envolvidos no assistente e no lado direito as opç�es dispon�veis ao desenvolvedor naquele momento.

Temos v�rias opç�es de ligaç�es no assistente, como as seguintes:

Ligar um controle a um campo Field;
Ligar um grid a um DataSource;
Ligar a propriedade de um componente � propriedade de outro componente;

Nota: Para acessarmos o Wizard do LiveBindings no Delphi XE3 pelo bot�o direito do mouse devemos mudar uma configuraç�o do IDE, pois este recurso n�o vem habilitado por padr�o. Para habilit�-lo basta acessar Tools>Options>LiveBindings e marcar a opç�o �Display LiveBindings Wizard in rigth-click menu�.

LiveBindings, ClientDataSet e Action Lists

O componente TActionList foi disponibilizado no FireMonkey a partir da vers�o XE3 e junto a ele vieram algumas Actions padr�es do LiveBindings, conforme podemos notar na Figura 8. Estas aç�es s�o semelhantes aquelas que encontramos no componente TBindNavigator e est�o relacionadas �s funç�es do ClientDataSet.

Figura 8. Actions relacionadas � LiveBindings dispon�veis.

Agora vejamos a facilidade de utilizaç�o dos componentes do FireMonkey em conjunto com o LiveBindings e que s�o necess�rias muito poucas linhas de c�digo para fazer a ligaç�o entre os componentes.

Primeiro criamos um novo projeto FireMonkey e adicionamos o componente TClientDataSet, ligando o mesmo a qualquer origem de dados (XML, CDS, SqlDataSet, etc), em seguida, adiciona-se o componente TGrid na tela, acionando sobre ele o bot�o direito do mouse>LiveBindings Wizard.

Ent�o temos a nova janela de Wizard e a opç�o de conectar o Grid a um DataSource. Na guia seguinte optamos por fazer o link ao componente ClientDataSet adicionado anteriormente. Podemos ainda adicionar um DataSourceNavigator e finalizar o Wizard.

Visualizando o formul�rio h� agora novos componentes. O TBindNavigator para navegar/incluir/alterar/excluir registros, note tamb�m que foi criado um TBindDataSource que tem uma funç�o muito semelhante ao DataSource presente na VCL, inclusive ele possui internamente um DataSource e um DataSet para fazer essa junç�o.

Outro componente gerado � o TBindingList que � o componente que liga a nossa grade de dados ao BindSourceDB. Ele cria internamente o objeto TLinkGridToDataSource onde fica armazenado o grid de dados e o DataSource de origem das informaç�es. Atrav�s da propriedade Columns podemos ainda definir quais colunas queremos que sejam exibidas.

Agora adicione um TActionList e uma aç�o TFMXBindNavigateNext atrav�s do Action List Editor e aponte a propriedade DataSource para o nosso BindDataSource j� presente na tela. Para finalizar atribu�mos a propriedade Action do bot�o na aç�o que acabou de ser criada. Executamos a aplicaç�o e vemos que n�o foi necess�ria nenhuma linha de c�digo para fazer toda essa combinaç�o. Podemos usar o bot�o Next para avançarmos no grid. Desta mesma forma poder�amos ter usado qualquer outra operaç�o do ClientDataSet, como Insert, Edit, Delete e etc.

� poss�vel ainda adicionar um Edit e um Label vinculado ao campo Description. Basta acionarmos o LiveBindings Wizard pelo ClientDataSet, escolhermos a opç�o �Link a field to ClientDataSet to a control�, escolher o campo Description e em seguida selecionar o controle que desejamos, no caso TEdit. No �ltimo passo marcamos a opç�o para adicionar um Label. O resultado � o mostrado na Figura 9.

Figura 9. Componentes para ligaç�o do Grid.

Observe agora que foi criada mais uma express�o no nosso TBindingsList, o tipo � TLinkControlToField (Figura 10) e como o nome diz serve para ligarmos um controle de tela a um TField do ClientDataSet.

Figura 10. Express�o de ligaç�o entre TField e Control

Criaç�o de Prot�tipos

Na vers�o XE3 do Delphi tamb�m tivemos a adiç�o de um novo componente chamado TPrototypeBindSource. Sua funç�o � criar prot�tipos de base de dados para testes. Agora n�o somos mais obrigados a criarmos um banco de dados para testar nossa aplicaç�o, nem ligarmos um ClientDataSet a um XML, basta utilizarmos este componente. � extremamente �til para criarmos aplicaç�es de modelo.

Para us�-lo, basta clicar duas vezes e acionar Add New. Ser� apresentada uma janela conforme a Figura 11 onde informamos o nome do campo e tipo do campo. Veja que ele � semelhante � configuraç�o dos TFields do ClientDataSet, por�m, n�o � persistido em nenhum lugar.

Cada um dos campos adicionados pode estar ligado a um Generator que tem a funç�o de gerar dados de teste para o campo, facilitando bastante o desenvolvimento de prot�tipos a aplicativos de demonstraç�o.

Figura 11. Adicionando campos no Prot�tipo.

Agora podemos adicionar Grids, Edits, Labels e atrav�s do LiveBinding Wizard, vincularmos aos campos, conforme podemos observar na Figura 12.

Figura 12. Demonstraç�o do prot�tipo final.

Criando nosso pr�prio Generator

Podemos desenvolver nosso pr�prio gerador de dados. Nesse caso simularemos um gerador de IDs em sequ�ncia. Para isso, devemos criar um novo pacote para o gerador, al�m disso, implementaremos uma classe chamada TIDsGenerator que herdar� da classe TDelegateValueGenerator, classe base para todos os geradores e que possui um m�todo virtual CreateDelegate que precisamos sobrescrever para implementarmos o gerador personalizado. O c�digo da classe � exibido na Listagem 2.

Listagem 2. Classe TIdsGenerator01 unit uIDsGenerator;


  02 
  03 interface
  04 
  05 uses
  06   Data.Bind.ObjectScope, System.Generics.Collections;
  07 
  08 type
  09   TIdsGenerator = class(TDelegateValueGenerator)
  10   protected
  11     function CreateDelegate: TValueGeneratorDelegate; override;
  12   end;
  13 
  14 implementation
  15 
  16 { TDataGenerator }
  17 
  18 function TIdsGenerator.CreateDelegate: TValueGeneratorDelegate;
  19 var
  20   ListaIds: TList<Integer>;
  21   i: Integer;
  22 begin
  23   ListaIds := TList<Integer>.Create;
  24   try
  25     for i := 0 to 50 do
  26       ListaIds.Add(i);
  27     Result := TTypedListValueGeneratorDelegate<Integer>.Create(
                     Options, ListaIds.ToArray);
  28   finally
  29     ListaIds.Free;
  30   end;
  31 end;
   32 initialization
  33   RegisterValueGenerator("Gerador IDs", [ftInteger],
  34     TValueGeneratorDescription.Create(TIdsGenerator, "", 
            "uIDsGenerator"));
  35 finalization
  36   UnRegisterValueGenerator("Gerador IDs", [ftInteger], "");
  37 end.

Para retornarmos os dados usamos a classe TTypedListValueGeneratorDelegate (linha 27) que atrav�s de Generics pode receber qualquer classe. Observe que o segundo par�metro � um TArray de Integer, porque definimos que o tipo retornado seria Integer. Se tiv�ssemos informado String antes de chamar o construtor Create, seria retornado um Array de Strings, se passado um Double seria retornado um Array de Doubles e assim por diante.

Aqui podemos perceber os Generics sendo utilizados para resolver este problema da compatibilidade de tipos (Type Casting), ou seja, pode-se criar uma lista de qualquer classe ou tipo primitivo para retornarmos.

Esta classe deve ser inclu�da em um pacote e, ap�s compila-lo, deve-se realizar sua instalaç�o no IDE para que ele apareça na lista de geradores do componente TPrototypeBindSource, conforme Figura 13.

Figura 13. Gerador de IDs.

Na Figura 14 foi adicionado a um formul�rio um componente grid e vinculado ao gerador com os IDs. Sua ligaç�o foi feita pelo gerador ContactName, padr�o do Delphi.

Figura 14. Gerador em execuç�o.

Investindo um tempo para criaç�o de geradores personalizados fica muito mais f�cil a criaç�o de prot�tipos de aplicaç�o. Poder�amos gerar Datas de Nascimentos aleat�rias, e-mails, CPFs, existem muitos dados de testes que os desenvolvedores utilizam no dia a dia.

Seria interessante ainda termos um pacote com todos os nossos geradores personalizados e podermos utilizar em qualquer aplicaç�o que criemos, lembrando que podemos usar este recurso tanto em aplicaç�es VCL quanto FireMonkey, o que torna isso ainda mais vantajoso.

Componente TBindingsList

Este componente � o grande respons�vel por fazer a ligaç�o entre dois objetos. � nele que fica a express�o de ligaç�o. Se colocarmos um Edit e um Button e realizarmos uma ligaç�o atrav�s do Editor das propriedades Text dos dois componentes, automaticamente ser� adicionado um componente do tipo TBindingsList com um item internamente, conforme mostra a Figura 15.

Figura 15. Propriedades do TBindingsList.

As propriedades mais interessantes de analisarmos neste componente s�o a lista de m�todos e formas de convers�o de dados, atrav�s das propriedades Methods e OutputConverters que nos mostram quais s�o os m�todos e convers�es de dados que podemos usar nas propriedades dos objetos que ligamos.

Se atentarmos aos itens do TBindingsList, veremos que foi criado um link entre os dois componentes. Deste modo, podemos olhar com atenç�o suas propriedades e entendermos como funciona o mecanismo de Binding do Delphi, conforme mostrado na Figura 16 e na Tabela 1, respectivamente.

Figura 16. Propriedades do Link criado.

Tabela 1. Propriedades dos componentes Link.

Observe que aqui vimos somente um tipo de Binding que � o TLinkControlToProperty, mas existem muitos outros, como pode ser visto na Figura 17. Cada um tem uma funç�o espec�fica e que se encaixa em determinadas situaç�es. Devemos evitar o uso dos DB Links, pois foram marcados como obsoletos e s� permanecem por quest�o de retro compatibilidade.

Figura 17. Tipos de Bindings dispon�veis.

Um evento importante contido em todas as express�es � o OnEvalError. Esta recebe como par�metro um objeto do tipo Exception e intercepta qualquer tipo de exceç�o ocorrida em nossa express�o, exibindo-a de forma familiar ao usu�rio, como na Listagem 3.

Listagem 3. Manipulando Exceç�es nas express�es.


  01 procedure TForm1.LinkControlToPropertyTextEvalError(Sender: TObject;
       AException: Exception);
  02 begin
  03   raise Exception.Create("Classe do Erro: " + AException.ClassName + 
         #13#10 + "Mensagem: " + AException.Message);
  04 end;

Ligando componentes n�o visuais no Delphi XE2

Neste exemplo veremos como t�nhamos que fazer a ligaç�o entre objetos de neg�cio e componentes visuais no Delphi XE2. A ideia � ligar um simples TEdit a uma propriedade de uma classe n�o visual.

A interface � muito simples e pode ser visualizada na Figura 18. O c�digo pode ser visualizado na Listagem 4.

Figura 18. Interface do exemplo.

Listagem 4. C�digo completo da Unit.


  01 unit ufrMain;
   
  02 interface
   
  03 uses
  04   FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Edit, 
         System.Classes,
  05   System.Bindings.Expression, System.Bindings.Helper;
   
  06 type
  07   TPessoa = class
  08   strict private
  09     FNome: string;
  10   public
  11     property Nome: string read FNome write FNome;
  12   end;
   
  13   TfrmMain = class(TForm)
  14     Edit1: TEdit;
  15     Button1: TButton;
  16     procedure btnExibirClick(Sender: TObject);
  17     procedure FormDestroy(Sender: TObject);
  18     procedure edtNomeChange(Sender: TObject);
  19     procedure FormCreate(Sender: TObject);
  20   private
  21     FPessoa: TPessoa;
  22   public
  23   end;
   
  24 var
  25   frmMain: TfrmMain;
  26   BindingExpression: TBindingExpression;
   
  27 implementation
  28 {$R *.fmx}
   
  29 procedure TfrmMain.FormCreate(Sender: TObject);
  30 begin
  31   FPessoa := TPessoa.Create;
  32   BindingExpression := TBindings.CreateManagedBinding(
  33     [TBindings.CreateAssociationScope([Associate(Edit1, "Edit")])],
  34     "Edit.Text",
  35     [TBindings.CreateAssociationScope([Associate(FPessoa, "Pessoa")])],
  36     "Pessoa.Nome", nil);
  37 end;
   
  38 procedure TfrmMain.edtNomeChange(Sender: TObject);
  39 begin
  40   TBindings.Notify(Sender, "Text");
  41 end;
   
  42 procedure TfrmMain.btnExibirClick(Sender: TObject);
  43 begin
  44   ShowMessage(FPessoa.Nome);
  45 end;
   
  46 procedure TfrmMain.FormDestroy(Sender: TObject);
  47 begin
  48   FPessoa.Free;
  49 end;
   
  50 end.

Na linha 5 temos a declaraç�o das duas units necess�rias para podermos implementar este exemplo. Criamos a classe TPessoa com uma �nica propriedade: �Nome�, optou-se por criar na mesma unit do formul�rio para facilitar (linhas 06 a 12).

Na linha 26 � definida uma vari�vel de escopo global do tipo TBindingExpression, esta ser� respons�vel por armazenar a express�o que realizar� a ligaç�o dos dados.

Entre as linhas 29 a 37 h� a codificaç�o do evento OnCreate do formul�rio. Primeiramente � instanciada a classe TPessoa (linha 31). Na linha 32 � realizado o mecanismo de Binding entre TPessoa.Nome e Edit.Text.

Para realizar essa associaç�o, � utilizado o m�todo CreateManagedBinding da classe TBindings. O primeiro par�metro � um array de objetos de Origem dos dados. J� o segundo � a express�o de ligaç�o que ser� utilizada para fazer o Binding.

O terceiro par�metro � um Array de objetos de destino, que receber� os dados do LiveBinding, j� o quarto par�metro � a express�o que ser� utilizada para armazenar o valor de sa�da.

A funç�o Associate serve para vincularmos um objeto a uma String, j� que o LiveBinding n�o trabalha diretamente com os objetos e sim com express�es, por isso a necessidade desta associaç�o.

Somente com esta ligaç�o feita no evento OnCreate nosso exemplo ainda n�o funcionaria. Isso porque na vers�o anterior do Delphi n�o havia o recurso de auto notificaç�o, ou seja, o framework n�o gerenciava os objetos relacionados para a atualizaç�o autom�tica. Precisamos ent�o notificar manualmente, ou seja, devemos codificar o evento OnChange do Edit e notificar o componente da mudança (linha 40).

No evento OnClick do bot�o simplesmente � exibido o conte�do da propriedade Nome do objeto FPessoa. No evento OnDestroy objeto FPessoa � liberado da mem�ria.

Como se percebe neste exemplo tudo funcionou, no entanto, tivemos bastante trabalho para fazer as ligaç�es entre os componentes visuais e os objetos. Isso melhorou muito nas novas vers�es do Delphi como veremos a seguir.

Ligando componentes n�o visuais no Delphi XE3 e XE4

A partir do Delphi XE3 foram adicionados novos recursos que vieram nos trazer facilidades para trabalhar com Bindings de componentes n�o visuais.

Primeiramente, vamos criar um novo projeto FireMonkey, e em seguida, implementar uma nova classe chamada TContato, conforme ilustra a Listagem 5. � uma classe muito simples que disp�e de um construtor personalizado para facilitar a populaç�o dos Fields.

Listagem 5. Classe TFuncionario.


  01 unit uContato;
   
  02 interface
   
  03 type
  04   TContato = class
  05   private
  06     FNome: string;
  07     FIdade: Integer;
  08     FEmail: string;
  09   public
  10     constructor Create(Nome: string; Idade: Integer; Salario: Double);
  11     property Nome: string read FNome write FNome;
  12     property Idade: Integer read FIdade write FIdade;
  13     property Email: string read FEmail write FEmail;
  14   end;
   
  15 implementation
   
  16 constructor TFuncionario.Create(Nome: string; Idade: Integer; Email:  
       string);
  17 begin
  18   FNome := Nome;
  19   FIdade := Idade;
  20   FEmail := Email;
  21 end;
   
  22 end.

Como nota-se, o c�digo da Listagem 5 � simples. Entre as linhas 11 e 13 definimos as propriedades p�blicas da nossa classe TContato. Observe que na linha 10 foi definido o construtor. Este foi implementado a partir da linha 16, fazendo com que os atributos da classe recebam os valores diretamente em sua criaç�o.

Finalizada a implementaç�o, o pr�ximo passo � definir os campos da classe anteriormente criada, no componente TDataGeneratorAdapter, atrav�s da propriedade FieldDefs. Basta adicion�-los de acordo com o tipo desejado (Figura 19).

Figura 19. Criando os Fields de acordo com a Classe

Agora adicionamos o componente TAdapterBindSource e ligamos nele o TDataGeneratorAdapter atrav�s da propriedade Adapter. Em seguida ligamos nossos controles de tela (edits) ao nosso Adapter.

Para finalizar a ligaç�o entre nossa classe e o componente TAdapterBindSource, no evento OnCreateAdapter escrevemos o c�digo da Listagem 6.

Listagem 6. Evento OnCreateAdapter Objeto.


  01 procedure TForm2.AdapterBindSource1CreateAdapter(Sender: TObject;
  02   var ABindSourceAdapter: TBindSourceAdapter);
  03 begin
  04   FContato := TContato.Create("Filipe", 25, 
         "filipe.dalepiane@gmail.com");
  05   ABindSourceAdapter := TObjectBindSourceAdapter<TContato>.Create
       (Self, FContato);
  06 end;

Na linha 4 simplesmente � instanciado o objeto da classe TContato atribuindo seus Fields. Na linha 5 usamos a vari�vel ABindSourceAdapter (do par�metro) e define-se o v�nculo entre o TAdapterBindSource e a classe TContato atrav�s da nova inst�ncia de TObjectBindSourceAdapter. Observe que � usado Generics (ver BOX 2) para dizer qual o tipo (TContato) e o objeto (FContato) que deve ser usado para fazer a inicializaç�o. Esta classe pode ser usada para fazer v�nculo de qualquer objeto a qualquer TAdapterBindSource.

Generics

Generics � um recurso presente desde o Delphi 2009 que permite a criaç�o de estruturas ge

n�ricas. Pode-se definir o tipo de uma lista de objetos que ser�o adicionados. Se o objeto adicionado n�o for o especificado, teremos um erro ainda em tempo de compilaç�o, evitando assim erros de TypeCasting que ocorriam em vers�es anteriores do Delphi.

Voc� pode estar se perguntando no momento, e se eu quiser um grid com uma lista de objetos de TContato, sem problemas, basta adicionar outro TAdapterBindSource a atrav�s do pr�prio Wizard, lig�-lo com o componente Grid.

Em seguida, basta configurar novamente o evento OnCreateAdapter como sugere a Listagem 7.

Listagem 7. Evento OnCreateAdapter Lista.


  01 procedure TForm2.AdapterBindSource2CreateAdapter(Sender: TObject;
    var ABindSourceAdapter: TBindSourceAdapter);
  02 begin
  03   FListaContatos := TObjectList<TContato>.Create;
  04   FListaContatos.Add(TContato.Create("Filipe", 25, filipe@gmail.com"));
  05   FListaContatos.Add(TContato.Create("C�ntia", 27, "cintia@gmail.com"));
  06   FListaContatos.Add(TContato.Create("Julio", 32, "julio@gmail.com"));
  07   ABindSourceAdapter := TListBindSourceAdapter<TContato>.Create(Self, 
          FListaContatos);
  08 end;

Observe que a �nica diferença entre as duas listagens � que na primeira � passado um �nico objeto, enquanto na segunda, cria-se uma lista de objetos de TContato atrav�s da classe TObjectList, presente na unit Generics.Collections.

O diagrama da Figura 20 mostra como ficaram as ligaç�es finais da aplicaç�o.

Figura 20. Diagrama final de ligaç�es entre os componentes do formul�rio.

Ao executar a aplicaç�o, � poss�vel verificar o funcionamento tanto de um objeto quanto de uma lista de objetos. A Figura 21 ilustra o resultado final.

Figura 21. Aplicaç�o em funcionamento.

Novo componente TParamsAdapter do Delphi XE4

A mais nova vers�o do Delphi trouxe consigo um novo componente na paleta LiveBindings, o TParamsAdapter. Este componente surgiu para podermos ligar componentes de acesso a dados do DBExpress ao componente TAdapterBindSource.

Como j� abordado, o TAdapterBindSource foi criado para realizar o Binding de qualquer fonte de dados atrav�s de um Adapter.

Anteriormente, na ligaç�o de classes utilizamos o TDataGeneratorAdapter para definir o Binding, j� no TParamsAdapter pode-se vincular qualquer SQLDataSet, SQLQuery, SQLServerMethod e/ou SQLStoreProc.

Ap�s isso, basta liga-lo ao TAdapterBindSource atrav�s da propriedade Adapter e trabalhar normalmente, manipulando o evento OnCreate como feito anteriormente.

Como vimos, h� v�rios tipos de Binding que podem ser usados em nossas aplicaç�es, ligaç�es em componentes, componentes em DataSets, componentes a Objetos e muitos outros tipos. Pode-se ainda estender o framework de modo a implementar o padr�o MVC por exemplo.

O FireMonkey veio para ficar e se quisermos que nossas aplicaç�es tenham interfaces ricas e multiplataforma, devemos dominar o recurso de LiveBinding para desenvolvermos aplicaç�es de qualidade, seguras e �geis.

Confira tamb�m

MVC e Regras de neg�cio

S�rie

Programador Delphi

Guia

Começando no Delphi

Curso

Saiba mais sobre Delphi ;)

Guias de Estudo Delphi:
Aqui voc� encontra os Guias de estudo da linguagem Delphi. Descubra como dominar o Delphi, desde o recurso mais b�sico ao mais avançado. Escolha o seu!

LiveBindings: a evolu��o no Delphi

Através de exemplos comparativos entre as versões do Delphi, é mostrado como o recurso de Live Bindings amadureceu.