Erreur avec FMOD et Delphi lors d' un Stream_open

Bonjour,

Dans la poursuite de mon projet de réalisation d un lecteur mp3, j en suis arrivé à la gestion du son.

J'ai choisi FMOD.

Mais voilà j'ai un problème, quand j execute ce code :

Code:

---

1 2 3 4 5 6 7 8 9

current_song := FSOUND_Stream_Open( PChar(current_song_str), FSOUND_2D, 0, 0 ); if(current_song = nil)then Application.Terminate else begin current_channel := FSOUND_Stream_Play(12, current_song); if(current_channel = -1)then Application.Terminate; end;

---

Une exception se produit expliquant qu'un acces à 0000000 est effectué lors de l execution de FSOUND_Stream_Open.

Je n'arrive pas à savoir pourquoi cette erreur se produit.

Pour info, current_song_str est une string, current_song un handle de type PFSOUNDStream, et current_channel un integer.

Salut,
Tu l'as déclaré comment current_song_str ?

bonjour,

Current_song_str : string

Citation:

---

Envoyé par gobgob

bonjour,

Current_song_str : string

---

C'est bien une variable déclaré comme ceci ?

Code:

---

var Current_song_str : string;

---

Pas une propriété de classe déclarée comme ceci ?

Code:

---

property Current_song_str : string read ....

---

Ta chaîne est-elle vide ? (ça peut être la raison de ta violation d'accès)

Tu peux essaiyer de déclarer un pchar intermédiaire auquel tu affectes ta chaîne de caractère, ou bien tu peux essayer de passer par un array of char

Ou bien encore tu redimensionne ta chaine de caractère avec SetLength pour qu'elle est un caractère de plus, et tu initialise le dernier caractère à la valeur ASCII zéro :

Code:

---

1 2	SetLength(Current_song_str,length(Current_song_str)+1); Current_song_str[length(Current_song_str)]:=chr(0);

---

En effet, deux choses :
- soit le PChar envoyé à ta fonction est égal à nil (c'est le plus probable vu que ta violation d'accès est en 0x000000000)
- soit il te manque un zéro terminal dans le PChar (j'en doute fort)...

est-ce que tu a bien tapé cette partie ?

Code:

---

1 2 3 4 5 6 7 8

if not FSOUND_Init(44100, 16, 0) then begin writeln('Error! Initializing'); writeln(FMOD_ErrorString(FSOUND_GetError())); FSOUND_Close(); exit; end;

---

si oui est-ce que tu pourrai poster ton code, parce qu'a priori, ca devrai fonctionner :?

Bonsoir,

Je suis désolé de tous vous avoir dérangé, l'erreur a été résolue lorsque j'ai simplement retiré fmodpresets et fmoddyn dans mes uses.

En revanche j aimerais savoir pourquoi l inclusion de ces .pas faisait planter le reste du logiciel.

Merci du coup de main !