Activex VLC

Question

Bonjour,

Mon probléme est simple enfin pas pour les débutants comme moi.

Je voudrais piloter vlc (lecteur vidéo).
J'arrive a importer tous ces composants mais pas à les utiliser. 
j'aimerais une aide de votre part.

Merci d'avance.

cs_cantador · Answer

Pose une question précise et pas une bouteille à la mer...
et fais toi un avatar..

cantador

cs_bilboss77 · Answer

Salut, voici une commande tres simple pour lire un fichier:

VLCPlugin1.addTarget('ton_fichier.mp3', null, VLCPlayListInsert, 0);
vlcplugin1.play;

cs_theantho07 · Answer

Bonjour,

Désolé de répondre si tard et merci à vous pour vos réponses.
Ma question est la suivante :
Est il possible de pouvoir afficher des images par exemples .jpg pendant un laps de temps défini.
C'ést à dire je veus qu'une image dure 10 secondes avant de passer à la suivante ???

Merci d'avance pour ceux qui répondront.

cs_bilboss77 · Answer

Re bonjour theantho07
Je suis plutot debutant dans delphi mais je vais quand meme essayer de te repondre:

Si ce que tu veut faire un diaporama il te faudras un composant image avec un Timer et un bouton, voici donc le code a utiliser:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
// Ne pas oublier d'ajouter "jpeg" dans les uses
type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  //Nos 2 variables: "liste_image" qui contiendras la liste des images a afficher et "image" qui seras le numero de l'image affiché
  liste_image : tstringlist;
  image : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//Lancer le timer
timer1.Enabled:=true;
//Mettre la variable image a 0
image := 0;
//Créer puis charger la liste d'images
liste_image := tstringlist.create;
liste_image.LoadFromFile('maliste.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Si il y a encore des immages a afficher: les afficher, Sinon arreter le diaporama avec le message "diaporamma terminé"
if image < liste_image.Count
then begin
image1.Picture.LoadFromFile(liste_image[image]); //chargement de l'image depuis la stringlist a la ligne "image"
image := image+1
end
else begin
timer1.Enabled:=false;
showmessage ('diaporamma terminé');
end;
end;

end.


Dans ce code la liste des images à afficher dans le diaporama est dans le fichier "maliste.txt"
 qui se forme par exemple comme ceci:

Flowers_power.jpg
UT3.jpg
Windows Heaven.jpg
00010350.jpg
Dreams Remains.jpg

Voila j'espere avoir été utile :)

cs_bilboss77 · Answer

Oups! il semble que les sauts a la ligne n'ai pas été pris en compte dans ce message

Re bonjour theantho07
Je suis plutot debutant dans delphi mais je vais quand meme essayer de te repondre:

Si ce que tu veut faire un diaporama il te faudras un composant image avec un Timer et un bouton, voici donc le code a utiliser:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;
// Ne pas oublier d'ajouter "jpeg" dans les uses
type
  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  //Nos 2 variables: "liste_image" qui contiendras la liste des images a afficher et "image" qui seras le numero de l'image affiché
  liste_image : tstringlist;
  image : integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//Lancer le timer
timer1.Enabled:=true;
//Mettre la variable image a 0
image := 0;
//Créer puis charger la liste d'images
liste_image := tstringlist.create;
liste_image.LoadFromFile('maliste.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Si il y a encore des immages a afficher: les afficher, Sinon arreter le diaporama avec le message "diaporamma terminé"
if image < liste_image.Count
then begin
image1.Picture.LoadFromFile(liste_image[image]); //chargement de l'image depuis la stringlist a la ligne "image"
image := image+1
end
else begin
timer1.Enabled:=false;
showmessage ('diaporamma terminé');
end;
end;

end.


Dans ce code la liste des images à afficher dans le diaporama est dans le fichier "maliste.txt"
 qui se forme par exemple comme ceci:

Flowers_power.jpg
UT3.jpg
Windows Heaven.jpg
00010350.jpg
Dreams Remains.jpg

Voila j'espere avoir été utile :)

cs_cantador · Answer

Tiens ça serait bien un système de balises pour encapsuler du code.. comme on en voit sur d'autres forums..

cantador

cs_theantho07 · Answer

Merci à toi pour tes réponses, mais c'est pas tout à fait ce que je cherche.
Je voudrais afficher mes images pendant un laps de temps comme tu as si bien expliqué mais avec VLC (lecteur média), car je dois aussi afficher des fichiers .swf ou .flv suivant une playlist.
Ou si tu as une meilleure solution pour le lecteur médi je suis prenneur.

 Merci à toi.

Activex VLC

7 réponses

Votre réponse

Discussions similaires