Fmod sur delphi 2009 compile mais pas de son

Bonjour

voila j'ai un gros probleme.
je realiser avec 3 autre personne un jeu video
j'ai codé un bout de code tout simple pour pouvoir jouer de la musique
avec fmod.
lorsque je le compile tout se passe bien mais il n'y a aucun son !!!!

petit precision je suis sur delphi 2009.
j'ai compiler mon code sur delphi 2007 et la magique sa marche nikel dc mon
code ai bon.

le probleme ai que je veu faire un moteur son avec fmod (trop facile) mais qu'aucun son ne sort quand je compile sur delphi 2009.

vous me direz que je n'ai qu'a passer sur delphi 2007 !!! oui sa serai plus simple mais mon moteur son sera ajouter dans notre jeu qui a ete codé en opengl sur delphi 2009 donc il m'ai impossible de repasser sur delphi 2007
a moin de tout refaire (enfin presque juste les dpr)


svp A L'AIDE

Salut je suis nouveau mais je peux quand même t'aider.
J'ai eu le même problème mais j'ai réussi à trouver le problème

Voici un exemple

Code:

---

1 2 3 4 5 6 7 8

var FSYSTEM,FSOUND,FCHANNEL:Pointer;   Fmod_System_Create(FSYSTEM); Fmod_System_Init(FSYSTEM,2,FMOD_INIT_NORMAL,0); Fmod_System_CreateStream(FSYSTEM,PAnsiChar(TonFichier),FMOD_UNICODE,NIL,FSOUND); Fmod_System_PlaySound(FSYSTEM,FMOD_CHANNEL_FREE,FSOUND,false,FCHANNEL);

---

Verifies dans tes headers que les PChar soit remplacé par des PAnsiChar

je ne comprend pas bien ton exemple.
je code en delphi pas en C donc quand tu parle de headers je voi pas trop.

voici mon coder qui marche, c'est a dire qu'il compile sens erreur mais il n'y a pas de son sur delphi 2009.
(sur delphi 2007 ya du son)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var stream : PFSoundStream;   begin FSOUND_Init(44100, 128, 0); stream := FSOUND_Stream_Open('track.mp3', 0, 0, 0); FSOUND_Stream_Play(FSOUND_FREE, stream); FSOUND_SetVolume(FSOUND_ALL, 255); Writeln('Play'); Readln; FSOUND_Stream_Stop(stream); FSOUND_Stream_Close(stream); end.

---

Re,

Je croyais que tu codais avec fmodex et pas avec fmod 3
Mon exemple fonctionne avec fmodex désolé :?
Quand je parlais des headers, je parlais des .pas (je confonds certains truc)
^^.

NB:
Voici la solution pour fmod 3;

Ouvrir le fichier fmod.pas --> aller à

Code:

---

function FSOUND_Stream_Open(const name_or_data: PChar; Mode: Cardinal; Offset: Integer; Length: Integer): PFSoundStream; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF};

---

remplacer tout simplement PChar par PAnsiChar (delphi 2009 utilise l'unicode)

Code:

---

function FSOUND_Stream_Open(const name_or_data: PAnsiChar; Mode: Cardinal; Offset: Integer; Length: Integer): PFSoundStream; {$IFDEF LINUX} cdecl {$ELSE} stdcall {$ENDIF};

---

Le code suivant marche à présent parfaitement:

Code:

---

1 2 3 4 5 6 7 8

procedure TForm1.FormCreate(Sender: TObject); var stream : PFSoundStream; begin FSOUND_Init(44100,32,0); stream := FSOUND_Stream_Open('ton fichier', 0, 0, 0); FSOUND_Stream_Play(FSOUND_FREE, stream); end;

---

MERCI c vraiment geniale !!!!

sa marche super.