Problema ao ativar o bluetooth no android

[Alencar Castro]

Boa tarde ! 

Não estou conseguindo listar os dispositivos bluetooth no android. Alguém pode me ajudar ?

[Daniel Simoes]

Faça um teste com o Demo do ACBr, o projeto

\ACBr\Exemplos\ACBrSerial\ACBrPosPrinter\Android

Se nele exibir... observe nas propriedades de Projeto, as permissões que habilitamos... e o método para Solicitar Permissões, invocado na criação do Form

[Alencar Castro]

Em 01/07/2021 at 19:34, Daniel Simoes disse:

Faça um teste com o Demo do ACBr, o projeto

\ACBr\Exemplos\ACBrSerial\ACBrPosPrinter\Android

Se nele exibir... observe nas propriedades de Projeto, as permissões que habilitamos... e o método para Solicitar Permissões, invocado na criação do Form

É preciso adicionar alguma Unit, dll ou package ?

[Daniel Simoes]

Não compreendi a pergunta...

Você não conseguiu abrir e compilar o Demo do ACBr  ?

[Alencar Castro]

Sim eu já consegui compilar o exemplo, no exemplo funciona tudo ok, mas quando tento implementar em um app que estou desenvolvendo não abre a tela de solicitação para ativar o bluetooth e nem lista os dispositivos. Será que tenho que adicionar ao projeto que estou desenvolvendo alguma Unit, DLL ou instalar algum package ? Ou é apenas marcar as opções de permissões do android ? 

@Daniel Simoes

Edited July 6, 2021 by Alencar Castro

[Daniel Simoes]

Tem que marcar as permissões, e pedir elas em RunTime

 

Veja esse trecho dos fontes do ACBr...

function TPosPrinterAndroidTesteForm.PedirPermissoes: Boolean;
Var
  Ok: Boolean;
begin
  Ok := True;
  {$IfDef ANDROID}
  PermissionsService.RequestPermissions( [JStringToString(TJManifest_permission.JavaClass.BLUETOOTH),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_ADMIN),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_PRIVILEGED)],
      procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      var
        GR: TPermissionStatus;
      begin
        Ok := (Length(AGrantResults) = 3);

        if Ok then
        begin
          for GR in AGrantResults do
            if (GR <> TPermissionStatus.Granted) then
            begin
              Ok := False;
              Break;
            end;
        end;
      end );

  if not OK then
  begin
    TDialogService.MessageDialog( 'Sem permissões para acessar despositivo BlueTooth',
                                  TMsgDlgType.mtError, [TMsgDlgBtn.mbOK],
                                  TMsgDlgBtn.mbOk, 0, nil, nil);
  end;
  {$EndIf}

  Result := Ok;
end;

 

[Alencar Castro]

Em 06/07/2021 at 18:35, Daniel Simoes disse:

Tem que marcar as permissões, e pedir elas em RunTime

 

Veja esse trecho dos fontes do ACBr...

function TPosPrinterAndroidTesteForm.PedirPermissoes: Boolean;
Var
  Ok: Boolean;
begin
  Ok := True;
  {$IfDef ANDROID}
  PermissionsService.RequestPermissions( [JStringToString(TJManifest_permission.JavaClass.BLUETOOTH),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_ADMIN),
                                          JStringToString(TJManifest_permission.JavaClass.BLUETOOTH_PRIVILEGED)],
      procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
      var
        GR: TPermissionStatus;
      begin
        Ok := (Length(AGrantResults) = 3);

        if Ok then
        begin
          for GR in AGrantResults do
            if (GR <> TPermissionStatus.Granted) then
            begin
              Ok := False;
              Break;
            end;
        end;
      end );

  if not OK then
  begin
    TDialogService.MessageDialog( 'Sem permissões para acessar despositivo BlueTooth',
                                  TMsgDlgType.mtError, [TMsgDlgBtn.mbOK],
                                  TMsgDlgBtn.mbOk, 0, nil, nil);
  end;
  {$EndIf}

  Result := Ok;
end;

 

Consegui ativar o bluetooth pelo app, mas por que ele trava quanto eu aceito ativar o bluetooth ?

[Daniel Simoes]

Acho que isso pode ocorrer, na primeira liberação... mas não sei se é algo do Android ou do Delphi...

[Alencar Castro]

23 horas atrás, Daniel Simoes disse:

Acho que isso pode ocorrer, na primeira liberação... mas não sei se é algo do Android ou do Delphi...

Obrigado !

[Juliomar Marchetti]

é no Android.

[Alencar Castro]

Em 09/07/2021 at 13:40, Juliomar Marchetti disse:

é no Android.

Sim