Permisos android 8. v/s android 10

[[kurono]]

Empezado por viverosjosem

Hola Kurono.
Disculpa, no habia visto tu mensaje.



Hice lo que propones. Quite todo el codigo de acceso al disco. Y la aplicacion funciona bien en Android 10. Pero al volver a incorporar el codigo que requiere leer datos del disco. esta se cuelga. Osea, claramente, es un problema de permisos en android 10.

Alguna idea.

Saludos.
Jose Miguel.

intenta asignar los permiso desde el archivo xml que se gernera a ver que ocurre

[viverosjosem]

Hola Kurono.
modifique manualmente el arcchivo XML, pero este es reescrito por delphi al compilar la aplicacion. (no funciono).

Aprovecho a comentarles que encontre este codigo en: C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Mobile Snippets\AccessCameraApp

Código Delphi [-]
//---------------------------------------------------------------------------

// This software is Copyright (c) 2015-2019 Embarcadero Technologies, Inc.
// You may only use this software if you are an authorized licensee
// of an Embarcadero developer tools product.
// This software is considered a Redistributable as defined under
// the software license agreement that comes with the Embarcadero Products
// and is subject to that software license agreement.

//---------------------------------------------------------------------------

unit uMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, System.Permissions,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, System.Actions,
  FMX.ActnList, FMX.StdActns, FMX.MediaLibrary.Actions, FMX.Objects, FMX.Graphics,
  FMX.Controls.Presentation;

type
  TAccessCameraAppForm = class(TForm)
  private const
    PermissionCamera = 'android.permission.CAMERA';
    PermissionReadExternalStorage = 'android.permission.READ_EXTERNAL_STORAGE';
    PermissionWriteExternalStorage = 'android.permission.WRITE_EXTERNAL_STORAGE';
  private
    procedure DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
    procedure TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray);
  published var
    alGetFromCamera: TActionList;
    TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
    imgCameraImage: TImage;
    ToolBar1: TToolBar;
    btnTakePhoto: TButton;
    Label1: TLabel;
  published
    procedure TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
    procedure btnTakePhotoClick(Sender: TObject);
  end;

implementation

uses
  FMX.DialogService;

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}

// Optional rationale display routine to display permission requirement rationale to the user
procedure TAccessCameraAppForm.DisplayRationale(Sender: TObject; const APermissions: TArray<string>; const APostRationaleProc: TProc);
begin
  var RationaleMsg: string;

  for var I := 0 to High(APermissions) do
  begin
    if APermissions[i] = PermissionCamera then
      RationaleMsg := RationaleMsg + 'The app needs to access the camera to take a photo' + SLineBreak + SLineBreak
    else if APermissions[i] = PermissionReadExternalStorage then
      RationaleMsg := RationaleMsg + 'The app needs to read a photo file from your device';
  end;

  // Show an explanation to the user *asynchronously* - don't block this thread waiting for the user's response!
  // After the user sees the explanation, invoke the post-rationale routine to request the permissions
  TDialogService.ShowMessage(RationaleMsg,
    procedure(const AResult: TModalResult)
    begin
      APostRationaleProc;
    end)
end;

procedure TAccessCameraAppForm.btnTakePhotoClick(Sender: TObject);
begin
  PermissionsService.RequestPermissions([PermissionCamera, PermissionReadExternalStorage, PermissionWriteExternalStorage], TakePicturePermissionRequestResult, DisplayRationale)
end;

procedure TAccessCameraAppForm.TakePicturePermissionRequestResult(Sender: TObject; const APermissions: TArray<string>; const AGrantResults: TArray);
begin
  // 3 permissions involved: CAMERA, READ_EXTERNAL_STORAGE and WRITE_EXTERNAL_STORAGE
  if (Length(AGrantResults) = 3) and (AGrantResults[0] = TPermissionStatus.Granted) and (AGrantResults[1] = TPermissionStatus.Granted) and (AGrantResults[2] = TPermissionStatus.Granted) then
    TakePhotoFromCameraAction1.Execute
  else
    TDialogService.ShowMessage('Cannot take a photo because the required permissions are not all granted')
end;

procedure TAccessCameraAppForm.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
  { Assign the image retrieved from the Camera to the TImage component. }
  imgCameraImage.Bitmap.Assign(Image);
end;

end.

Lo compile, luego lo instale en mi android 10. La aplicacion funciono. Me presento un mensaje donde me pedia permisos para acceder a la camara del dispositivo. Le di aceptar. Luego me presento un mensaje, solicitando permiso para acceder a mis fotos. Le di aceptar a esta ultima peticion, y la aplicacion se colgo. Ya no funciono mas. La reinicie. La volvi a ejecutar, y lo mismo. Cada vez que li di permiso para acceder a mis fotos, la aplicacion se colgo. Entonces claramente hay un problema de manejo de permisos, que ni con una aplicacion desarrollada por embarcadero funciona.

Alguna idea.

Saludos.
Jose Miguel.

[Casimiro Notevi]

¿Has probado en otro dispositivo?

[viverosjosem]

Si. Lo prove en un Samsung, y en un Huawei, ambos con android 10. En ambos casos el resultado fue el mismo. Al darle permisos para acceder a las fotos, la aplicacion se colgo. Tambien lo probe, en un dispositivo con Android 7. y, en este ultimo funciono todo bien. El problema esta claramente al intentar trabajar con Android 10. Y, al parecer, un problema que enbarcadero aun no soluciona.

Saludos.
Jose Miguel.

[[kurono]]

El problema es con cualquier permiso que tu le asigne o solo con los permiso de cámara y fotografía

Otra pregunta cual archivo xml modificaste existen dos uno que se crea en la carpeta principal del proyecto y otra que se encuentra dentro de la carpeta de Android la que yo modificó es la principal al menos en Delphi xe 7 es asi desconozco en otras versiones

[viverosjosem]

Hola Kurono.

El problema es con cualquier permiso que tu le asigne o solo con los permiso de cámara y fotografía

Cuando estaba trabajando con mi propia aplicacion. el problema era de acceso a la tarjeta ssd. Luego de no poder hacerla funcionar para Android 10. Decidi buscar algun ejemplo desarrollado en delphi, que si funcionara. Entonces encontre este ejemplo de embarcadero, desarrollado en Delphi 10.3. El cual lo puedes encontrar en: C:\Users\Public\Documents\Embarcadero\Studio\20.0\Samples\Object Pascal\Mobile Snippets\AccessCameraApp".

En este caso particular, una aplicacion desarrollada por embarcadero, la cual se supone que deberia funcionar sin problemas. Sencillamente, no funciona. Eso, es lo extrano y decepcionante. No funciona en Android 10. Cuando la aplicacion solicita permisos para acceder a mis fotos, y le das "permitir", la aplicacion se cuelga.

Saludos.
Jose Miguel.

[viverosjosem]

Hola a todos.
Buscando en internet soluciones al problema. encontre la pagina de Adriano

https://github.com/adrianosantostreina

El es un programador brasilero que desarrollo un componente para habilitar los permiso en dispositivos Android 7, 8, 9 y 10. El componente muy facil de usar. Lo probe, y funciono perfectamente.

les dejo el enlace, por si a alguien le sirve.

https://github.com/adrianosantostrei...ilePermissions

En la misma pagina estan las instrucciones de compilacion y de uso.

Saludos.
Jose Miguel B.

[[kurono]]

por el momento es una solucion viable pero creo que embarcadero deberia solucionar este problema lo ante posible y no tener que recurir a componente de tercero para hacer lo que se supone que el IDE de delphi deberia realizar

[viverosjosem]

Hola Kumono.

Estoy totalmente de acuerdo contigo. Pero lo bueno es que este componente, se ofrece de manera libre y con codigo abierto. Todo el codigo fuente esta disoponible en la pagina. Un gran gesto de generosidad por parte de su programador (Adriano Santos).

Saludos.
Jose Miguel.