J'ai des problèmes avec BCB pour détecter la fin de lecture avec un TMediaPlayer.
J'utilise la propriété OnNotify mais certainement pas comme il faut car
la media me confirme la lecture à la fin de celle-ci. Cela vient
certainement du fait que OnNotify est appelé à la fin de l'opération.
Toujours est-il que je ne parviens pas à détecter la fin de lecture
grâce à ce code :
//---------------------------------------------------------------------------
void __fastcall TForm1::Player1Notify(TObject *Sender)
{
MediaPlayer1->Notify = true;
switch(MediaPlayer1->Mode)
{
case 1:
ShowMessage("stoppé");
break;
case 2:
ShowMessage("en lecture");
break;
case 5:
ShowMessage("en pause");
}
}
//---------------------------------------------------------------------------
Si vous avez des idées je suis preneur.
