Mudanças entre as edições de "NewPHNotificacoes"
(Criou página com '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 NewPHNoti...') |
(→Exemplos) |
||
| Linha 4: | Linha 4: | ||
Function NewPHNotificacoes: TPHNotificacoes; | 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. | ||
Edição atual tal como às 08h40min de 26 de fevereiro de 2025
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.
