delphi xe 之路（21）通知推送

今天教大家使用的是通知(Notification)功能，在Delphi XE6很貼心的也將通知的功能封裝成元件，只要簡單的設定屬性就可以使用了。我們以簡單的篇幅教大家快速使用程式的通知功能，在後面我們會以比較大的篇幅放在Google Cloud Messaging(GCM)搭配Kinvey的BAAS服務(Backend as a Service)實做出推播通知(Push Notification)功能。

通知Notification

在Delphi XE6使用通知功能相當簡單，只要在表單上放置TNotificationCenter(通知中心)元件就可以了！接著顯示通知的方式也相當簡單。

一、馬上出現通知訊息

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Button1Click(Sender: TObject); var    MyNotification : TNotification;   // 宣告一個TNotification begin    MyNotification := NotificationCenter1.CreateNotification;    Try      MyNotification.AlertBody :=  '馬上顯示通知訊息' ;   // 訊息內容      NotificationCenter1.PresentNotification(MyNotification);    Finally      MyNotification.DisposeOf;    End; end;

二、排程十秒後顯示通知

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure TForm1.Button2Click(Sender: TObject); var    MyNotification : TNotification; begin    MyNotification := NotificationCenter1.CreateNotification;    Try      // 給排程的通知訊息名稱      MyNotification.Name :=  'ScheduleNotification' ;      MyNotification.AlertBody :=  '十秒顯示通知訊息' ;      // 設定時間是現在加上十秒      MyNotification.FireDate := Now + EncodeTime( 0 , 0 , 10 , 0 );      NotificationCenter1.ScheduleNotification(MyNotification);    Finally      MyNotification.DisposeOf;    End; end;

三、取消排程訊息

1 2 3 4 5

procedure TForm1.Button3Click(Sender: TObject); begin    // 取消通知訊息，參數內需對應 Notification.Name    NotificationCenter1.CancelNotification( 'ScheduleNotification' ); end;