AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Android: OnNewIntent implementieren

Ein Thema von DeddyH · begonnen am 21. Jul 2015 · letzter Beitrag vom 24. Mär 2016
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#1

Android: OnNewIntent implementieren

  Alt 21. Jul 2015, 09:55
Nachdem ich mit der EMDK-API nicht weiterkomme, versuche ich es doch noch einmal über den Intent-Weg. Mittlerweile habe ich es hinbekommen, dass die App nicht mehr direkt nach dem Start abschmiert, allerdings bekomme ich das gewünschte Ereignis OnNewIntent immer noch nicht mit. Ich habe mich an diese Anweisung gehalten, scheinbar funktioniert das so aber nur mit XE 7. Zum Hintergrund: wenn ich per Intent einen Scan auslöse, muss dieser anscheinend zwingend als neuer Intent per Broadcast verschickt werden, sonst passiert nichts. In der Beispielanwendung für Android Studio ist das auch so, nur haben die eben das Event zur Verfügung. Hat schon jemand diese Vorgehensweise, die FMX-Activity entsprechend zu erweitern, unter XE 8 erfolgreich hinbekommen? Für den einen oder anderen Tipp wäre ich sehr dankbar, ich sitze nun schon seit gestern morgen an diesem Mist und komme auf keinen grünen Zweig
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#2

AW: Android: OnNewIntent implementieren

  Alt 21. Jul 2015, 11:11
Da der Link auf die Anweisung aktuell nicht aufgelöst werden kann, fehlt jetzt natürlich eine Menge an Informationen. Ich stochere daher mal im Trüben.
  • Machst du Änderungen am AndroidManifest Template?
  • Wie sieht dein Ausgabepfad für das Projekt aus?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#3

AW: Android: OnNewIntent implementieren

  Alt 21. Jul 2015, 11:34
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (21. Jul 2015 um 11:49 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#4

AW: Android: OnNewIntent implementieren

  Alt 21. Jul 2015, 12:03
Die Frage nach dem Ausgabepfad hatte schon eine Bedeutung: In XE8 gibt es einen Fehler, der das AndroidManifest.Template immer aus dem Verzeichnis zwei Stufen über dem Ausgabepfad nimmt - im Gegensatz zu der Beschreibung, die das Projektverzeichnis dafür nennt. Solange dein Ausgabepfad dem Standard ".\$(Plattform)\$(Config)" entspricht funktioniert das. Andernfalls gelangen deine Änderungen im Template nicht in die tatsächliche Manifest-Datei.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
 
Delphi 12 Athens
 
#5

AW: Android: OnNewIntent implementieren

  Alt 21. Jul 2015, 12:07
Gerade schnell nachgeschaut, es ist .\$(Platform)\$(Config), daran wird es also wohl nicht liegen. Trotzdem Danke für den Tipp, es kann ja immer mal etwas in der Richtung schiefgehen.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
microtronx

Registriert seit: 8. Mär 2005
Ort: Tapfheim
55 Beiträge
 
Delphi 2010 Enterprise
 
#6

AW: Android: OnNewIntent implementieren

  Alt 23. Mär 2016, 11:51
Für alle die Daten vom Scanner per Intent abrufen wollen:

1.)
Ich verwende diesen Broadcastreceiver: brsatalay.blogspot.com.tr/2014/10/delphi-android-broadcast-receiver.html
den ich wie folgt aktiviere (einmalig):

Delphi-Quellcode:
mxBreceiver.RegisterReceive;
mxBreceiver.Add('org.mein.intent.name');
die Komponente hat einen onIntent Event, den ich wie folgt definiert habe:

Delphi-Quellcode:
procedure TmxBCD.mxBreceiverReceive(Context: JContext; Intent: JIntent);
var
  vInput:String;
begin
  if ansisametext(JStringToString(intent.getAction), 'org.mein.intent.name') then begin
    // jetzt haben wir etwas erhalten
    vInput:=JStringToString(intent.getStringExtra(Stri ngToJString(DATAWEDGE_DATA_STRING)));
    vInput:=trim(vInput);
    dolog('*receive*'+vinput+'*');

    // jetzt prüfen, ist das was angekommen ist eine Funktion oder muss ich ein TExtfeld füllen?
  end else begin
    doLog('*unknown_action*'+JStringToString(Intent.ge tAction)+'*');
  end;
end;
Damit das ganze funktioniert musst Du die androidmanifest xml Datei in deinem Projektverzeichniss wie folgt erweitern:

Code:
...
<activity android:name="com.embarcadero.firemonkey.FMXNative Activity"
android:label="%activityLabel%"
android:configChanges="orientation|keyboard|keyboa rdHidden|screenSize"
android:launchMode="singleTask">
<!-- Tell NativeActivity the name of our .so -->
<meta-data android:name="android.app.lib_name"
android:value="%libNameValue%" />
<intent-filter>
<action android:name="android.intent.action.MAIN" />
<action android:name="org.mein.intent.name" /> <!-- HIER die Erweiterung, Rest so belassen -->
<category android:name="android.intent.category.LAUNCHER" />
</intent-filter>
</activity>
...
So nun zum Problem bei Datawedge, in Datawedge ein Profil anlegen und nur folgendes aktivieren:

1. bei Verbundene Anwendung wählst Du deine app aus
2. Barcode-Eingabe = Aktiviert
3. MSR Eingabe = Aktiviert
4. Intent Ausgabe = Aktiviert
4.1 Intent-Aktion = org.mein.intent.name
4.2 Intent-Kategorie = LEER LASSEN, nichts eintragen, ist ein Bug von Datawedge
4.3 Intent-Übertragung = Intent Senden

Das wars, bei mir klappt es jetzt hervorragend. Mit dem Edit-Feld hatte ich so meine Probleme, da manchmal der Barcode abgeschnitten wurde usw.

Ich hoffe, ich konnte Dir helfen, kannst ja in deinen Beitrag reinsetzen, damit es auch andere Finden können
Yusuf Zorlu
yusuf.zorlu@microtronx.com

Meine Arbeit ist so geheim ... ich habe selbst keine Ahnung was ich überhaupt mache!
  Mit Zitat antworten Zitat
microtronx

Registriert seit: 8. Mär 2005
Ort: Tapfheim
55 Beiträge
 
Delphi 2010 Enterprise
 
#7

AW: Android: OnNewIntent implementieren

  Alt 24. Mär 2016, 10:01
Noch ein Hinweis, innerhalb der mxBreceiverReceive müssen alle Verarbeitungen in einem Thread ausgeführt werden, sonst gibt es Probleme:

Delphi-Quellcode:
procedure TmxBCD.mxBreceiverReceive(Context: JContext; Intent: JIntent);
begin
    tThread.CreateAnonymousThread(procedure begin
        internal_mxBreceiverReceive(Context, Intent);
    end).start;
end;

procedure TmxBCD.internal_mxBreceiverReceive(Context: JContext; Intent: JIntent);
var
  vInput:String;
begin
  if ansisametext(JStringToString(intent.getAction), 'org.mein.intent.name') then begin
    // jetzt haben wir etwas erhalten
    vInput:=JStringToString(intent.getStringExtra(StringToJString(DATAWEDGE_DATA_STRING)));
    vInput:=trim(vInput);
    dolog('*receive*'+vinput+'*');

    // jetzt prüfen, ist das was angekommen ist eine Funktion oder muss ich ein Textfeld füllen?

  end else begin
    doLog('*unknown_action*'+JStringToString(Intent.getAction)+'*');
  end;
end;
Yusuf Zorlu
yusuf.zorlu@microtronx.com

Meine Arbeit ist so geheim ... ich habe selbst keine Ahnung was ich überhaupt mache!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz