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)