当不使用应用程序时发送通知？

Question

我的一个客户的问题是，如果在一定时间之前没有进入工作时间，他们是否可以在员工应用程序中发送推送通知。

是否可以为Android和iOS应用程序创建服务，该服务是否每小时都在数据库中输入，并发送推送通知？

我不知道从哪里开始，以及是否可能。但是，如果其他应用程序可以做到，那么此应用程序也应该有可能。

Answer 1

正如@silverwarior所暗示的那样，我创建了两个代码，当应用程序进入后台时，当应用程序转到前景时，我会清理tnotificationcenter。我已经使用了Appevent函数来触发EnterDbackground和willbecomeforground。

令人振奋的代码看起来像这样：

function TForm1.AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
begin
 case AAppEvent of
     TApplicationEvent.EnteredBackground:
      begin


         Gethourregistration(FEmployeeNr,NOW);
          if dm.MthourregistrationControl.RecordCount<1 then
            begin
           var Notification := NotificationCenter1.CreateNotification;
            try
            Notification.Name := 'message1';
            Notification.AlertBody := 'You have not yet entered todays hours!';
                Notification.FireDate :=Date+encodetime(19,0,0,0);

            { Send notification in Notification Center }
            NotificationCenter1.ScheduleNotification(Notification);


              Notification.Name := 'message2';
            Notification.AlertBody := 'You have not yet entered todays hours!';
                Notification.FireDate :=Date+encodetime(21,0,0,0);

            { Send notification in Notification Center }
            NotificationCenter1.ScheduleNotification(Notification);   

            finally
              Notification.Free;
            end;


          end;

      end;
      TApplicationEvent.WillBecomeForeground:
        Notificationcenter1.CancelAll;

    end;
end;

我使用ongreate事件征求许可来发送通知并触发稳固的事件。

procedure TForm1.FormCreate(Sender: TObject);
var
AppEventSvc: IFMXApplicationEventService;

begin
  if NotificationCenter1.AuthorizationStatus <> TAuthorizationStatus.Authorized then
  begin
    FPendingAction := Action;
    NotificationCenter1.RequestPermission;
  end;
    if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(AppEventSvc)) then
    begin
        AppEventSvc.SetApplicationEventHandler(AppEvent);
    end;
end;

我已经测试了此代码，对我来说，这很好。