Push Notifications no Delphi com Firebird

Notificaç�es s�o atualmente uma das melhores maneiras de interagir com os usu�rios. Seu uso vem se popularizando principalmente em sites e apps mobile, que utilizam push notifications para informar o usu�rio sobre algum acontecimento.

Uma das formas mais comuns de implementaç�o desse tipo de recurso � o uso de rotinas que ficam varrendo tabelas para saber se existe alguma informaç�o nova. O problema dessa abordagem � o custo computacional, pois novas requisiç�es ao banco de dados s�o feitas com muita frequ�ncia. O Firebird, no entanto, possui um recurso chamado POST_EVENT que, em conjunto com o componente TFDEventAlerter da biblioteca FireDAC no Delphi, permite enviar notificaç�es para a aplicaç�o quando algum evento � disparado no banco de dados.

Saiba mais sobre a biblioteca FireDAC no Delphi

Push Notifications

Push Notifications s�o comumente encontradas em aplicaç�es mobile e web e t�m o prop�sito de enviar alertas aos usu�rios quando algum evento ocorre. Nesse formato, ao inv�s do cliente solicitar o conte�do ao servidor por meio de requisiç�es, � o servidor que envia uma notificaç�o para o cliente, da� o nome "push", do ingl�s "empurrar".

Imagine, por exemplo, que sua aplicaç�o precisa informar o usu�rio sobre uma nova nota fiscal que foi cadastrada, uma venda realizada ou a revis�o de um conte�do que ele aguardava. Ao utilizarmos notificaç�es o usu�rio n�o precisar� buscar por essas informaç�es, pois elas chegar�o at� ele automaticamente.

Firebird e o POST_EVENT

POST_EVENT � um recurso do Firebird que permite notificar os clientes sobre mudanças de dados nos registros do banco. Sua implementaç�o � bem simples, bastando adicionar a instruç�o POST_EVENT no trigger do evento desejado. Por exemplo, se desejar enviar um alerta para os usu�rios sempre que um registro for inserido em uma tabela, basta adicionar um trigger para o evento AFTER INSERT com o comando POST_EVENT �<NomeDoEvento>� . Na Listagem 1 pode ser visto um exemplo de implementaç�o de um trigger para a operaç�o de INSERT.

Atente-se aqui ao nome do evento, pois ele ser� importante para que se possa determinar, na aplicaç�o cliente, quais ser�o os eventos que o usu�rio ir� monitorar.

Listagem 1. Instruç�o de criaç�o de trigger no after insert


        CREATE TRIGGER ClienteAdicionado FOR Cliente
        ACTIVE AFTER INSERT POSITION 0
        AS
        BEGIN
        POST_EVENT 'Cliente_Cadastrado';
        END

Linha 1: criamos o trigger ClienteAdicionado para a tabela Cliente;
Linha 2: definimos que o trigger ser� disparado ap�s a inserç�o de um novo registro (AFTER INSERT);
Linha 5: executamos a funç�o POST_EVENT, passando um identificador (nome do evento) como par�metro.

Saiba mais sobre triggers no Firebird

Monitorando eventos no Delphi

Para monitorar os eventos disparados pelo banco no Delphi, crie uma conex�o com o Firebird em seu projeto, caso n�o exista, e adicione o componente TFDEventAlerter, ligando-o ao componente de conex�o. Cada evento que se deseja monitorar deve ser adicionado a uma lista de monitoramento, que est� dispon�vel na propriedade Names do TFDEventAlerter. Neste exemplo temos apenas o exemplo Cliente_Cadastrado, que � o identificador do evento enviado pelo trigger visto anteriormente.

Em seguida, adicione um m�todo para tratar o evento OnAlert do TFDEventAlert. OnAlert ser� disparado sempre que um evento cujo nome esteja na lista de Names do componente for disparado. Para saber qual evento est� sendo recebido, utilize o par�metro AEventName, como pode ser visto na Listagem 2. Isso permitir� executar aç�es espec�ficas, a partir de condiç�es, que definir�o como dever� ocorrer a interaç�o com o usu�rio para aquele evento espec�fico.

Listagem 2. Testando o evento recebido no Delphi


 procedure TForm1.FDEventAlerterAlert(ASender: TFDCustomEventAlerter;
  const AEventName: String; const AArgument: Variant); 
 Begin
 	If (AEventName = 'Cliente_Cadastrado') then 
 		Begin
			//<Executa tratamento para novo cliente cadastrado>
			ShowMessage('Um novo cliente foi cadastrado');
  		End
 End;

Limitaç�es

Ao disparar um evento, o Firebird o envia para todos os clientes conectados. Assim, caber� a cada um avaliar se deve tratar ou n�o a mensagem recebida. Esse comportamento pode dificultar, em parte, a forma como as notificaç�es s�o enviadas e recebidas, pois ser� preciso adicionar ao comando POST_EVENT argumentos que identifiquem o cliente a quem se destina a notificaç�o.

Outra limitaç�o que deve ser considerada � que, caso as notificaç�es sejam enviadas enquanto o cliente estiver desconectado, elas ser�o perdidas. Para superar essa limitaç�o, uma tabela de eventos poderia ser utilizada de forma auxiliar, armazenando informaç�es sobre os eventos disparados. � aplicaç�o cliente, por sua vez, caber� alterar o registro da tabela sempre que uma notificaç�o for lida. Assim, caso o usu�rio acesse o sistema e algum registro n�o esteja marcado como �lido�, ele poder� ser notificado sobre as mensagens pendentes.

Push Notifications no Delphi com Firebird

Este artigo apresentará uma forma simples de implementar push notifications no Delphi utilizando recursos do Firebird.