Discussion :

[DurDur]

Bonsoir,

Peut-on piloter le lecteur VLC avec ACCESS ?
Par exemple le mettre plein écran.

Merci de vos conseils.

JCB57

[loufab]

Bonjour,
Déjà charger la référence de VLC (video lan...) dans VBA. Ensuite F2 et choisir AXVLC pour voir le modèle objet.

En complément voir sur le site des auteurs.

Normalement IVLCvideo.fullscreen c'est la propriété que tu devras utiliser.

N'hésite pas à nous faire part de tes avancées.


Cordialement,

[DurDur]

Merci pour cette réponse.
J'ai commebcé par la référence et fait un objet VLC dans un form et ça m'a planté ACCESS et foutu un sacré B... dans ma base.
Je suis absent une semaine, je me pencherai sur ça à mon retour.

JC57

[DurDur]

Bonjour,

J'avais commencé cette application il y a un petit moment et puis ...

En me servant d'un topic de CAFEINE "gerer des photos dans un formulaire",
je l'ai adapté pour gerer mes vidéos personnelles. Jusque là pas de problème, la base fonctionne bien et les images aussi, mais voilà, si je veux visionner les vidéos j'appelle le lecteur par un "shell" (VLC en l'occurence). Je m'en suis contenté jusqu'à maintenant mais ça ne me convient pas. Je voudrais pouvoir les visualiser dans un formulaire.
J'ai donc créer un form, j'ai chargé les plugins VLC et j'ai entré ce code trouvé sur le forum :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
    Dim EcranVLC As VLCPlugin2
    Set EcranVLC = Me.EcranVLC.Object
 
        MsgBox pathfilm
 
    EcranVLC.BaseURL = pathfilm
 
End Sub

Le résultat: le formulaire s'affiche correctement et c'est tout, pas de vidéo.

Est ce que j'ai loupé quelque chose ?

Si quelqu'un a une idée la dessus, je suis preneur.

Merci.

JCB57

[DurDur]

Bonsoir,

Voilà du code qui fonctionne avec VLC2.0 et plugin2.
Attention! pas de lettre accentuée dans le pathfilm.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Load()
PathFilm = "file:///" & PathFilm
EcranVLC02.playlist.Add PathFilm
EcranVLC02.playlist.play
EcranVLC02.Volume = 50
'DoCmd.Close
End Sub

Mais, il y a un mais.

Je cherche à fermer le formulaire contenant VLC à la fin de la vidéo mais la commande "Docmd.close" ferme le formulaire avant que VLC n'ai fonctionné.
Qui à une idée ?

Merci de votre aide.

JCB57