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

2017-06-26 19:23:44来源:CSDN作者:tanqth人点击

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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台