03-11-2017, 06:22 PM
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();
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();