Lire un fichier MIDI

Version imprimable

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:

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++

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:

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

dans le cpp:

Code:

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);
        }
}

17/12/2005, 11h53
jagboys

Mci

Bonjour,

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

Jagboys
17/12/2005, 13h08
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:

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++