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"
Pour utiliser les codes ci-dessous ne pas oublier de mettre dans uses "System.IOUtils"
Pour sauvegarder le texte d'un mémo dans un fichier texte (mesdonnees.txt)
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt'));
end;
Pour ouvrir le texte dans un mémo à partir d'un fichier texte (mesdonnees.txt)
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'mesdonnees.txt'));
end;
Afficher le chemin ou se trouve le fichier texte (mesdonnees.txt)
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;
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.
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;