Android: OnNewIntent implementieren

[DeddyH]

Bei mir geht der Link zwar, aber es ist ja recht schnell beschrieben: zunächst die Java-Datei.

Code:

package de.deddyh.someactivity;

import android.os.Bundle;
import android.content.Intent;

public class MyActivity extends com.embarcadero.firemonkey.FMXNativeActivity {

  static final String TAG = "MyIntent";

   @Override
   protected void onNewIntent(Intent intent) {
      super.onNewIntent(intent);
      onMyIntent(intent);
   }

   public native void onMyIntent(Intent intent);
}

Die habe ich kompiliert und zu einer Jar-Bibliothek (de.deddyh.someactivity.MyActivity.jar) verschnürt, hat nach einigen Anläufen funktioniert. Diese Bibliothek habe ich dann dem Projekt hinzugefügt. Anschließend wurde das XML-Template dahingehend geändert, dass die Activity auf meine umgebogen wird (Auszug).

Code:

        <!-- Our activity is a subclass of the built-in NativeActivity framework class.
             This will take care of integrating with our NDK code. -->
        <activity android:name="de.deddyh.someactivity.MyActivity"
                android:label="%activityLabel%"
                android:configChanges="orientation|keyboard|keyboardHidden"
                android:launchMode="singleTask">

So, nun muss der Delphi-Code auch noch entsprechend erweitert werden (auch Auszug).

Delphi-Quellcode:

type
  TOnMyIntent = procedure(Env: PJNIEnv; This: JNIObject; Intent: JNIObject); cdecl;
  
procedure RegisterMyIntent(OnMyIntent: TOnMyIntent); 

procedure RegisterMyIntent(OnMyIntent: TOnMyIntent);
var
  JniEnv: PJNIEnv;
  ActivityClass: JNIClass;
  NativeMethod: JNINativeMethod;
begin
    NativeMethod.Name := 'onMyIntent';
    NativeMethod.Signature := '(Landroid/content/Intent;)V';
    NativeMethod.FnPtr := @OnMyIntent;

    JniEnv := TJNIResolver.GetJNIEnv;
    ActivityClass := JniEnv^.GetObjectClass(JniEnv, PANativeActivity(System.DelphiActivity).clazz);
    JniEnv^.RegisterNatives(JniEnv, ActivityClass, @NativeMethod, 1);
    JniEnv^.DeleteLocalRef(JniEnv, ActivityClass);
end;

procedure MyIntent(Env: PJNIEnv; This: JNIObject; Intent: JNIObject); cdecl;
begin
  TThread.Queue(nil,
    procedure
    begin
      Form1.OnNewIntent(TJIntent.Wrap(Intent));
    end);
end; 

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterMyIntent(MyIntent);
end;

procedure TForm1.OnNewIntent(Intent: JIntent);
begin
  SharedActivity.setIntent(Intent);
  ShowMessage('New Intent');
end;

Der Zugriff auf die globale Form-Variable gefällt mir zwar auch nicht, aber zuerst muss es erst einmal funktionieren, bevor man sich da etwas anderes überlegt.
Zum Schluss noch der auslösende Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Intent: JIntent;
begin
  Intent := TJIntent.JavaClass.init;
  Intent.setAction
    (StringToJString
    ('com.motorolasolutions.emdk.datawedge.api.ACTION_SOFTSCANTRIGGER'));
  Intent.putExtra
    (StringToJString
    ('com.motorolasolutions.emdk.datawedge.api.EXTRA_PARAMETER'),
    StringToJString('TOGGLE_SCANNING'));
  SharedActivity.sendBroadcast(Intent);
end;

Prinzipiell funktioniert das, nur wird eben das OnNewIntent nicht ausgelöst.

[edit] Nachtrag: eine Fummellösung mit einem Edit, das sich neben der Form befindet, den Fokus hat und per Timer "überwacht" wird, funktioniert zwar prinzipiell, ist aber mehr als unschön, alleine schon deshalb, weil die virtuelle Tastatur natürlich hochklappt und man nicht sieht, wieso eigentlich. [/edit]