+- Forums (http://mitov.com/forum)
+-- Forum: VCL Components (/forum-6.html)
+--- Forum: VideoLab (/forum-19.html)
+--- Thread: TVLLAVVideoPlayer playlist ? (/thread-3595.html)
TVLLAVVideoPlayer playlist ? - tyfab56 - 03-11-2017 10:49 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();
RE: TVLLAVVideoPlayer playlist ? - tyfab56 - 03-21-2017 09:12 PM
nobody on this point ?
RE: TVLLAVVideoPlayer playlist ? - tyfab56 - 03-22-2017 12:50 AM
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;