Discussion :

[gobgob]

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 :

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

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.

[LadyWasky]

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

[gobgob]

bonjour,

Current_song_str : string

[LadyWasky]

bonjour,

Current_song_str : string

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

Code :

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

var Current_song_str : string;

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

Code :

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

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 :

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

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)...

[denokan]

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

Code :

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

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

[gobgob]

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 !