Appel de VLC

Version imprimable

24/11/2012, 20h12
Romanaxx

Appel de VLC

Bonsoir,

je suis étudiant en école d'ingénieur. Nous avons un projet à faire qui serait un petit quizz musical.
Nous voulons utiliser vlc pour lire la musique. J'ai essayé la faq pour exécuter un programme externe mais je n'arrive pas à l'appliquer à VLC.
Ma question est donc : comment exécuter VLC avec Lazarus afin de lire nos musiques ?

Merci ! Je tiens à préciser que je suis plus que débutant dans le domaine ;)

Bonsoir
sous ubuntu / linux il y a ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
implementation
 uses process;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  var openvlc: TProcess;
begin
  openvlc:= TProcess.Create(nil);
  openvlc.CommandLine:= 'vlc';
  openvlc.Execute;
end;

25/11/2012, 15h51
Invité
Bonjour,

Une piste peut-être du côté du Forum Lazarus : http://www.lazarus.freepascal.org/index.php?action=search
- Lien : Search
- Champ de recherche : vlc
A ce jour 23 discussions à ce sujet dont 16 en 2012.
A+

Winow,
Faudrait penser à libérer l'allocation mémoire !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
implementation
 uses process;
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
  var openvlc: TProcess;
begin
  openvlc:= TProcess.Create(nil);
  try
    openvlc.CommandLine:= 'vlc';
    openvlc.Execute;
  finally
    openvlc.Free ;
  end ;
end;

Merci pour votre aide, j'arrive désormais à appeler vlc pour lire une musique. Je souhaite désormais en lire plusieurs à la suite. Le problème est qu'il ouvre toutes les musiques à la suite sans attendre la fin de chaque chanson. J'ai essayé cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program launchprogram; uses Classes, SysUtils, Process; var AProcess: TProcess; i : integer; procedure vlc(fichier : String); begin AProcess := TProcess.Create(nil); AProcess.CommandLine := 'vlc --play-and-exit ' + fichier; AProcess.Options := AProcess.Options + [poWaitOnExit]; AProcess.Execute; AProcess.Free; end; begin Repeat Inc ( i , 1 ) ; vlc('i.mp3'); until (i > 3); end. end.
pour commencer j'ai appelé mes chansons 1,2....
Si je mets :
vlc('1.mp3');
vlc('2.mp3');
Les deux musiques s'enchainent bien. Y a t'il une fonction qui me permettrait de faire une boucle avec des "i" comme par exemple :
for i:=1 to n do
vlc('i.mp3')

L'idée finale étant de faire lire un dossier entier de musique à la suite.
merci

26/11/2012, 15h59
tourlourou

Il y a même plusieurs idées :

1) utiliser la fonction IntToStr pour générer les noms de fichiers : for i:=1 to NbFichiers do FileName:=IntToStr(i)+'.mp3';2) parcourir le répertoire pour récupérer les fichiers avec l'extension mp3 en utilisant FindFirst, FindNext, FindClose, TSearchRec.
23/08/2016, 14h31
pedestre

Bonjour,

Pour jouer une liste de musiques il suffit tout simplement d'envoyer comme nom de fichier la chaine de caractères obtenue en écrivant à la suite les noms de fichiers des musiques, séparés chacun du suivant par un intervalle.

Cordialement