Delphi移动应用中开发IOS与Android本地通知

Delphi移动应用中开发IOS与Android本地通知

1、说明

本案例仅使用Delphi自身控件“TNotificationCenter”实现，为Delphi移动应用（APP）开发者提供学习帮助。
适用于Delphi XE8及以上版本中使用TNotificationCenter控件完成Android及IOS的本地通知功能，是《Delphi XE8 iOS与Android移动应用开发(APP开发)教程[完整中文版]》书中第二十章内容（详细说明请参考本书第二十章）。

本地通知可配合服务端程序衍生开发自己的移动端消息推送功能。

---

《Delphi XE8 iOS与Android移动应用开发(APP开发)教程[完整中文版]》适合XE8及以上版本，需要的朋友可了解详情：https://item.taobao.com/item.htm?id=536584650957

---

2、Demo下载

完整Demo代码已上传到CSDN资源中心，点击下载：http://download.csdn.net/detail/tanqth/9880793

3、主要代码

procedure TForm1.Button1Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  // 创建 TNotification实例
  MyNotification := NotificationCenter1.CreateNotification;
  try
    // 设置图标显示通知数
    MyNotification.Number := 18;
    // 设置通知提示信息
    MyNotification.AlertBody := '使用Delphi编写的通知信息 ! ';
    // 注意: 最后必须将通知数发送到通知中心，才能完成显示.
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'MyNotification';
    MyNotification.AlertBody := '使用Delphi编写的定时通知信息 !';
    // 设定10秒定时
    MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);
    // 向通知中心发送通知
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Title := 'MyNotification';
    MyNotification.AlertBody := '这是每分钟重复的通知!';
    // 设定10秒定时
    MyNotification.FireDate := Now + EncodeTime(0, 0, 10, 0);
    // 设置每分钱重复通知
    MyNotification.RepeatInterval := TRepeatInterval.Minute;
    // 向通知中心发送通知
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.Free;
  end;

end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  //取消通知
  NotificationCenter1.CancelNotification('MyNotification');
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'MyNotification';
    MyNotification.AlertBody := '使用Delphi编写的及时通知信息 !';
    // 设置图标显示数 (iOS) 通知显示数 (Android)
    MyNotification.Number := 18;
    MyNotification.EnableSound := False;
    // 向通知中心发送通知
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;

end;

procedure TForm1.Button6Click(Sender: TObject);
var
  MyNotification: TNotification;
begin
  MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'MyNotification';
    MyNotification.AlertBody := '使用Delphi编写的通知信息! ';
    MyNotification.Number := 2;
    //按钮显示内容
    MyNotification.AlertAction := '点我';
    MyNotification.HasAction := True;
    MyNotification.FireDate := Now + EncodeTime(0, 0, 02, 0);
    NotificationCenter1.ScheduleNotification(MyNotification);
  finally
    MyNotification.DisposeOf;
  end;

end;

procedure TForm1.NotificationCenter1ReceiveLocalNotification(Sender: TObject;
  ANotification: TNotification);
begin
  ShowMessage('这是【' + ANotification.Name + '】通知测试。');
end;