Discussion :

[LeonCosnyd]

Bonjour,

J'aimerais savoir si quelqu'un a déjà eu à créer un programme avec Lazarus/Pascal dans lequel il devait ajouter un lecteur vidéo, et bien sur par quels outils il est passé pour le créer.

Je ne vois pas quel composant utiliser. J'ai l'impression qu'il n'existe pas de composant fourni par lazarus donc j'imagine que l'on est dans l'obligation de passer par un composant externe (sdk).

Si quelqu'un peut me faire part de son expérience, ou si vous avez des pistes je suis preneur !

Merci d'avance.

[FOCUS77]

Bonsoir,

Cette discussion pourra probablement régler ton problème.ici

merci.

[FChrisF]

N'ayant jamais intégré ce type de fonctionnalité, je ne peux donc faire part de mon expérience; désolé.

Ceci étant, il n'existe en effet rien "en standard" dans Lazarus. Il faut s'appuyer sur des composants ou des bibliothèques, avec souvent de plus un outil externe (VLC, MPLayer ...).

Voici un lien regroupant plusieurs solutions pour Lazarus/Free Pascal: http://wiki.lazarus.freepascal.org/V...back_Libraries

Ainsi qu'un article portant sur l'utilisation de libvlc/lazvlc: http://www.freepascal.org/~michael/a...vlc/lazvlc.pdf

(Note: les liens sont en anglais).

[LeonCosnyd]

Merci pour vos réponses.

Je vais étudier tout ça et essayer de le mettre en pratique. Je reviendrais vous faire un retour rapidement.

[Jipété]

Yop !

Il existe des exemples dans dossier_install_lazarus/version/components/mplayer

[FOCUS77]

Bonsoir,

IL ne faut pas oublier d'indiquer l'emplacement de la console MPlayer.exe ainsi que celle de ta vidéo.
figure de MPlayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
   mplayercontrol1.MPlayerPath:=ExtractFilePath(Application.ExeName)+'MESVIDEOS/Moteur/MPlayer.exe';
   mplayercontrol1.Filename:=ExtractFilePath(Application.ExeName)+'MESVIDEOS/Videos/WildLife.WMV' ; // ici votre vidéo.
end;

merci.