Discussion :

[SergioMaster]

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 :

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
 
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 ?

[SergioMaster]

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

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
 
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;

[SergioMaster]

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
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.

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

Code :

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

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) ?

[pprem]

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.

[SergioMaster]

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

[pprem]

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)

[SergioMaster]

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

[SergioMaster]

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
Une idée d'où chercher ?

[pprem]

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

[SergioMaster]

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

[pprem]

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

[SergioMaster]

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