Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Desarrollo en Delphi para Android
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy


 
 
Herramientas Buscar en Tema Desplegado
  #7  
Antiguo 18-09-2023
jhonalone jhonalone is offline
Miembro
 
Registrado: sep 2007
Ubicación: Madrid
Posts: 547
Poder: 17
jhonalone Va por buen camino
¡¡CONFIRMADO!!
Con estos cambios en el código me deja leer el logo bmp que está en la carpeta Pictures.
Las restricciones que comentaba antes son ciertas.
Código Delphi [-]
// Si concedió los permisos o si es una versión anterior a la 13  continuamos...
 DataFile := TPath.Combine(TPath.GetSharedPicturesPath, 'Icono144x144.bmp');
  DataFile2 := TPath.Combine(DirSDCard,'Icono144x144.bmp');
 Fichero.Copy( Datafile2, DataFile,True);
  Sleep(5000);
  DataFile := TPath.Combine(TPath.GetSharedPicturesPath, 'Icono144x144.bmp');
  if not FileExists(DataFile)
  then begin
       Mensaje('No se encuentra el fichero "Icono144x144.bmp" en la carpeta "Pictures" de su dispositivo.', 0);
       exit;
       end
  else begin
         Edit1.Text := 'Icono144x144.bmp';
     //    try  // Comentando try para ver el error
           MiMap := FMX.Graphics.TBitmap.Create();
           MiMap.LoadFromFile(DataFile); // Aquí está el error "Acceso denegado"
     //    except
         {     begin
               Mensaje('No se puede leer el archivo "Icono144x144.bmp" o tiene un formato erróneo.', 0);
               MiMap.Free;
               Exit;
              end;      }
     //    end; //try

Aqui está la explicación de lo que yo sospechaba, y ha quedado demostrada.
Lo que no sé es porqué si yo he solicitado el permiso MANAGE_EXTERNAL_STORAGE y ha sido concedido, no me permite el acceso.
No sé cómo resolver este problema.
VAMOS A TENER QUE DEJAR DE SUBIR APP'S A PLAY STORE Y DESARROLLARLAS PARA ANDROID.
NO ES POSIBLE QUE TODOS LOS AÑOS TENGAS QUE JUGAR CON UNAS REGLAS DE JUEGO NUEVAS.
¡¡ Y TENGAS QUE MODIFICAR LAS APP'S CADA AÑO !!
Saludos.
__________________
"Pedid y se os dará; buscad y hallaréis ..." (Lc 11,9-10)
"...si no tengo caridad, nada soy..." (1 Cor 13,1-13)

Última edición por jhonalone fecha: 18-09-2023 a las 15:15:45.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Leer archivos de una carpeta Jad Varios 3 11-12-2022 16:10:54
Acceder a una carpeta de un servidor desde Android jooooseph Desarrollo en Delphi para Android 2 14-10-2022 23:28:52
Acceso a carpeta Download en Android 12. voci Desarrollo en Delphi para Android 7 26-04-2022 18:18:01
Error al leer imagen de galeria Android Lollipop edorantes Desarrollo en Delphi para Android 1 18-04-2015 18:26:03
leer archivos de una carpeta pgrdelphi Varios 2 06-09-2011 00:18:16


La franja horaria es GMT +2. Ahora son las 04:13:53.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi