Bonjour, j'ai voulu tester fmod j'ai donc fait un petit programme sensé jouer une musique toute simple. Le tout compile bien mais au final je n'ai pas de son, j'ai cherché un peu partout je ne trouve pas pourquoi. J'ai telechargé d'autre source de programme qui utilisent aussi fmod et lors de leur compilation je n'ai pas de son non plus. Quelqu'un peut il m'aider?

Pour info voici mon code:

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
25
26
27
28
29
30
31
32
33
34
unit son;
 
interface
  uses
    fmod, fmodtypes, fmoderrors, Windows, SysUtils;
 
  procedure music(test:PWideChar);
 
implementation
 
  procedure music(test:PWideChar);
  var
    musique: PFMusicModule;
  begin
 
    if FSOUND_Init(44100, 2, 0) then
      writeln('Init Ok')
    else
      writeln('Init False');
    if FileExists(test) then
      writeln('Link Ok')
    else
      write('Link False');
    musique := FSOUND_Stream_Open(test, 0, 0, 0);
//    if FSOUND_SetVolume(1 , 200) then
//      writeln('Volume Ok')
//    else
//      write('Volume False');
    FSOUND_Stream_Play(FSOUND_FREE, musique);
//     FSOUND_Stream_Close(musique);
//     FSOUND_Close();
  end;
 
end.
Et dans mon main
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 try
  { TODO -oUtilisateur -cCode du point d'entrée : Placez le code ici }
  music('Son/menu.mp3');
 
  readln;