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

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

[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 von Union:

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 von 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!

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;