Discussion :

[Charly910]

Bonjour,

Débutant avec Android, je voudrais voir comment on lit et écrit dans un fichier.
J'ai trouvé ce code qui doit créer un fichier MyFile.txt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure TForm1.Button2Click(Sender: TObject);
var
   TextFile : TStringList;
   FileName : string;
begin
 
try
  textFile := TStringList.Create;
  try
  {$IFDEF ANDROID}//if the operative system is Android
     FileName := Format('%smyFile.txt',[GetHomePath]);
  {$ENDIF ANDROID}
 
  {$IFDEF WIN32}
     FileName := Format('%smyFile.txt',[ExtractFilePath(ParamStr(0))]);
  {$ENDIF WIN32}
 
  ShowMessage('Fichier : '+Filename ) ;
 
  if FileExists(FileName) then begin
     textFile.LoadFromFile(FileName); //load the file in TStringList
     showmessage(textfile.Text);//there is the text
  end
  else begin showMessage('File not exists, Create New File');
 
     TextFile.Text := 'There is a new File (Here the contents)';
     TextFile.SaveToFile(FileName);//create a new file from a TStringList
 
  end;
  finally
     textFile.Free;
  end;
except
  on E : Exception do ShowMessage('ClassError: '+e.ClassName+#13#13+'Message: '+e.Message);
   end;
end;

Quand j'exécute sur une tablette Samsung Galaxy Tab E, le premier ShowMessage me donne le fichier :
/data/data/com.embarcadero.project1/filesmyfile.txt

Mais quand je regarde sur la tablette, par de répertoire data/data/... seulement data/...

D'autre part, une recherche ne localise pas le fichire myFile.txt ?

Ce fichier est il bien créé par le SaveToFile et ou est il passé ?

A+
Charly

[SergioMaster]

Re,

je trouve ce filename:=format limite, j'ai toujours privilégié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fileName:=System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetHomePath,'myfile.txt');

histoire d'avoir les séparateurs correct sans effort

Quand j'exécute sur une tablette Samsung Galaxy Tab E, le premier ShowMessage me donne le fichier :
/data/data/com.embarcadero.project1/files/myfile.txt

il manque un /

[Charly910]

Merci Serge,

j'ai rectifié. Cette fois dans le showmessage j'ai bien :

Fichier : /data/data/com.embarcadero.project1/files/myfile.txt

Le programme s’exécute mais rien dans le répertoire :

Ce PC\Tablette Galaxy \Tablet\Android\data\com.embarcadero.Project1\files

(je regarde avec Windows, ou directement sur la tablette avec l'appli Fichiers)

(et pourquoi le /data/data/... dans le showmessage ? Cela ne semble pas être le bon répertoire et il n'y a pas de répertoire /data/data/.. . Sur la tablette ? Est ce que /data/data est un répertoire caché ? ).

[pprem]

Hé hé, la réponse est toute bête : l'arborescence sur Android est entièrement virtuelle et passe par un service qui nous affiche ce wqu'il veut. Il faut l'informer de la création de fichiers si tu veux les voir quand tu connectes l'appareil sur autre chose.

Au passage je recommande vivement d'utiliser les classes TPath, TFile et TDirectory pour manipuler des fichiers et arborescences, en VCL ou FMX, car elles simplifient grandement les choses par rapport à "dans le temps". Elles se trouvent dans System.IOUtils.

[SergioMaster]

j'avais oublié de notifier le uses System.IOUtils mais je pense que tu as dû t'en rendre compte !

Entre parenthèses je trouve rageant que le TPath des chemeins soit confondu avec le TPath des contrôles graphiques ce qui oblige souvent d'être explicite sur le Sytem.IOUtils.TPath.

[Charly910]

Ok, je me doutais bien qu'il y avais du virtuel la-dessous !

merci

Je teste tout cela

A+
Charly