Discussion :

[winow]

Bonjour

SVP
Ce code lit une sequence midi a l'appuit sur un TButton, mais ne le lit qu'une fois, ont peut appuyer 50 fois sur le TButton, rien ne se passe ? Pourquoi ?

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
 
//inclure mmsystem
 
#include "mmsystem.h"
 
 
//jouer le morceau par un clickbutton.
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
//Ouverture du periph midi
 
UINT uiMIDIPlayerID;
MCI_OPEN_PARMS mciOpenParms;
mciOpenParms.lpstrDeviceType = "sequencer";
mciOpenParms.lpstrElementName = "C:\\mid.mid";
 
if(mciSendCommand(NULL, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_ELEMENT, (DWORD_PTR)&mciOpenParms)== 0)
 
 
//Obtention de l'ID du sequencer MIDI
 
uiMIDIPlayerID = mciOpenParms.wDeviceID;
 
 
//Jouer le fichier MIDI
 
MCI_PLAY_PARMS mciPlayParms;
mciSendCommand(uiMIDIPlayerID, MCI_PLAY, 0, (DWORD_PTR)&mciPlayParms);
}
//---------------------------------------------------------------------------

Merci
Merci A++

[Djob]

connaissais pas ça tiens,

mais d'instinct je dirais parce que le device est déjà ouvert ...
peut être faudrait un close :

essai peut être ça :

dans le .h

Code :

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

1
2
 
UINT uiMIDIPlayerID; //<--variable publique de Form1

dans le cpp:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        MCI_OPEN_PARMS mciOpenParms;
        mciOpenParms.lpstrDeviceType = "sequencer";
        mciOpenParms.lpstrElementName = "C:\\mid.mid";
        mciSendCommand(uiMIDIPlayerID,MCI_CLOSE,0,NULL);
        if(mciSendCommand(NULL, MCI_OPEN, MCI_OPEN_TYPE | MCI_OPEN_ELEMENT, (DWORD_PTR)&mciOpenParms)== 0)
        {
          uiMIDIPlayerID = mciOpenParms.wDeviceID;
          MCI_PLAY_PARMS mciPlayParms;
          mciSendCommand(uiMIDIPlayerID, MCI_PLAY, 0, (DWORD_PTR)&mciPlayParms);
        }
}

[jagboys]

Bonjour,

Essais de faire un MCI_CLOSE à la fin de ta fonction Button1Click.

Jagboys

[winow]

Bonjour Djob et jagboys

Et Merci de m'avoir repondu.

Je vient de testé, c'est bon Djob, ca marche impecable MERCI.

Donc le code est bon, je ne le reecrit pas
Pour information supplementaire

Code :

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

1
2
3
4
5
6
 
//Pour mettre en pause : 
mciSendCommand(uiMIDIPlayerID, MCI_PAUSE, 0, NULL);
 
//Pour arretté le morceau en cour de lecture :
mciSendCommand(uiMIDIPlayerID, MCI_CLOSE, 0, NULL);

Je vous remerci Djob et jagboys Merci et A++