Discussion :

[AraBorLeg]

Salut à tous,

Pour jouer un son dans mon programme j'utilise PlaySound de l'unité MMSystem. Mais pendant que le son se joue, mon programme s'arrête, alors que je voudrais que mon son se joue tant qu'une fenêtre est ouverte (et que l'utilisateur puisse intéragir dans cette fenêtre tout en entendant le son).

Voici la ligne que j'utilise :

Code :

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

PlaySound('son.wav', HInstance, SND_ASYNC);

Peut-être les arguments ne sont pas les mieux adaptés ? Ou existe-t-il une autre méthode qui me donnerait satisfaction ?

Merci d'avance si vous pouvez m'aider.

[evarisnea]

pourquoi mettre le HInstance alors que tu ne joues pas un son de ressource ?

[Sub0]

Salut!

Tu peux éventuellement essayer de mettre le sample en mémoire avant de lancer sa lecture :

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
Uses MMSystem;
 
Var sample: String;
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  SndPlaySound(Pointer(sample), SND_MEMORY Or SND_NODEFAULT Or SND_ASYNC);
End;
 
Initialization
  sample := LoadFile('son.wav');
 
Finalization
  sample := ''; 
End.

Comme l'a dit evarisnea, le paramètre hInstance est inutile puisque ce sample n'est pas (encore) une ressource.
Si tu souhaites utiliser une ressource, il faut créer un fichier RC contenant ceci :

Code :

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

sample wave son.wav

Il faut compiler le fichier RC avec BRCC32.EXE qui se trouve dans le dossier Bin de Delphi.
Puis, tu intègres cette ressource avec la directive $R :

Code :

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

1
2
3
4
5
6
{$R sample.res}
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  PlaySound('sample', hInstance, SND_RESOURCE or SND_SYNC);
End;

Tu peux aussi essayer d'utiliser ce sample en mémoire, ça devrait résoudre ton problème :

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
Uses Windows, MMSystem;
 
{$R sample.res}
 
Var sample: Pointer;
 
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  SndPlaySound(sample, SND_MEMORY Or SND_NODEFAULT Or SND_ASYNC);
End;
 
Initialization
  sample := Pointer(FindResource(hInstance, 'sample', 'wave'));
  If (sample <> Nil) Then Begin
    sample := Pointer(LoadResource(hInstance, HRSRC(sample)));
    If (sample <> Nil) Then sample := LockResource(HGLOBAL(sample));
  End;
End.

J'ai trouvé ce code sur le net et je ne l'ai pas testé. Perso, je préfère utiliser DirectSound car plus compatible et surtout beaucoups plus de possibilités, comme par exemple pouvoir lancer la lecture de plusieurs samples (mixage), changer la fréquence, le canal ou le volume de chacun, pouvoir lire et enregistrer en simultanné, etc... Tu trouveras des exemples (avec toutes les sources nécessaires) sur ma page :

http://sub0.developpez.com

à+