Discussion :

[SergioMaster]

Bonjour,

problème bête mais néanmoins je me tape la tête contre un mur
dans un programme tout simple, j'utilise un TOpenDialog pour ouvrir un fichier 'wav' , si le dialogue est ok le nom du fichier se retrouve dans SoundFile.Text, un TEdit

Je veux coder un bouton pour tester

Code :

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

1
2
3
4
5
6
begin
if SoundFile.Text.IsEmpty then Exit;
  MediaPlayer1.FileName:=SoundFile.Text;
  MediaPlayer1.Volume := 100; // j'ai cru que j'étais sourd
  MediaPlayer1.Play;
end

Non seulement je n'entends rien mais en plus je ne sors pas du programme (que ce soit mode debug ou run)
J'ai oublié quelque-chose ? (Je me rappelle d'une histoire de codecmanager mais c'est loin)

c'est quand même fort de café de ne pas avoir un truc tout bête

[pprem]

effectivement les .wav, sortis de Windows, y a peu de chance d'arriver à en tirer quelque chose, par contre si tu es sous Windows et que l'OS arrive à jouer nativement le fichier, le TMediaPlayer doit pouvoir le faire aussi.

si tu es sous FMX, petit rappel des formats censés fonctionner :
http://docwiki.embarcadero.com/Libra...a.TMediaPlayer
(le MP3 est susceptible de passer partout, mais faut payer à la licence si on dépasse un certain nombre d'unités distribuées du logiciel)

[SergioMaster]

Pour l'instant c'est windows (il y a un {$IFDEF MSWINDOWS} pour le TOpenDialog donc bien évidemment un {$ELSE} )
non, je teste sous windows et que le coup de poing doit me rendre sourd comme Beethoven
je vais quand même tenté de trouver un MP3 quelque part histoire d'entendre

[SergioMaster]

Il a des fois où il vaut mieux aller faire un tour !
Un problème au niveau de mon PC, plus aucun son n'en sortait ! Un bon vieux redémarrage après un tour dans les vignes, surprise tout nickel

[pprem]

Un problème au niveau de mon PC, plus aucun son n'en sortait ! Un bon vieux redémarrage après un tour dans les vignes, surprise tout nickel

ah, oui, forcément, le truc auquel je n'avais pas pensé. honte à moi !