Compatibilização ACBrDeviceBluetooth com Android 12

[Andrei Ricardo]

Olá a todos,

Estive tendo problemas na comunicação Bluetooth com Android 12 devido as alterações de permissões que o Google está exigindo.
Com isto fiz as devidas mudanças no ACBrDeviceBluetooth e segue abaixo para atualização nos fontes do ACBr.

Atenciosamente.

ACBrDeviceBlueTooth.pas

[Daniel Simoes]

Obrigado @Andrei Ricardo já verifico na segunda...

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3503

[Daniel Simoes]

@Andrei Ricardo, muito obrigado pela sua contribuição...

Subi ao SVN, com algumas outras modificações que eu havia represado aqui...  Commit [r28240]

Citar

-- ACBrDevice --
[+] Adicionado o método:
    procedure AcharPortas(const AStringList: TStrings);
    que procura por Portas: USB, Serial, RAW e Bluetooth (conforme plataforma)

[+] Adicionado os métodos:
   function PedirPermissoes: Boolean;
     (que chama as permissões do Dispositivo ativo)
   function PedirPermissoesBlueTooth: Boolean;
     (que chama as permissões do Dispositivo Bluetooth (usado em Android))

-- ACBrDeviceClass --
[+] Adicionado o método:
    function PedirPermissoes: Boolean; virtual;
    (que pode ser sobreescrito nas classes filhas, se necessário)

-- ACBrDeviceBlueTooth --
[*] Método "PedirPermissoes", modificado para ser sobrecarga da classe mãe.
[*] Método "PedirPermissoes", modificado para lembrar da última resposta de
    sucesso, e evitar pedir permissões de forma repetitiva.
[*] Método "PedirPermissoes", modificado para ficar compatível com Android 12
    http://www.projetoacbr.com.br/forum/index.php?showtopic=70435
    (por: DSA e Andrei Ricardo)