Post Reply 
 
Thread Rating:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
TVLLAVVideoPlayer playlist ?
03-11-2017, 10:49 PM (This post was last modified: 03-11-2017 10:56 PM by tyfab56.)
Post: #1
TVLLAVVideoPlayer playlist ?
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();
Find all posts by this user
Quote this message in a reply
03-21-2017, 09:12 PM
Post: #2
RE: TVLLAVVideoPlayer playlist ?
nobody on this point ?
Find all posts by this user
Quote this message in a reply
03-22-2017, 12:50 AM
Post: #3
RE: TVLLAVVideoPlayer playlist ?
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;
Find all posts by this user
Quote this message in a reply
Post Reply 


Forum Jump:


User(s) browsing this thread: 1 Guest(s)