fichier WAV, deja terminé?

Version imprimable

04/12/2006, 15h11
Flagada

fichier WAV, deja terminé?
Bonjour,

J'ai une question:

Quand je joue un fichier WAV, qui est situé dans un fichier resource, en utilisant PlaySound(), comment est ce je peux savoir si le fichier WAV a deja terminé ?
Code:

1 2 3 #include <vcl\mmsystem.hpp> PlaySound(“ID_WAVE”, HInstance, SND_ASYNC | SND_RESOURCE);
Merci,
Freek.
05/12/2006, 11h12
pottiez

Qu'entend tu par deja terminé ?
05/12/2006, 17h55
Gouyon
Citation:
Envoyé par Kolukumbo

Bonjour,

J'ai une question:

Quand je joue un fichier WAV, qui est situé dans un fichier resource, en utilisant PlaySound(), comment est ce je peux savoir si le fichier WAV a deja terminé ?

Code:

1 2 3 #include <vcl\mmsystem.hpp> PlaySound(“ID_WAVE”, HInstance, SND_ASYNC | SND_RESOURCE);

Merci,
Freek.
Je suppose que tu veux executer une action une fois que le son a fini de jouer.

Une solution consiste à remplacer SND_ASYNC par SND_SYNC.

Ce qui fait que la fonction PlaySound ne rend la main qu'une fois le son joué entièrement.

Une autre solution consiste à gérer le message MM_WOM_CLOSE qui est envoyé lorsqu'un wave a fini d'être joué

Rémi
05/12/2006, 19h36
Flow_75

sinon, avec l'objet "MediaPlayer" tu as une methode "onNotify"
qui te permet de faire des actions lors que ton fichier est fini
05/12/2006, 23h23
Flagada

Merci pour votre reponses. Excusez mois, mon francais n'est pas tres bien.

Dans mon application il y a beaucoup de sons. Mais quand un nouveau son commence, je veux etre sur qu' il y a pas un autre son qui est encore en train de jouer. Alors avant de jouer un son je veux faire un 'check'.

Le suggestion de utiliser MM_WOM_CLOSE me semble OK. Mais je ne sais pas beaucoup sur les messages Windows. Comment est ce que je pourrais faire cela?

Merci,

Freek
08/12/2006, 12h29
Gouyon

Vu ce que tu dis je pense que la solution la plus simple est de remplacer SND_ASYNC par SND_SYNC. dans ta fonction PlaySound. Comme ça dès que le fichier a fini d'être joué PlaySound rend la main.

En ce qui concerne les message je te conseille d'allez voir dans les FAQ et les tutoriel de Win32. C'est là que tu trouveras le plus d'info.

A+

Rémi

OK, mais je ne veux pas utiliser SND_SYNC parceque le programme doit continuer pendant le son. J'ai trouvé quelquepart comment il faut capturer les messages MM_WOM_CLOSE, MM_WOM_DONE et MM_WOM_OPEN.

Malheureusement Ça marche pas!!

C'est bizar: quand je remplace MM_WOM_DONE par WM_MOVE dans le code desous, le MessageBeep sonne quand la fenetre et deplacé. Mais avec MM_WOM_DONE et MM_WOM_CLOSE, rien du tout se passe après le WAV a fini de sonner.

Est ce que quelq'un a une idee ?? J'ai l'air d'etre pret de la solution.

Voila mon code complèt:

Unit1.h

Code:

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
 
#ifndef Unit1H
#define Unit1H
//----------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//----------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
 
private:
  void OnWaveDone(TMessage& msg);                             //  <<<
 
public:                  
  __fastcall TForm1(TComponent* Owner);
  BEGIN_MESSAGE_MAP                                           //  <<<
    MESSAGE_HANDLER(                                          //  <<<
      MM_WOM_DONE, TMessage, OnWaveDone)                      //  <<<
  END_MESSAGE_MAP(TForm)                                      //  <<<
};
 
//-----------------------------------------------------
extern PACKAGE TForm1 *Form1;
//-----------------------------------------------------
#endif

Unit1.cpp

Code:

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
 
 
#include <vcl.h>
#pragma hdrstop
#include <vcl\mmsystem.hpp>                     // Pour PlaySound()
#include "Unit1.h"
//------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-----------------------------------------------------
 
void TForm1::OnWaveDone(TMessage& msg)                       //  <<<
{
  MessageBeep(0);
}
//----------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PlaySound("Sound1", HInstance, SND_ASYNC | SND_RESOURCE);
}
//---------------------------------------------------

Et bien sur j'ai ajouté un fichier .RC avec un WAV:

Code:

1
2
 
Sound1 WAVE "noise1.wav"

J'ai trouvé cette example ici:
http://www.bcbjournal.org/articles/v...fb9e4e5c53228e

[/url]

La première chose à vérifier est de voir si les messages MM_WOM_CLOSE, MM_WOM_DONE ou MM_WOM_OPEN sont bien interceptés.

Plutôt que de faire un beep (qui passe peut être par la carte son) je mettrais un point d'arret. Ou si tu n'est pas familiiarisé avec le débugger je te propose le code suivant:

Code:

1
2
3
4
5
6
 
void TForm1::OnWaveDone(TMessage& msg)                       //  <<<
{
  //MessageBeep(0);
  Termine=true;
}

Tu définis Termine comme une variable privée de TForm1

Code:

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
 
#ifndef Unit1H
#define Unit1H
//----------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//----------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
 
private:
  void OnWaveDone(TMessage& msg);                             //  <<<
 
  // Variable de contrôle de fin de lecture du son wav
  bool Termine;
 
public:                  
  __fastcall TForm1(TComponent* Owner);
  BEGIN_MESSAGE_MAP                                           //  <<<
    MESSAGE_HANDLER(                                          //  <<<
      MM_WOM_DONE, TMessage, OnWaveDone)                      //  <<<
  END_MESSAGE_MAP(TForm)                                      //  <<<
};
 
//-----------------------------------------------------
extern PACKAGE TForm1 *Form1;
//-----------------------------------------------------
#endif

Tu initialise Termine à faux avant de jouer ton son. Puis tu lance la méthode d'attente de fin de lecture lorsque tu en as besoin.

Code:

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
37
38
39
40
41
42
43
44
45
46
 
#include <vcl.h>
#pragma hdrstop
#include <vcl\mmsystem.hpp>                     // Pour PlaySound()
#include "Unit1.h"
//------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//-----------------------------------------------------
 
void TForm1::OnWaveDone(TMessage& msg)                       //  <<<
{
  MessageBeep(0);
}
//----------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Termine=false;
 
  PlaySound("Sound1", HInstance, SND_ASYNC | SND_RESOURCE);
}
//---------------------------------------------------
// cette méthode attend que la variable termine soit vraie
// dans un délai fixé par TimeOUT
int __fastcall TForm1::AttenteFinLectureWav(int TimeOUT)
 {
   DWORD T0,T1;
   T0=GetTickCount();
   T1=T0;
   while(T1-T0<TimeOUT && !Termine)
    {
      Sleep(10);
      T1=GetTickCount();
    }
   if(Termine)
    return 0;
   else
    return -1;
}

Le TimeOUT de la méthode permet d'éviter une attente infinie.

13/12/2006, 21h33
Flagada
Merci Gouyon pour ton suggestion.
J'ai essayé ton code mais Ça ne marche pas non plus. J'ai ajoute un deuxieme bouton et un Memo pour lire le valuer de "Termine":
Code:

1 2 3 4 5 6 7 8 9 void __fastcall TForm1::Button2Click(TObject *Sender) { int Test = AttenteFinLectureWav(100); if (!Test) Memo1->Lines->Add("Fini"); else Memo1->Lines->Add("Pas fini"); }
Si je presse le button2 (pendant le son ou après le son), le resultat et toujours "Pas fini", soit que je le presse plusieurs fois, soit que je mets 1000 comme parametre dans le fonction AttenteFinLectureWav.
Et encore une fois, quand j'utilise WM_MOVE, tout marche comme il faut. Alors, mon probleme n'est toujours pas résolu.....:(

Salut !
Citation:
Envoyé par Kolukumbo
Code:

1 2 3 4 5 6 7 8 9 void __fastcall TForm1::Button2Click(TObject *Sender) { int Test = AttenteFinLectureWav(100); if (!Test)//C'est quoi ça ???? Memo1->Lines->Add("Fini"); else Memo1->Lines->Add("Pas fini"); }
En éspérant t'aider :

http://glouise.developpez.com/WaveBCB6/

Bonne chance !

14/12/2006, 12h15
Flow_75

comme je l'ai dis precedement,

La classe MediaPlayer possède une méthode qui est executer lors d'une notification de fin de lecture

Citation:

Envoyé par Flob91

comme je l'ai dis precedement,

La classe MediaPlayer possède une méthode qui est executer lors d'une notification de fin de lecture

OK, J'ai essaye le MediaPlayer.
Je comprend comment il faut utiliser OnNotify, mais je ne réussis pas a jouer un WAV. Et J'ai trouvé un page ou ils disent que le MediaPlayer a un bug et qu'il ne peut pas jouer des fichiers WAV en Win2000:

http://qc.borland.com/wc/qcmain.aspx?d=17930

Ils disent aussi que le probleme a ete résolu, mais quand meme, Ça marche pas.

Voila mon code:
Code:

1 2 3 4 5 6 7 8 char sWinDir[255]; GetWindowsDirectory(sWinDir, sizeof(sWinDir)); MediaPlayer1->FileName = AnsiString(sWinDir) + "\\sound.wav"; //specify file MediaPlayer1->DeviceType = dtWaveAudio; MediaPlayer1->Open(); MediaPlayer1->Play();
Quoi faire ??

15/12/2006, 22h19
Flow_75

ils disent de faire seulement ces étapes apres avoir mis un TMediaPlayer dans la Form :

1- de mettre la propriété Autoopen a true :

Code:

MediaPlayer1->AutoOpen = true

2 - de mettre le nom du fichier

3 - Play
16/12/2006, 13h15
Flagada
Et bain, si je fais ça, ça donne une erreur: "No MCI device open".
Code:

1 2 3 4 MediaPlayer1->AutoOpen = true; MediaPlayer1->FileName = "e:\temp\sound.wav"; MediaPlayer1->Play();
Ne n'y comprend rien. :arf:

Il faut doubler les anti slash :

Code:

1
2
3
MediaPlayer1->AutoOpen = true;
MediaPlayer1->FileName = "e:\\temp\\sound.wav";
MediaPlayer1->Play();

17/12/2006, 13h00
Flagada
OK merci, finalement ça marche! Seulement, le Property AutoOpen ne marche pas, ça donne le meme erreur. Mais ce n'est pas une problème.
Code:

1 2 3 4 MediaPlayer1->FileName = "e:\\temp\\sound.wav"; MediaPlayer1->Open(); MediaPlayer1->Play();
Maintenant, mon derniere question sur le MediaPlayer est: comment il faut jouer un son WAV qui est situé dans un fichier resource avec MediaPlayer.
Avec le fonction PlaySound on peut faire:
Code:

1 2 PlaySound(“ID_WAVE”, HInstance, SND_ASYNC | SND_RESOURCE);
Comment le faire pour le MediaPlayer?