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