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;