DELPHI ANDROID
CHARGEMENT ET DÉPLOIEMENT DE FICHIERS
DÉPLOIEMENT DE FICHIERS

Créer une application multi-périphérique
Cliquer sur Projet->Déploiement
Cliquer sur Ajouter des fichiers
Ajouter vos fichiers (.txt, .mp3, .mp4, .jpg, .bdd etc...)
Si vous souhaitez les avoir sur la mémoire interne du périphérique ou sur une mémoire externe (par exemple, une carte SD).
Pour placer vos fichiers dans le dossier dans votre application (interne ou externe). Sélectionner chemin distant du Gestionnaire de déploiement :
INTERNE : Sélectionner ou ecrire "assets\internal"
EXTERNE : Sélectionner ou ecrire "assets\external"

NE PAS OUBLIER

Pour utiliser les codes ci-dessous ne pas oublier de mettre dans uses "System.IOUtils"

ÉCRIRE SUR UN FICHIER TEXTE

Pour sauvegarder le texte d'un mémo dans un fichier texte (mesdonnees.txt)

SAUVEGARDER LE FICHIER :
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt'));
end; 
OUVRIR UN FICHIER TEXTE

Pour ouvrir le texte dans un mémo à partir d'un fichier texte (mesdonnees.txt)

OUVRIR LE FICHIER :
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt'));
end; 
OU EST MON FICHIER TEXTE ?

Afficher le chemin ou se trouve le fichier texte (mesdonnees.txt)

CHEMIN DU FICHIER :
procedure TForm1.Button3Click(Sender: TObject);
begin

    if FileExists(TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt')) then
  begin
   Label3.Text :='le fichier existe en interne';
   Label2.Text := TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt');
  end;
      if FileExists(TPath.Combine(TPath.GetPublicPath, 'mesdonnees.txt')) then
  begin
   Label4.Text :='le fichier existe en externe';
   Label5.Text := TPath.Combine(TPath.GetPublicPath, 'mesdonnees.txt');
  end else begin
     Label4.Text :='le fichier n''existe en externe';
  end;
end;
LIRE UN FICHIER AUDIO

Pour lire un fichier audio (mp3, wav etc..) cliquer sur Projet->Déploiement, cliquer sur "Ajouter des fichier" ajouter le fichier audio que vous voulez lire. Sélectionner chemin distant "assets\internal". Sur la Form ajouter 2 boutons et un Mediaplayer. Pour le code trois événements : Pour la Form OnCreate et pour les deux boutons OnClick.

CODE LECTURE AUDIO :
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Text := 'LIRE';
Button2.Text := 'STOP';
Button2.Enabled := false;
end;

procedure TForm1.Button1Click(Sender: TObject);
var son : string;
begin
son := TPath.Combine(TPath.GetDocumentsPath, 'votreson.mp3');
MediaPlayer1.FileName := son;
MediaPlayer1.Play;
Button1.Enabled := false;
Button2.Enabled := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  MediaPlayer1.Stop;
Button1.Enabled := true;
Button2.Enabled := false;
end;
PARTAGER :

Si notre page vous a plu, n’oubliez pas de la partager :

Partager sur Facebook Partager sur Twitter Partager sur LinkedIn