Androidapi.JNI Interface und function : TJavaArray<>; cdecl;

[stoxx]

Ich versuche hier gerade ein USB Schnittstelle anzusprechen, in JAVA funktioniert es, unter Delphi irgendwie nicht.
Die Übergabe von einem TJavaArray funktioniert irgendwie nicht.

In JAVA funktioniert folgender Quelltext:

Code:

import android.hardware.usb.UsbAccessory;
import android.hardware.usb.UsbManager;

    public void onClick(View v) {

        UsbManager USBManager = null;
        UsbAccessory[] AccessoryList = null;
        UsbAccessory Accessory = null;        
       

        USBManager = (UsbManager) this.getSystemService(this.USB_SERVICE);       
        AccessoryList = USBManager.getAccessoryList();
        Accessory = AccessoryList[0];

        if (Accessory != null) {         
            SendDebug("Accessory Descriptions: " + Accessory.getDescription());
        } else {         
            SendDebug("Accessory null");
        }
    }

In Delphi hab ich mir jetzt mit Hilfe von diesem Beispiel

http://www.bverhue.nl/g2dev/?p=65
und diesem Importiertem Interface:

https://github.com/FMXExpress/androi...UsbManager.pas

Delphi-Quellcode:

  [JavaSignature('android/hardware/usb/UsbManager')]
  JUsbManager = interface(JObject)
    ['{4103C58D-D2FF-4010-B24E-0B970AB95F30}']
    function getAccessoryList : TJavaArray<JUsbAccessory>; cdecl; // ()[Landroid/hardware/usb/UsbAccessory; A: $1
    function getDeviceList : JHashMap; cdecl; // ()Ljava/util/HashMap; A: $1
    function hasPermission(accessory : JUsbAccessory) : boolean; cdecl; overload;// (Landroid/hardware/usb/UsbAccessory;)Z A: $1
    function hasPermission(device : JUsbDevice) : boolean; cdecl; overload; // (Landroid/hardware/usb/UsbDevice;)Z A: $1
    function openAccessory(accessory : JUsbAccessory) : JParcelFileDescriptor; cdecl;// (Landroid/hardware/usb/UsbAccessory;)Landroid/os/ParcelFileDescriptor; A: $1
    function openDevice(device : JUsbDevice) : JUsbDeviceConnection; cdecl; // (Landroid/hardware/usb/UsbDevice;)Landroid/hardware/usb/UsbDeviceConnection; A: $1
    procedure requestPermission(accessory : JUsbAccessory; pi : JPendingIntent) ; cdecl; overload;// (Landroid/hardware/usb/UsbAccessory;Landroid/app/PendingIntent;)V A: $1
    procedure requestPermission(device : JUsbDevice; pi : JPendingIntent) ; cdecl; overload;// (Landroid/hardware/usb/UsbDevice;Landroid/app/PendingIntent;)V A: $1
  end;

  TJUsbManager = class(TJavaGenericImport<JUsbManagerClass, JUsbManager>)
  end;

auf den USB Manager komme ich noch, und USBManager.ToString gibt mir auch noch "android.hardware.usb.UsbManager@413c1250" aus
Auch die Accessorylist kann ich noch zuweisen, und diese gibt mir die richtige Länge von 1 (wenn ein Gerät angeschlossen ist, ansonsten ist sie nil)
Nur wenn ich auf item[0] zugreifen will, geht das nicht.

Delphi-Quellcode:

var JavaObject : JObject;
    UsbManager : JUSBManager;
    AccessoryList : TJavaArray<JUsbAccessory>;
    Accessory : JUsbAccessory;

begin

 try

  // Get pointer to UsbManager
  JavaObject := SharedActivityContext.getSystemService(TJContext.JavaClass.USB_SERVICE);
  UsbManager := TJUSBManager.Wrap((JavaObject as ILocalObject).GetObjectID);
  AccessoryList := UsbManager.getAccessoryList;

  // das geht noch
  mmlog.Lines.Add('Lenght: ' + inttostr(  AccessoryList.Length));  
  
  // das geht schief mit: 
  // Zugriffsverletzung bei Adresse 5574A848 beim Zugriff auf Adresse 00000000
  Accessory := AccessoryList.Items[0];

was mach ich jetzt noch falsch?
Vielen Dank!

[mkinzler]

Funktioniert

Delphi-Quellcode:

Accessory := AccessoryList[0];

?

[stoxx]

Zitat:

Zitat von mkinzler (Beitrag 1262757)

Funktioniert

Delphi-Quellcode:

Accessory := AccessoryList[0];

?

geht leider genauso wenig :(

[mkinzler]

Geht er in die Schleife?

Delphi-Quellcode:

for (each Accessory in AccessoryList) do
begin
...
end;

[stoxx]

Delphi-Quellcode:

    for  Accessory in AccessoryList do   begin
    end;

das geht nicht zu kompilieren und da kommt nur:


[DCC Fehler] TabbedTemplate.pas(153): E2431 for-in-Anweisung arbeitet nicht mit Kollektionstyp 'Androidapi.JNIBridge.TJavaArray<Androidapi.JNI.US B.JUsbAccessory>', weil 'Androidapi.JNIBridge.TJavaArray<Androidapi.JNI.US B.JUsbAccessory>' kein Element für 'GetEnumerator' enthält oder darauf nicht zugegriffen werden kann

[stoxx]

da nicht jeder das entsprechende USB Gerät hat, hab ich mal versucht ein äquivalentes Beispiel zu finden.
und bin auf den AccountManager gestoßen.

Da ist genau das gleiche Problem bei der Funktion

Delphi-Quellcode:

function getAccounts : TJavaArray<JAccount>; cdecl;

Wenn in einer Funktion ein TJavaArray zurückgegeben wird, dann funktioniert irgendwie der Zugriff auf die Elemente nicht so, wie man denkt ..
Ich hab das DemoProjekt mal einfach angehangen ..

Delphi-Quellcode:

  [JavaSignature('android/accounts/AccountManager')]
  JAccountManager = interface(JObject)
    ['{3D4BB88D-DAC5-4113-94EE-427A4323C813}']
    function addAccountExplicitly(account : JAccount; password : JString; userdata : JBundle) : boolean; cdecl;// (Landroid/accounts/Account;Ljava/lang/String;Landroid/os/Bundle;)Z A: $1
    function blockingGetAuthToken(account : JAccount; authTokenType : JString; notifyAuthFailure : boolean) : JString; cdecl;// (Landroid/accounts/Account;Ljava/lang/String;Z)Ljava/lang/String; A: $1
    function getAccounts : TJavaArray<JAccount>; cdecl; // ()[Landroid/accounts/Account; A: $1
    function getAccountsByType(&type : JString) : TJavaArray<JAccount>; cdecl; // (Ljava/lang/String;)[Landroid/accounts/Account; A: $1

Der Zugriff funktioniert nicht, auch wenn accounts.Length größer Null ist:

Delphi-Quellcode:

      am := TJAccountManager.JavaClass.get(SharedActivityContext);
      accounts := am.getAccounts;
      account := accounts.Items[0];

[mkinzler]

Im EMBT-Forum gibt es Beispiel für den AccountManager

https://forums.embarcadero.com/threa...threadID=93425

Da scheint das selbe Problem aufzutauchen

Edit: Vielleicht ist der Index des 1. Eintrags ja 1 und nicht 0?
Edit: Nein. Daran liegt es nicht.
Komischerweise gibt es aber 14 Accounts (Length). Beim Debuggen bekomme ich die Fehlermeldung, dass mir der Zugriff auf die Accounts nicht gestattet ist.
Edit: So Rechte verschafft; aber Debugger funktioniert leider nicht!

[stoxx]

Irgendwas scheint bei der Übergabe nicht korrekt zu sein.
Ich vermute ja, dass ein Array in JAVA was ganz anderes ist, als eine Wrapping Klasse TJavaArray in Delphi.
Nur wie bekommt man die Daten da rein "FArrayElem" ist jedenfalls leider nil

[Union]

Vielleicht musst Du auch das in GITHub stehende TJavaArray verwenden.

[stoxx]

Zitat:

Zitat von Union (Beitrag 1262867)

Vielleicht musst Du auch das in GITHub stehende TJavaArray verwenden.

Also GitHub nimmt die Deklaration auch nur aus der Unit AndroidAPI.JNIBridge von embarcadero.
Wäre die Frage, was man aus dem zurückgegebenem Pointer macht und wie man da ein erzeugtes und gefülltes TJavaArray bekommt.
Die Übergaben von JavaArray mit Procedureparametern gehen ja sonst immer.

[Union]

Die durch Eli gemachte Konvertierung in GitHub ist automatisiert erfolgt. AndroidAPI.JNIBridge wird dort zwar eingebunden, es kann aber nicht sichergestellt werden ob nun dieses oder das aus Lang.Java verwendet werden kann oder muss. Einfach mal ausprobieren. Leider gibt es da zwischen den bereits durch EMB erfolgten (unvollständigen) Implementierungen und dem "Rest" eine Schnittmenge.

Vielleicht hilft Dir auch der Code von Daniele Teti weiter.

[stoxx]

Zitat:

Zitat von Union (Beitrag 1262887)

Die durch Eli gemachte Konvertierung in GitHub ist automatisiert erfolgt. AndroidAPI.JNIBridge wird dort zwar eingebunden, es kann aber nicht sichergestellt werden ob nun dieses oder das aus Lang.Java verwendet werden kann oder muss. Einfach mal ausprobieren. Leider gibt es da zwischen den bereits durch EMB erfolgten (unvollständigen) Implementierungen und dem "Rest" eine Schnittmenge.

Vielleicht hilft Dir auch der Code von Daniele Teti weiter.

den BluetoothAdapater habe ich schon verwendet, der funktioniert einwandfrei.
Soweit ich jetzt geschaut habe, gibt es keine eigene TJavaArray Definition (als Interface) in Github.

Das Problem betrifft scheinbar erstmal nur TJavaArrays, wenn sie als Funktionsrückgabe fungieren und nicht vorher erzeugt werden können, wie bei einer Übergabe als Parameter in einer Procedure ..

[Union]

Zitat:

Zitat von GITHub

Sorry, we had to truncate this directory to 1,000 files. 2,217 entries were omitted from the list.

Vielleicht geht es wenn Du die Deklaration der Rückgabe durch TJavaObjectArray ersetzt? Schließlich wird ja kein Basistyp (Byte, Single, Integer, Boolean suw.) in dem Generic verwendet, sondern JAccount bzw. JUsbAccessory.

Wenn das so geht, ändere ich das gleich im Konverter.

[mkinzler]

Leider keine Änderung :(

[Union]

Was gibt denn GetRawItem zurück, wenn Du TJavaObjectArray verwendest?

[mkinzler]

Kann leider gerade nicht Testen; bin bei der Deinstallation wg. Installation SP1.

[stoxx]

Zitat:

Zitat von Union (Beitrag 1262933)

[
Vielleicht geht es wenn Du die Deklaration der Rückgabe durch TJavaObjectArray ersetzt? Schließlich wird ja kein Basistyp (Byte, Single, Integer, Boolean suw.) in dem Generic verwendet, sondern JAccount bzw. JUsbAccessory.

Keine Änderung, der einzige Unterschied ist nun, dass die Zugriffsverletzung auf Adresse 2C kommt, nicht mehr auf Null ..
Hattest Du mein Beispiel mit JAccount entdeckt? da kannst Du das Phänomen probieren, ohne USBAccessorymanager. ..

[Union]

Wie debuggst Du das eigentlich auf dem Gerät mit einem verbundenen Device? Ich habe nur einen USB Port an meinen Tablet und leider auch keinen Adapter um ein weiteres für einen Echttest anschließen zu können.

[mkinzler]

Sollte über Wireless ADB gehen, ist seit Android 4 teil von ADB.

[mkinzler]

Auch mit SP1 funktioniert das Debuggen auf Android nicht. (Ging noch mit XE5)

[stoxx]

Zitat:

Zitat von mkinzler (Beitrag 1262812)

Im EMBT-Forum gibt es Beispiel für den AccountManager

https://forums.embarcadero.com/threa...threadID=93425

Da scheint das selbe Problem aufzutauchen

Edit: Vielleicht ist der Index des 1. Eintrags ja 1 und nicht 0?
Edit: Nein. Daran liegt es nicht.
Komischerweise gibt es aber 14 Accounts (Length). Beim Debuggen bekomme ich die Fehlermeldung, dass mir der Zugriff auf die Accounts nicht gestattet ist.
Edit: So Rechte verschafft; aber Debugger funktioniert leider nicht!

so würde es übrigens gehen ;)

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var

  jAm:  JAccountManager;
  accounts: TJavaObjectArray<JAccount>;
  jAcc: JAccount;


begin

      jAM := TJAccountManager.JavaClass.get(SharedActivityContext);
      accounts := TJavaObjectArray<JAccount>.Wrap(jAM.getAccounts);

      mmLog.Lines.Add('Length Accounts: ' + Inttostr(accounts.Length));

      if accounts.Length > 0 then begin
         jAcc := accounts.Items[0];
         mmLog.Lines.Add(jstringtostring( jAcc.toString));
      end else begin
         mmLog.Lines.Add('no accounts available');
      end;


end;