utilisation de MédiaPlayer

Bonjour,

juste avant que je ne m'arrête pour quelques heures (ou pas) j'ai un petit souci avec TMediaPlayer. Je voudrais selon un nombre tiré au hazard, jouer un son

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TMainUnit.PlaySound(I: Integer); var ResStream: TResourceStream; begin try ResStream := TResourceStream.Create(HInstance, Format('le%d',[i]), RT_RCDATA); try ResStream.Position := 0; ResStream.SaveToFile(TmpFile); // ? Mediaplayer1.Clear; MediaPlayer1.FileName := TmpFile; MediaPlayer1.Play; finally ResStream.Free; end; except   end; end;

---

Seulement seul le premier est joué. Quelle est mon erreur ?

Je me réponds. L'importance de l'ordre des instructions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TMainUnit.PlaySound(I: Integer); var ResStream: TResourceStream; begin try ResStream := TResourceStream.Create(HInstance, Format('le%d',[i]), RT_RCDATA); try // Arrêter le média if MediaPlayer1.State=TMediaState.Playing then MediaPlayer1.Stop; // libérer le fichier MediaPlayer1.Clear; ResStream.Position := 0; ResStream.SaveToFile(TmpFile); // jouer le nouveau fichier MediaPlayer1.FileName:=tmpFile; if MediaPlayer1.Media<>Nil then Mediaplayer1.Play; finally ResStream.Free; end; except // ressource non trouvée end; end;

---

En testant le déploiement de l'application vers Ubuntu, j'ai eu la surprise de voir tous mes fichiers sons, contenus dans la ressource, déployés :calim2:
d'un côté, quelque part je trouve que la ressource est bien traitée niveau déploiement (je retrouve tous les fichiers) d'un autre côté je trouve ça déplorable, moi qui me suis décarcassé à tout mettre dans les ressources programmes pour, justement, éviter de déployer chaque fichier. :aie:

Le code fonctionne quand même :yaisse3:
À noter pour Ubuntu il faut que VLC soit installé

Code:

---

sudo apt install vlc

---

bien que via Windows SubSystem Linux cela n'ait pas fonctionné
J'ai fait le déploiement pour Androïd, cela semble aussi être le cas


Je pose alors la question aux détenteurs de matériel à la pomme, comment les ressources sont-elles déployées sur un Mac ou vers un IOS ?

Question subsidiaire, cette fois sur TMediaplayer, je pourrais envisager un seul fichier de sons (annonces des numéros du Bingo) dans ce cas comment découper, en admettant que tous les temps soient identiques (2 secondes) ?

Les resources dans le programme sont une spécificité de Windows. Sur les autres l'EDI et la RTL rusent en nous masquant la chose pour simplifier notre travail.

Alors je vais ruser aussi et tout mettre dans un même fichier si j'arrive à découper correctement ;)

Citation:

---

Envoyé par SergioMaster

Alors je vais ruser aussi et tout mettre dans un même fichier si j'arrive à découper correctement ;)

---

une base SQLite avec des fichiers stockés comme blogs, le tout downloads au lancement du programme depuis une URL peut être une solution selon tes besoins (mais nécessite le oued au démarrage au moins la première fois)

Finalement, changement de cap, j'ai utilisé un TextToSpeech pour les plateformes Windows, Android (<- testés), IOS et OSX.
Seul Ubuntu nécessite encore les ressources car le source utilisé ne le prend pas en charge :triste:

Bonjour,

Après avoir enregistré tous les nombres dans un seul fichier (en utilisant le magnétophone de windows et un petit programme texttospeech) .

Me voilà confronté à un problème FMX , si le TMediaplayer de la VCL offre la possibilité d'indiquer une position de début (StartPos) et une position de fin (EndPos) cette possibilité ne sembla pas exister en FMX :weird:
Une idée d'où chercher ?

effectivement pas de position de fin, mais tu peux contrôler le début et l'arrêt en modifiant l'indice de temps et en testant à quel moment tu veux le stopper avec un timer

Bonjour patrick

Oui mais dans le cas de figure tout dans un fichier, j'aurais voulu comme en VCL avoir la position de début. Du coup, comme j'ai mis un texttospeech pour toutes les plateformes sauf linux (dommage)
J'ai suivi ton idée de fichier SQLite, je n'ai plus qu'à tester sous Ubuntu ;)

Tu as dû être garde champêtre dans une autre vie. ;)

Mon côté campagnard qui ressort ?
En tout cas le résultat final (à tester sous trucs à la pomme, car il y a certainement un pb de chemin possible) se trouve dans les sources à télécharger