delphi/firemonkey：如何在Activity中实现回调？

Question

我需要实现这个功能：

  [JavaSignature('android/app/Activity')]
  JActivity = interface(JContextThemeWrapper)
    ...  
    procedure onRequestPermissionsResult(requestCode: Integer; permissions: TJavaObjectArray<JString>; grantResults: TJavaArray<Integer>); cdecl;
    ....

但是怎么做呢？这个函数只是接收事件，所以我必须重写它，但我不知道怎么做。

Answer 1

要在作为 FireMonkey 应用程序基础的 Activity 中实现回调，您必须编写一些 Java 代码来继承 FireMonkey 自己的本机活动子类。

这是相当乏味且充满问题的，并且需要各种命令行“猴子业务”，但我已经为不同的回调编写了流程，onNewIntent in my Delphi XE7 article on supporting NFC tags（Delphi 10 Seattle 完成了这项工作在没有 Java 活动子类化的情况下可行）。我还为the first version of my article on launching Android activities 中的onActivityResult 回调编写了 Delphi XE5 的流程（Delphi XE6 使这项工作成为可能，无需 Java 活动子类化）。

请务必按照这些文章随附的示例更新您的 Android 清单模板文件，以引用新的自定义活动子类，如下所示：

<activity android:name="com.blong.test.NativeActivitySubclass"
          ...

祝你好运。它相当混乱，并且使调试非常困难。