Este é um componente para tornar mais fácil a solicitação de permissões no Android 8.x ou superior.
Se você já tem uma versão antiga instalada, certifique-se de seguir o processo de desinstalação deste componente.
-
Abra o Delphi. Abra em modo administrador se necessário.
-
Abra o arquivo de pacote do MobilePermissions ($Path)\Package\MobilePermissions.dpk
-
Clique com o botão direito do mouse em MobilePermissions.bpl no Project Manager e selecione Clean
-
Clique com o botão direito do mouse em MobilePermissions.bpl no Project Manager e selecione Build
-
Clique com o botão direito no MobilePermissions.bpl no Project Manager e selecione Install
P.s. Se Install não estiver sendo mostrado no menu popup selecione o Target Windows 32-bit no Project Manager e clique novamente com o botão direito.
Pronto!
-
Abra o Delphi. Abra em modo administrador se necessário
-
Abra Tools > Get It Packager Manager
-
Digite MobilePermissions na caixa de pesquisa
-
Quando encontrar o componente passe o mouse sobre ele e clique em Install
- Aceite os termos clicando em Agree all
- Aguarde o processo de instalação
Pronto!
-
Abra o Delphi. Abra em modo administrador se necessário
-
Abra o pacote do compoente MobilePermissions ($Path)\Package\MobilePermissions.dpk
-
Clique com o botão direito em MobilePermissions.bpl no Project Manager e selecione Uninstall
Pronto!
-
Abra o Delphi. Abra em modo administrador se necessário
-
Abra Tools > Get It Packager Manager
-
Digite MobilePermissions na caixa de pesquisa
-
Quando encontrar o componente passe o mouse sobre ele e clique em Uninstall
-
Confirme
-
Aguarde o processo de desinstalação
Pronto!
-
Arraste uma instância do componente para o form (Paleta TDevRocks)
-
Selecione a permissão que quer solicitar em seu projeto Android
-
Execute seu aplicativo no Android
-
Arraste uma instância do componente para o form (Paleta TDevRocks)
-
Digite o código como no exemplo abaixo:
procecure TForm1.OnCreate(Sender: TObject);
begin
MobilePermissions1.[CATEGORY].[Permission] := True;
MobilePermissions1.Apply;
end;
Exemplo:
procedure TForm1.Button1Click(Sender: TObject);
begin
MobilePermissions1.Dangerous.CAMERA := True;
MobilePermissions1.Standard.AccessNetworkState := True;
MobilePermissions1.Apply;
end;
- Execute seu aplicativo no Android.
Erro:
"" is not a integer value.
Se você ainda estiver recebendo o erro acima, siga os passos abaixo:
a. Acesse Project > Options > Building > Delphi Compiler
b. Modifique o Target para Android32 e/ou Android64
c. Adicione as pastas abaixo no Search Path
\MobilePermissions\source
\MobilePermissions\component
Ex:.
C:\Componentes\MobilePermissions\source
C:\Componentes\MobilePermissions\component
Recompile e redistribua seu aplicativo e voilà
Testes executados en:
Android 7.0 (Essa versão não necessita do uso do componente, mas pode usar se quiser ;))
Android 8.x
Android 9.x
Android 10