delphi 10 seattle 安卓服务开发(一)-阿里云开发者社区

delphi 10 seattle 安卓服务开发(一)

2015-09-05 1821

版权

本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。

简介： 从delphi 开始支持安卓的开发开始，安卓service 开发一直都是delphier 绕不过去的坎，以前也有开发service 的方法，但是都是手工处理启动文件，而且要修改很多东西，基本上成功的概率很低。

从delphi 开始支持安卓的开发开始，安卓service 开发一直都是delphier 绕不过去的坎，

以前也有开发service 的方法，但是都是手工处理启动文件，而且要修改很多东西，基本上成功

的概率很低。

delphi 10 seattle(这个名字很特殊，与win10 一样，直接跳过了9) 终于官方支持安卓service 开发了，

不知道现在现在开发安卓service 是不是很简单？那么就让我们一探究竟。

首先，我们开启已经扁平的不能再扁平delphi 10, 选择建立一个其他项目。出现下图：

选择第一个绿色机器人(不用想，都是android 的东西)，点确认。进入下一图：

选择服务类型，不同的类型功能不太一样，我在以后再介绍，今天先选第一个，从最简单的开始。

点OK 后就生成一个工程。

我们把工程名改成我们喜欢的名字，然后单独保存到一个目录（记住，是单独保存到一个目录，主要的话要说几遍来着？）。

注意名字。

然后放置一个控件

uses
  Androidapi.JNI.App;

function TAndroidServiceDM.AndroidServiceStartCommand(const Sender: TObject;
  const Intent: JIntent; Flags, StartId: Integer): Integer;
begin
   LThread := TThread.CreateAnonymousThread(procedure

    begin
       while true  do
       begin
          sleep(10000);
          DoNotification;
       end;
    end);
  LThread.FreeOnTerminate := False;
   LThread.Start;
   Result := TJService.JavaClass.START_STICKY; //   保持服务运行
end;

 procedure TAndroidServiceDM.DoNotification;
 var
  MyNotification: TNotification;
begin
MyNotification := NotificationCenter1.CreateNotification;
  try
    MyNotification.Name := 'xalion';
    MyNotification.Title := '时间到了'+formatdatetime('yyyy-mm-dd hh:nn:sss',now);
    MyNotification.AlertBody := '懒人都要起床了';
    MyNotification.FireDate:=now;
    NotificationCenter1.PresentNotification(MyNotification);
  finally
    MyNotification.Free;
  end;

OK, 点buider 工程，肯定不是运行了。因为他是一个so, 肯定跑不起。

现在我们建立一个标准的主程序，当然是FMX 得了，如果你要建立VCL 的应用的话，那我建议你去看一下精神病科医生。

前面说了，一定要保存到另外一个目录。

窗口如下

并输入以下代码

type
  Tmainf = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    NotificationCenter1: TNotificationCenter;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure NotificationCenter1ReceiveLocalNotification(Sender: TObject;
      ANotification: TNotification);
  private
    { Private declarations }
    FService: TLocalServiceConnection;
  public
    { Public declarations }
  end;

var
  mainf: Tmainf;

implementation

{$R *.fmx}

procedure Tmainf.Button1Click(Sender: TObject);
begin
   Fservice:= TLocalServiceConnection.Create;
   FService.StartService('xalionservice');
end;

procedure Tmainf.NotificationCenter1ReceiveLocalNotification(Sender: TObject;
  ANotification: TNotification);
begin
   TThread.Queue(nil, procedure
  begin
   memo1.Lines.Add( ANotification.AlertBody);

  end);
end;