Question

当Windows程序终止时，它会调用OnClose，OnDestroy和析构函数Destroy等事件处理程序。当我想保存一些INI设置时，这些是要去的地方。我为所有这些事件编写了事件处理程序，但是当我终止程序时它们不会被处理。

当Android程序终止时，是否有人知道我应该将代码放在哪里？我强烈怀疑这也适用于iOS。

更新

Johan的答案也适用于Android，虽然现实比他的例子稍微复杂一些。好消息是它迫使我进入TApplicationEvents，这是我从未听说过的。按照Embarcadero没有记录的定制，但FMX.Platform的代码足够有趣。定义了三个似乎感兴趣的几个ApplicationEvent：aeEnteredBackground，aeWillBecomeInactive和aeWillTerminate。由于他们没有记录，我推测他们做了他们的名字所建议的：表明已达到背景状态，它将开始进入背景并且它将（非常）很快终止。我修改了约翰的代码如下：

  function TForm2.AppEvent (AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;
  begin
  // do something here for when the app is sent to background
     case AAppEvent of
     (1)   TApplicationEvent.aeEnteredBackground:  ;// Something for OnDeactivated
                                                    // which does not exist
     (2)   TApplicationEvent.aeWillBecomeInactive: if Assigned (OnDeactivate)
                                                      then OnDeactivate (Self);
     (3)   TApplicationEvent.aeWillTerminate:      if Assigned (OnClose)
                                                      then OnClose (Self);
     end; // case
     Result := True; // let iOS/Android know it worked...
  end; // AppEvent //

当我用调试器标记事件1,2和3实验时显示如下：强制应用程序到后台生成一系列事件：2,1,1,2。一旦我得到2,2,1 ，1,2,2。如果您的代码应执行一次，请采取预防措施。但更好的是：aeWillTerminate执行它所宣传的内容：它在应用程序终止时发送信号。这样做的时间可能很短暂，我将测试是否足以编写TIniFile。

我在Win32中尝试了这个代码，但这不起作用。 AppEvent未被触发。这迫使我立即在平板电脑上测试代码，这需要一些时间。可惜。

Answer 1

在iOS应用程序中很少关闭，但进入后台模式这就是OnClose事件不会触发的原因。我怀疑通过点击任务管理器中的'x'来杀死应用程序实际上强行终止了应用程序，但没有测试过。 无论如何，这个用例太少了，无法编码。
在Android中，工作方式几乎相同。

幸运的是，Anders Ohlsson写了一篇关于这个主题的非常翔实的博文，请看这里：http://blogs.embarcadero.com/ao/2013/05/01/39450。
以下帖子以此为基础，以捕获实际的背景https://forums.embarcadero.com/message.jspa?messageID=558241

诀窍是注册应用程序事件。请参阅：http://docwiki.embarcadero.com/Libraries/XE5/en/FMX.Platform.TApplicationEvent

iOS的一些示例代码没有Android方便，抱歉从上述论坛复制：

unit Unit1;

interface

uses
  System.SysUtils, System.Classes, FMX.Forms, FMX.Platform;

type
TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
public
  function AppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;
end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

function TForm1.AppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;
begin
  if AAppEvent = TApplicationEvent.aeEnteredBackground then begin
    // do something here for when the app is sent to background
  end;
  Result := True; // let iOS know it worked...
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService, IInterface(AppEventSvc)) then
    AppEventSvc.SetApplicationEventHandler(AppEvent);
end;

end.

显然，这些事件应该在FMX.Platform.TApplication中触发了合理的事件处理程序，但它们没有。 http://docwiki.embarcadero.com/Libraries/XE5/en/FMX.Forms.TApplication_Events
也许您应该扩展TApplication来添加这些事件处理程序，以便保持理智我建议提交QA报告。

这是对扩展的TApplication类的建议。

type
  TnotifyApplication = class(FMX.Platfrom.TApplication) 
  private
    FOnStop: TnotifyEvent;
  protected
    procedure AppEvent(AAppEvent: TApplicationEvent; AContext: TObject): boolean;
    procedure SetOnStop(value: TNotifyEvent);
    procedure DoOnStop;
  public
    property OnStop: TNotifyEvent read FOnStop write SetOnStop;
  end;

implementation

procedure TNotifyApplication.SetOnStop(value: TNotifyEvent);
begin
  if Assigned(value) then begin  
    //register for the notification to call AppEvent
  end else begin
    //
  end;
end;

procedure TNotifyApplication.DoOnStop;
begin
  if Assigned(FOnStop) then FOnStop(self);
end;

procedure TNotifyApplication.AppEvent(AAppEvent: TApplicationEvent; AContext: TObject) : Boolean;  
begin
  //call the relevant do... Call depending in the exact event.

Answer 2

当用户离开您的活动（屏幕）时，系统会调用onStop（）来停止活动。如果用户在活动停止时返回，系统将调用onRestart（），然后快速调用onStart（）和onResume（）。因此，建议编写代码并将其放在onStop（）方法的主体中。

http://developer.android.com/images/training/basics/basic-lifecycle-stopped.png

如何检测Android中程序的终止？

2 个答案: