MediaPlayer avec FireMonkey
Bonsoir,
J'aimerais interrompre (ex : au bout de 30 secondes) la lecture d'un audio .wav en utilisant MediaPlayer et Timer, et rejouer l'audio au bout de 30 secondes.
Ce qui permet de faire une boucle selon la durée du fichier wav et de lire l'audio en permanence.
En VCL, le code ci-dessous fonctionne
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Timer2->Enabled=true;
MediaPlayer1->FileName ="musique.wav";
MediaPlayer1->Open();
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer2Timer(TObject *Sender)
{
Timer2->Interval += 1;
if (Timer2->Interval == 1030) // la lecture recommence au bout de 30 secondes
{
MediaPlayer1->Open();
MediaPlayer1->Play();
Timer2->Interval = 1000;
}
} |
Ce code ne marche pas avec FireMonkey qui ne reconnaît pas MediaPlayer1->Open()
Quelqu'un a t-il une solution ?
Merci d'avance
Cordialement
