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 Accessory := AccessoryList[0]; ?

[stoxx]

Zitat von mkinzler:

Funktioniert 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

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];