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

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