Error al Grabar TXT
 

Hola , estoy que exploto...
Escribi estos 4 lineas de codigo y todas me dan el mismo error, (cannot create file cargar5.txt, Read-Only file system)
para todos los archivo y directorios
alguien me puede ayudar
caso 1:

Código Delphi [-]
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDownloadsPath , '/carga5.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, '/carga6.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetTempPath, '/carga7.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetPublicPath, '/carga8.txt'));

caso 2:

Código Delphi [-]
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDownloadsPath , '\carga5.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, '\carga6.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetTempPath, '\carga7.txt'));
  Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetPublicPath, '\carga8.txt'));

saludos

¿Y tienes permiso para escribir ahi?

si modifique el androidmanistio.xml, aqui esta el codigo

<%uses-permission%>

<uses-permission android:name="android.permission.ACCESS_COARSE_LOCATION" />
<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" />
<uses-permission android:name="android.permission.BLUETOOTH" />
<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />
<uses-permission android:name="android.permission.INTERNET" />
<uses-permission android:name="android.permission.READ_EXTERNAL_STORAGE" />
<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" />

<uses-feature android:glEsVersion="0x00020000" android:required="True"/>

No sé cómo será con Delphi para Android, pero con otros lenguajes debes solicitar el permiso al usuario.
Algo similar a esto:

Código Delphi [-]
var rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult(Permission As String, bSuccess As Boolean)
If bSuccess Then  // ha dado permiso
  // escribir

else
  // no ha dado permiso

Yo he probado este código:

Código Delphi [-]
procedure TForm4.Button1Click(Sender: TObject);
var
  fName:string;
begin

  Memo1.Lines.Add('Grabar en [GetDownloadsPath]');
  fName := TPath.Combine(TPath.GetDownloadsPath , 'carga5.txt');
  Memo1.Lines.SaveToFile(fName);
  Memo1.Lines.Add(fName);
  Memo1.Lines.Add('Existe: ' + BoolToStr(FileExists(fName), True));

  Memo1.Lines.Add('Grabar en [GetDocumentsPath]');
  fName := TPath.Combine(TPath.GetDocumentsPath, 'carga6.txt');
  Memo1.Lines.SaveToFile(fName);
  Memo1.Lines.Add(fName);
  Memo1.Lines.Add('Existe: ' + BoolToStr(FileExists(fName), True));

  Memo1.Lines.Add('Grabar en [GetTempPath]');
  fName := TPath.Combine(TPath.GetTempPath, 'carga7.txt');
  Memo1.Lines.SaveToFile(fName);
  Memo1.Lines.Add(fName);
  Memo1.Lines.Add('Existe: ' + BoolToStr(FileExists(fName), True));

  Memo1.Lines.Add('Grabar en [GetPublicPath]');
  fName := TPath.Combine(TPath.GetPublicPath, 'carga8.txt');
  Memo1.Lines.SaveToFile(fName);
  Memo1.Lines.Add(fName);
  Memo1.Lines.Add('Existe: ' + BoolToStr(FileExists(fName), True));
end;

Con Delphi 10.3 sobre un Android, con el SDK "platforms\android-26"
Los permisos, desde las opciones del proyecto y sólo he asignado estos (el resto desactivados):




La salida por pantalla es esta:




Y comprobando con el Explorador de archivos del teléfono los ficheros están ahí.

Muchas gracias
los probare

Hola Pruz.
Nose si ya solucuonaste tu problema de grabacion. Pero yo en Android, grabo de esta manera.

Código Delphi [-]
procedure TFConfigIPFTP_GrabaServer;
var
   f : System.TextFile;

   x : Integer;
   sDetalle: String;
   sFile   : String;

begin
   sFile := SDCARD + 'Server.csv';

   try
     AssignFile( f, sFile );
     Rewrite(f);

     sDetalle := EdServer.Text + ';' + EdCodigo.Text + ';' + EdPasword.Text;
     writeln(f, sDetalle );

   finally
     CloseFile(f);
   end;
end;

Espero te sirva.

Saludos.
Jose Miguel.

Muchas gracias a todos los que me han ayudado a avanzar en mi proyecto
espero alguna vez retribuirlo