Discussion :

[Roland Chastain]

Bonjour !

Je voudrais intégrer un son dans un jeu (sous Windows). Le son est chargé depuis un fichier WAV.

J'ai d'abord essayé la fonction PlaySound de l'unité MMSystem. Le problème est que la première fois que le son est joué, il y a un délai entre l'événement et le moment où le son est effectivement joué. La longueur de ce délai varie d'une exécution à l'autre. Quelquefois le délai est presque imperceptible, quelquefois c'est vraiment gênant.

Alors je me suis tourné vers la bibliothèque BASS. Résultat : même phénomène. J'ai posé la question sur le forum consacré à cette bibliothèque. On m'a proposé des modifications à mon code mais aucune n'a résolu le problème et finalement mon interlocuteur, qui paraît pourtant maîtriser son sujet, m'a dit qu'il ne savait pas d'où venait le problème !

Avez-vous une expérience ou des idées sur le sujet ? Pouvez-vous me confirmer que ce problème existe et n'est pas une hallucination de ma part ? Connaissez-vous une bibliothèque qui permettrait de faire ce que je souhaite ?

Je joins mon projet dans son état actuel, au cas où quelqu'un voudrait faire des essais. Attention, le projet utilise les bibliothèques BGRABitmap et BASS.

[Jipété]

Bonsoir,

Le son est chargé depuis un fichier WAV.

et il faut donc le temps de le charger, pour qu'il soit ensuite joué.
Pour les autres lectures il doit être pris dans un cache (le genre de chose à laquelle nous n'avons pas accès) et ça va beaucoup plus vite pour y accéder.

La solution que je tenterais (non, je n'ai pas téléchargé ton .zip) serait de mettre le fichier en mémoire au lancement du programme (dans un stream ? Et appeler le lecteur en lui passant le stream ?)

Et si ça ralentit le lancement du programme (tu ne nous dis rien de ce fichier son, particulièrement sa taille), déléguer son chargement à un thread secondaire.

Mes 2 cts,

[Roland Chastain]

@Jipété

Merci pour ta réponse. Je me rends bien compte qu'il faut charger le son avant de le jouer, et c'est d'ailleurs ce que fait le code que j'ai posté.

Il se trouve que j'ai résolu le problème en remplaçant BASS.DLL par la dernière version, sur le conseil qui m'avait été donné dans l'autre forum. La raison de la différence entre les deux versions restera un mystère.

Bonne soirée !

[Roland Chastain]

Au cas où cela intéresserait quelqu'un, voici le code que j'utilise. Il y a deux versions, qui fonctionnent pareillement. On m'a dit qu'il pouvait être préférable d'utiliser un sample plutôt qu'un stream, si le son devait être joué de nombreuses fois. Ne m'en demandez pas plus !

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
35
36
 
unit sound1;
 
{$MODE objfpc}{$H+}
 
interface
 
type
  TSnakeSound = (ssEat, ssDie, ssHighScore);
 
procedure Play(const aSound: TSnakeSound);
 
implementation
 
uses
  SysUtils, Bass;
 
var
  stream1: HSTREAM;
 
procedure Play(const aSound: TSnakeSound);
begin
  case aSound of
    ssEat:
      BASS_ChannelPlay(stream1, FALSE);
    ssDie:;
    ssHighScore:;
  end;
end;
 
initialization
  BASS_Init(-1, 44100, 0, {Handle}0, nil);
  stream1 := BASS_StreamCreateFile(FALSE, pchar('sfx_coin_double5.wav'), 0, 0, 0);
finalization
  BASS_Free;
end.

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
35
36
 
unit sound2;
 
{$MODE objfpc}{$H+}
 
interface
 
type
  TSnakeSound = (ssEat, ssDie, ssHighScore);
 
procedure Play(const aSound: TSnakeSound);
 
implementation
 
uses
  SysUtils, Bass;
 
var
  sample1: HSAMPLE;
 
procedure Play(const aSound: TSnakeSound);
begin
  case aSound of
    ssEat:
      BASS_ChannelPlay(BASS_SampleGetChannel(sample1, FALSE), FALSE);
    ssDie:;
    ssHighScore:;
  end;
end;
 
initialization
  BASS_Init(-1, 44100, 0, {Handle}0, nil);
  sample1 := BASS_SampleLoad(FALSE, pchar('sfx_coin_double5.wav'), 0, 0, 1, 0);
finalization
  BASS_Free;
end.

[BeanzMaster]

Bonjour,
Vu que tu as réglé ton problème. Petite question, pourquoi ne pas utiliser OpenAL plutôt que BASS ? Ton programme marcherait également sous Unix. Si jamais fais-moi signe : j'ai tout le code qu'il faut pour OpenAL (formats supportés wav, mp3 et ogg). Sinon jette un œil là pour un code plus simple et un peu moins complet que le mien.

A+

[Roland Chastain]

@BeanzMaster

Oui, ça m'intéresse, pour ce projet-là ou pour un autre. J'avais essayé le code présenté sur cette page : ça fonctionnait bien mais ça m'avait paru un peu compliqué.

Si tu as un exemple d'utilisation, je suis preneur.

[BeanzMaster]

@BeanzMaster

Oui, ça m'intéresse, pour ce projet-là ou pour un autre. J'avais essayé le code présenté sur cette page : ça fonctionnait bien mais ça m'avait paru un peu compliqué.

Si tu as un exemple d'utilisation, je suis preneur.

Oui effectivement, c'est un peu long pour gérer toutes les possibilités d'OpenAl (c'est comme avec OpenGL). Je joint le zip de OpenALSoundManager qui est beaucoup plus simple que mes sources comme je le disais. Il y a un exemple d'utilisation fournis avec. Mais suivant si tu désires pouvoir appliquer des effets comme le reverb, flanger, echo, filtre lo/hi pass, support de fichiers encodés en surround, 5.1, 6.1, wav, mp3, ogg fais moi signe et je te ferai un zip de mes sources. Mais je me répète ma librairie étant un peu plus complète, il y a beaucoup plus de dépendances. Mais elle permet si je le désire d'interfacer Bass, ou tout autre gestionnaire audio en plus, et d'ajouter aisément d'autres formats de fichier.

OpenALSoundManager : OALSoundManager.7z