Permiso Para Grabar

[pruz]

Buenos dias;
tengo una aplicacion desarrollada en Delphi 10.2 Tokio para android, y tengo el siguiente problema no puedo crear un archivo de texto
en el dispositivo donde esta instalada la aplicacion, al parecer son problemas de permisos. Esto mismo lo probe en windows y funciona perfecto.

Alguien me puede orientar como solucionar el problema de permisos.

gracias
Patricio

[Neftali [Germán.Estévez]]

Empezado por pruz

tengo una aplicacion desarrollada en Delphi 10.2 Tokio para android, y tengo el siguiente problema no puedo crear un archivo de texto en el dispositivo donde esta instalada la aplicacion

No se si "donde está la aplicación" es el lugar más adecuado.
¿Y si lo pruebas en algún otro directorio de los que hay expresamente para almacenar ficheros y datos relacionados con la aplicación?

http://docwiki.embarcadero.com/Libra....IOUtils.TPath

Estoy pensando en alguno de estos:
http://docwiki.embarcadero.com/Libra...tDocumentsPath
http://docwiki.embarcadero.com/Libra...th.GetHomePath
http://docwiki.embarcadero.com/Libra....GetPublicPath
http://docwiki.embarcadero.com/Libra...dDocumentsPath

[pablocarlos]

Hola. Con que componente intentas guardar el txt? por que si pretendes usar el TSaveDialog no es compatible con android y si para windows.

[pruz]

Si efectivamente con ese componente lo estoy haciendo,
no se supone que todas los componentes base o estandares que funcionan en windows deberian funcionar en android?

cual es el que puedo usar?

Gracias

[pablocarlos]

Buenas tardes. Ese componente no funciona para moviles. No conozco alguno como para ayudarte, perdon.

[pruz]

Buenas tardes, aun no logro solucionar el problema. pero ahora me da el siguiente error; "I/O ERROR 30".
al ejecutarlo en Windows no da ERROR, pero en ANDROID si da el ERROR
La aplicacion no se donde queda instala, ya que se autoinstala.


este es el codigo, al intentar grabar un TXT.

Código Delphi [-]
var
F: TextFile;
sarchivo, slinea : String;

Begin


  AssignFile( F, sarchivo );
  Rewrite( F );

   for I := 0 to GrillaPaso.RowCount -1 do begin

     if (GrillaPaso.Cells[1, i] <> '') and
        (GrillaPaso.Cells[3, i] <> '') then begin

         slinea := GrillaPaso.Cells[0, i] + ';' + GrillaPaso.Cells[1, i] + ';' + GrillaPaso.Cells[2, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[3, i] + ';' + GrillaPaso.Cells[4, i] + ';' + GrillaPaso.Cells[5, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[6, i] + ';' + GrillaPaso.Cells[7, i] + ';' + GrillaPaso.Cells[8, i] ;
         WriteLn( F, slinea );


     end;

   end;
  CloseFile( F );

End;

[Neftali [Germán.Estévez]]

Puedes utilizar el SaveToFile de TStrings/TStringList.
El error puede ser tema de permisos.

[pruz]

Hola amigos:

Disculpen la demora en el feedback.
Bueno ya supere el error I/O 30, efectivamente era de permiso. en el archivo "AndroidManifest" donde se deben agregar.

Utilice lo recomendado por Neftali, pero a pesar que no da error no graba el archivo TXT.

Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'archivo.txt'));

He seguido investigando pero aun no encuentro al solucion..
alguein me puede enviar un codigo o ejemplo.

Saludos,