Forums

I try to play next clip of a playlist with the TVLLAVVideoPlayer, but my code on the stop events dossn't launch the next clip ...

Does somebody knows the correct sequence of instruction to do this ?

loop is set to false

on stop event code :

if select1 > length(arrayfichier1)
then
select1 := 1
else
select1 := select1 +1;

fichier1 := arrayfichier1[select1-1];
titre1.Caption := extractfilename(fichier1);

P1.FileName := fichier1;
p1.Open;

Application.HandleMessage;
p1.Paused := False;
p1.Start();

nobody on this point ?

It's ok, it was the sound componenet that froze the play ... you have to disconnect

Correct code is :

if select1 >= length(arrayfichier1)
then
select1 := 1
else
select1 := select1 +1;

fichier1 := arrayfichier1[select1-1];
titre1.Caption := extractfilename(fichier1);
P1.AudioOutputPin.Disconnect;
P1.Close;
P1.FileName := fichier1;
P1.Open;
P1.AudioOutputPin.Connect(sound.InputPin);
P1.start;