Problema BlueTooth Android 12

[jhonalone]

Muchas gracias Casimiro.
Es interesante para enviar texto a una impresora de escritorio por bluetooth..
Yo lo estoy enviando a una portátil en plan ticket, pero por bluetooth.
El problema está precisamente con los permisos.
Han cambiado desde la versión 12, según Google pero aunque le das los permisos, se cae el programa en la línea que indico en el adjunto.

He intentado darle todos los permisos que indica Google, pero nada. Siempre se cae en el mismo punto.

Código Delphi [-]
procedure TDevice.ListaDevices;
var
  Msg: string;
  I, B: Integer;

  ListaVinculados: TBluetoothDeviceList;
  LServices: TBluetoothServiceList;
begin

  try
  FBluetoothManager.Create;
   FBluetoothManager.EnableBluetooth;
    FBluetoothManager := TBluetoothManager.Current;
    if FBluetoothManager = nil
    then begin
         Close;
         end;

    FBluetoothManager.SocketTimeout := 100;

    BluetoothAdapter := FBluetoothManager.CurrentAdapter; // Aquí DA FALLO
     ShowMessage('Aquí');   exit;
    if BluetoothAdapter = nil
    then begin
         Close;
         end;

    ListaVinculados := FBluetoothManager.GetPairedDevices(BluetoothAdapter);
    if ListaVinculados = nil
    then begin
         Close;
         end;
         
   ComboDevices.Items.Clear; // Limpiamos cada vez el combo
   
    for I := 0 to ListaVinculados.Count - 1 do
    begin
      Impresora := ListaVinculados[i] as TBluetoothDevice;
      if Impresora.IsPaired then
      begin
        LServices := Impresora.GetServices;
        for B := 0 to LServices.Count - 1 do
        begin
          ServiceGUI := GUIDToString(LServices[b].UUID);
          Guid := LServices[b].UUID;
          ServiceName := LServices[b].Name;
        end;
      end
      else begin
           Close;
           end;
    ComboDevices.Items.Add(Impresora.DeviceName);
    end;
  except
   on E: Exception do
   begin
     Close;
   end;

 end;
 //FBluetoothManager.Destroy;
 if ComboDevices.Items.Count > 0 // Seleccionamos el primero
   then ComboDevices.ItemIndex := 0;

end;

Este es el texto y el punto donde se cae el programa

En la versión 9 funciona perefecto.
La prueba del adjunto la estoy usando a ver si consigo comunicar en la versión 13.
El problema es muy parecido al de mi último post.
Saludos.

[Casimiro Notevi]

No sé qué permisos estás usando, pero creo que para bluetooth no han cambiado.
De memoria te diría que ACCESS_FINE_LOCATION, PERMISSION_ACCESS_COARSE_LOCATION, BLUETOOTH_SCAN y BLUETOOTH_CONNECT

[Casimiro Notevi]

Si el SDK >= 31 entonces los permisos deben ser BLUETOOTH_SCAN, BLUETOOTH_CONNECT y PERMISSION_ACCESS_FINE_LOCATION
En caso contrario basta con PERMISSION_ACCESS_FINE_LOCATION

[jhonalone]

Casimiro, he probado lo improbable.
Estoy empezando a sospechar que el problema quizá sea de la versión de Delphi 11.0 que estoy usando.

Código Delphi [-]
// Hasta aquí llega
------------------------------------
  BluetoothAdapter := FBluetoothManager.CurrentAdapter; // Aquí DA FALLO
------------------------------------
// He probado con todos y con parte de ellos
const
  BlueTooth = 'android.permission.BLUETOOTH';
  BlueAdmin ='android.permission.BLUETOOTH_ADMIN';
  BlueConect='android.permission.BLUETOOTH_CONNECT';       //
  BlueScan = 'android.permission.BLUETOOTH_SCAN';           //
  BluePrint ='android.print.BLUETOOTH';
  BluePrivi ='android.permission.BLUETOOTH_PRIVILEGED';
  BlueDebug ='android.permission.BLUETOOTH_DEBUG';
  CorseLocate = 'android.permission.ACCESS_COARSE_LOCATION';
  FineLocate = 'android.permission.ACCESS_FINE_LOCATION';
  BlueSeting ='android.permission.BLUETOOTH_SETTINGS';
  BlueAdvert ='android.permission.BLUETOOTH_ADVERTISE';    //

[Casimiro Notevi]

Mira esto.
EDITO: He equivocado el enlace y ahora no encuentro el que quería ponerte.

[jhonalone]

No importa, Gracias.
Creo que estoy en vias de encontrar una solución.

[jhonalone]

¿SOLUCIONADO...?
Casi... Casi...
Siempre sale alguna meiga por ahí.
Ahora, he puesto los nuevos permisos en AndroidManifest.template.xml y he seguido las instrucciones de Google en este enlace.
Quizá le sobren algunos permisos, pero... "por mucho pan, nunca es mal año"
Hablando de las meigas... cuando la app está abierta, despues de unos segundos, el terminal emite un mensaje diciendo que "No responde. Cerrar o esperar"
y en ésas estamos.
Podéis descargar y probar la app con sus fuentes en el adjunto. Por si el tema le ayuda a alguien.
Prueba BLUETOOTH BUENA.zip
Saludos.