zoukankan      html  css  js  c++  java
  • delphi IOS 通知 TNotification

    delphi  IOS 通知 TNotification

    http://blogs.embarcadero.com/ao/2013/05/01/39450 

    TNotification

    http://docwiki.embarcadero.com/CodeExamples/Seattle/en/FMX.Notification.Mac_%28Delphi%29

    http://docwiki.embarcadero.com/RADStudio/Seattle/en/Mobile_Tutorial:_Using_Notifications_%28iOS_and_Android%29

    unit Unit1;
    
    interface
    
    uses
      System.SysUtils, System.Classes, FMX.Forms, FMX.Platform;
    
    type
    
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.fmx}
    
    uses
      FMX.Notification;
    
    procedure SendNotification;
    var
      NotificationService: IFMXNotificationCenter;
      Notification: TNotification;
    begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXNotificationCenter) then
        NotificationService := TPlatformServices.Current.GetPlatformService(IFMXNotificationCenter) as IFMXNotificationCenter;
    
      if Assigned(NotificationService) then begin
        Notification := TNotification.Create;
        try
          Notification.Name := 'MyLocalNotification';
          Notification.AlertBody := 'Hello from the Delphi XE4 iOS app that you used 5 seconds ago!';
          Notification.FireDate := Now + EncodeTime(0,0,5,0);
          NotificationService.ScheduleNotification(Notification);
        finally
          Notification.DisposeOf;
        end;
      end
    end;
    
    function TForm1.AppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;
    begin
      if AAppEvent = TApplicationEvent.aeEnteredBackground then
        SendNotification;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    var
      AppEventSvc: IFMXApplicationEventService;
    begin
      if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(AppEventSvc)) then
        AppEventSvc.SetApplicationEventHandler(AppEvent);
    end;
    
    end.

     TNotification

    delphi

    Notification:= notificationcenter1.createnotification;

    c++

    TNotification *not=NotificationCenter1->createNotification();

  • 相关阅读:
    CentOS7-Jenkins安装与配置
    jQuery-Ajax H5无刷新分页
    PHP使用MongoDB(CRUD)
    PHP使用Solr(CRUD)
    yum报错:One of the configured repositories failed (CentOS-7
    maevn的nexus私库搭建
    如何分析用户的行为:5个用户分类指标,3个用户分析的重点指标
    数据分析不落地?一个案例教会你!
    数仓建设全流程(附PPT和视频)
    干货 | 一文读懂数据分析
  • 原文地址:https://www.cnblogs.com/cb168/p/5112892.html
Copyright © 2011-2022 走看看