Delphi Android Tip – Get Account info from SO
Se la applicazione che state creando, richiede una registrazione dell’utente per cui è utile avere anche la mail (già verificata) dell’utente del dispositivo, è possibile utilizzare le api fornite da Android per richiedere all’utente di loggarsi e concedere alla vostra app di catturarne la mail.
Grazie alla grande capacità di Delphi di interfacciarsi con le librerie native di ogni piattaforma target non è difficile implementare questa funzione all’interno dells ns app.
Ambiente su cui è stato eseguito il test:
– Android v. 8.0 up to 12
– Delphi 12.0 Alexandria Enterprise
Appicazione di destinazione: XtumbleRetail e XtumbleMagazzino disponibili sia su Android che IOS
Passi necessari per implementare la login utente:
1 – Includere le libreiriie necessarie;
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
uses System.TypInfo, uFireDacHelper, uFrmMain,System.IOUtils,xtSOUtils, DB, xtUtils, DateUtils,System.Permissions ,System.Messaging {$IFDEF ANDROID} ,Androidapi.JNI.Os,Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNIBridge,Androidapi.JNI.Accounts, Androidapi.JNI.App, FMX.Helpers.Android {$ENDIF} {$IFDEF IOS} ,DW.iOSapi.AuthenticationServices ,DW.iOSapi.Foundation {$ENDIF} {$IFDEF MSWINDOWS} ,ActiveX {$ENDIF}, PasfrmLocalBrowseNew |
2 – Abilitare la gestione account nelle option di progetto, che si andrà poi a rifletter sul file “manifest.xml”
.
.
3 – Sottoscrivere una funzione di gestione dell’evento asincrono dove l’utente accetta o meno di loggarsi
|
1 2 3 4 5 6 7 8 9 10 11 |
procedure TfrmSettings.FormCreate(Sender: TObject); var ff: TStringDynArray; gg: String; begin TentativiDiLogin := 0; {$IFDEF ANDROID} TMessageManager.DefaultManager.SubscribeToMessage(TMessageResultNotification, HandleActivityResult); {$ENDIF} end; |
.
|
1 2 3 4 5 6 |
procedure TfrmSettings.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin {$IFDEF ANDROID} TMessageManager.DefaultManager.Unsubscribe(TMessageResultNotification, HandleActivityResult); {$ENDIF} end; |
.
.
.
3 – Definire la funzione di gestione dell’evento di risposta all’azione utente
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
procedure TfrmSettings.HandleActivityResult(const Sender: TObject; const M: TMessage); var requestCode, resultCode: Integer; Data: JIntent; begin if M is TMessageResultNotification then begin requestCode := TMessageResultNotification(M).requestCode; resultCode := TMessageResultNotification(M).resultCode; Data := TMessageResultNotification(M).Value as JIntent; if requestCode = ADD_ACCOUNT_REQUEST_CODE then begin if resultCode = TJActivity.JavaClass.RESULT_OK then begin // lblCreateNewAccountClick(nil); // Puoi eseguire qui le azioni necessarie dopo che l'utente ha aggiunto l'account // Ad esempio, recuperare le informazioni sull'account da AccountManager // data contiene i dati restituiti dall'attività di scelta dell'account end else begin If TentativiDiLogin = 0 then begin TentativiDiLogin := 1; // sleep(4000); // lblCreateNewAccountClick(nil); end Else lblCreateNewAccount.Enabled := True; // L'utente ha annullato l'aggiunta dell'account // Puoi gestire questa situazione di conseguenza end; end; end; end; |
.
3 – Definire la funzione principale che scatena l’evento di login
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
function TfrmSettings.requireUserMail: String; var AccountManager: JAccountManager; Accounts: TJavaObjectArray<JAccount>; addAccountIntent: JIntent; accountTypesDef:TJavaObjectArray<JString>; accountType: JString; begin result := AccountEmail; if result <> '' then exit; {$IFDEF ANDROID} PermissionsService.RequestPermissions ([JStringToString(TJManifest_permission.JavaClass.GET_ACCOUNTS)], procedure(const APermissions: TClassicStringDynArray; // TArray<string>; const AGrantResults: TClassicPermissionStatusDynArray // TArray<TPermissionStatus> ) begin if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then begin AccountManager := TJAccountManager.JavaClass.get (TAndroidHelper.Context); Accounts := AccountManager.getAccountsByType (StringToJString('com.google')); if Accounts.Length > 0 then begin // Prendi il primo account Google e recupera l'email var Email := JStringToString(Accounts[0].Name); AccountEmail := Email; end else begin accountType := StringToJString('com.google'); // Specifica il tipo di account, ad esempio, Google accountTypesDef:=TJavaObjectArray<JString>.Create(1); accountTypesDef.Items[0] := accountType; addAccountIntent := TJAccountManager.JavaClass.newChooseAccountIntent(nil, nil, accountTypesDef, False, nil, nil, nil, nil); addAccountIntent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); TAndroidHelper.Activity.startActivityForResult(addAccountIntent, ADD_ACCOUNT_REQUEST_CODE); end; end else begin end; end); {$ENDIF} end; |
4 – Testare l’appliazione
