¿Es posible grabar y leer ficheros en la SD card?

[jhonalone]

Hola jhonny.
He probaddo lo que me dijiste, pero la carpeta que me devuelve, aunque se puede grabar en ella, es el directorio principal del teléfono. No de la SD.

Por otro lado, (¡¡mi gozo en un pozo!!) tengo que comunicaros que el tema NO ESTÁ SOLUCIONADO del todo, como yo pensaba.

Me explico, la dirección

Código Delphi [-]
DataFile := TPath.Combine('/storage/extSdCard/Android/data/com.(tu Packeage).(Nombre del proyecto)/files/',  'NombreDelFichero.Extensión');

funciona perfectamente con la versión 4.4.2 de Android.

Sin embargo al probarla en una versión más antigua 4.1.2 no funciona.

Ahora bien, utilizando esta dirección

Código Delphi [-]
DataFile := TPath.Combine('/storage/extSdCard/', 'NombreDelFichero.Extensión');

SI FUNCIONA, pero lo graba en el directorio principal de la SD Card, lo que me lleva a concluir que es necesaria alguna función que discrimine entre versiones para poder usarla con cualquier versión. Intentaré conseguirla. Espero que alguien me ayude.

Saludos para todos.

[jhonny]

Empezado por jhonalone

Por otro lado, (¡¡mi gozo en un pozo!!) tengo que comunicaros que el tema NO ESTÁ SOLUCIONADO del todo, como yo pensaba.

Me explico, la dirección

Código Delphi [-]
DataFile := TPath.Combine('/storage/extSdCard/Android/data/com.(tu Packeage).(Nombre del proyecto)/files/',  'NombreDelFichero.Extensión');

funciona perfectamente con la versión 4.4.2 de Android.

Sin embargo al probarla en una versión más antigua 4.1.2 no funciona.

Ahora bien, utilizando esta dirección

Código Delphi [-]
DataFile := TPath.Combine('/storage/extSdCard/', 'NombreDelFichero.Extensión');

SI FUNCIONA, pero lo graba en el directorio principal de la SD Card, lo que me lleva a concluir que es necesaria alguna función que discrimine entre versiones para poder usarla con cualquier versión. Intentaré conseguirla. Espero que alguien me ayude.

Saludos para todos.

Es por eso te he recomendado probar el Helper que está en http://cc.embarcadero.com/Item/30158

[jhonalone]

Vaya, jhonny.
Parece que pinta bien.
No entré en el enlace cuando me lo dejaste la primera vez, y ahora creo que he perdido el tiempo por no hacerlo.
Lo probaré y te cuento.
Un saludo y gracias.

[jhonalone]

Bueno. Ya estoy aquí.

Te cuento.
He bajado y descomprimido el archivo al que apunta el link de Embarcadero.
Sólo venían 3 archivos: Androidapi.IOUtilsEx.pas (que es la unidad principal), Androidapi.JNI.EnvIntf.pas y Androidapi.JNI.SystemIntf.pas (usados por la unidad principal).

Además, en su cláusula uses vienen otros cuantos:

Código Delphi [-]

implementation

uses
  System.SysUtils,
  Androidapi.Jni,
  Androidapi.JNIBridge,
  Androidapi.JNI.JavaTypes,
  Androidapi.Helpers,
  Androidapi.JNI.SystemIntf,
  Androidapi.JNI.EnvIntf;

Puesto que para compilarse los necesita todos, he copiado los que faltaban desde el directorio C:\RadStudio10\17.0\source\rtl\android

He creado un proyecto nuevo

Código Delphi [-]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, Androidapi.IOUtilsEx;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
if isExternalStorageWritable
then Label1.Text := GetExternalSDCardDirectory
else ShowMessage('No hay SD card');
end;

end.

Al pulsar el Button1 me da el bonito mensaje de "Access violation" en dos dispositivos que lo he probado, en los mismos que con las rutas que anteriormente os he comentado, funcionaban.

No sé si es que la unidad está escrita para otra versión de Delphi o qué pasa.

Te agradezco tu esfuerzo, jhonny, pero creo que no voy a perder más tiempo con este asunto.

Gracias de verdad.

Saludos a todos.

[jhonny]

Hola, vale, es una pena que no continúes, lo que se me ha ocurrido es que quizá lo que te faltaba solamente era solicitar el permiso, esto no debe ser algo tan complejo.

[jhonalone]

jhonny... déjalo, no pierdas más tiempo.
De verdad que te agradezco tu esfuerzo.
Ya que, para el terminal que lo voy a instalar me funciona, creo que no merece la pena emplear más esfuerzo, cuando haya que instalarlo en otro terminal, quizás retome el tema.
Los permisos Read y Write del External Storage del proyecto de prueba están concedidos antes de que me de el error.
Un saludo afectuoso.