PHSYS - Wiki

A função NewPHNotificacoes cria e retorna uma nova instância de um objeto responsável pelo envio e gerenciamento de notificações.

Sintaxe

Function NewPHNotificacoes: TPHNotificacoes;

Exemplo

 procedure Notificar;
   var Notificacao:TPHNotificacoes; 
 begin
   Notificacao := NewPHNotificacoes;
   try          
     Notificacao.Titulo := 'Teste script';
     Notificacao.Mensagem := 'Teste Mensagem';
     Notificacao.Usuarios := '1,3';
     Notificacao.Enviar;
   finally
     Notificacao.Free;
   end;  
 end;
 
 begin                                          
   Notificar;                                                     
 end.

 procedure ReenviarNotificacao;
   var Notificacao:TPHNotificacoes;        
 begin
   Notificacao := NewPHNotificacoes;
   try          
     Notificacao.ID := 19;     
     Notificacao.Reenviar;
   finally
     Notificacao.Free;
   end;  
 end;
  
 begin           
   ReenviarNotificacao;                                                       
 end.