Discussion :

[Geache]

Bonjour,

Dans une application, lorsqu'une erreur survenait, je faisais jouer un son bien précis par une commande shell avec le code suivant :

Code :

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

1
2
3
4
5
6
 
If existFileFSO(strPath) Then
        ShellExecute hwnd, "play", strPath, "", CurrentProject.Path, 1
Else
        DoCmd.Beep
End If

avec strpath qui représentait le son à jouer.

Aucun soucis si le lecteur MediaPlayer est le programme par défaut de lecture des sons.

Toutefois, chez un de nos clients, c'est VLC qui est utilisé. Peu importe la raison, c'est celui là et hors de question d'en changer.

Ce que je recherche, c'est une documentation concernant les propriétés et méthodes de la bibliothèque axvlc.dll et les contrôles activeX videolan VLC utilisables en VBA.

J'ai retourné le site de videolan.org mais je n'y trouve pas mon bonheur. J'y ai trouvé une documentation concernant un webplugin et je pensais pouvoir l'utiliser, mais non...

Quelqu'un aurrait-il la gentillesse de m'orienter, svp ?

Merci,

Bonne journée.

[Jean-Philippe André]

salut,

le wiki de VLC apporte peut etre d'autres réponses à ces questions

http://wiki.videolan.org/
http://wiki.videolan.org/ActiveX_Controls

Niveau code

Première étape, tu définis le fichier qui doit être lu:

Code :

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

VLCPlugin1.addTarget nomfichier, Null, VLCPlayListInsert, 0

Après tu lances la lecture

Code :

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

VLCPlugin1.play

[Geache]

Merci de ta réponse rapide, jpcheck. Je vais essayer cela. Je m'échine depuis une heure avec une commande vlc.playlist.add que j'ai trouvée par ailleurs.

Je vous tiens au courant des résultats.

Geache

[Geache]

Je n'ai plus une erreur object variable

J'ai placé ce code sur événement click d'un bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Command1_Click()
On Error GoTo ErrorHandling
Dim strTitle As String
'    strTitle = "C:\Tests\scan_completed.wav"
    strTitle = Chr(34) & "C:\Tests\scan_completed.wav" & Chr(34)
 
    VLCtst1.addTarget strTitle, Null, VLCPlayListInsert, 0
    ' VLCtst1.addTarget strTitle, Null, VLCPlayListAppend, 0
 
    VLCtst1.play
FinSub:
    Exit Sub
ErrorHandling:
    If Err.Number <> 0 Then
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume FinSub
End Sub

Maintenant, je reçois une erreur

Compile error:

Ambigous name detected : ~

J'explore les liens que tu m'as donné (et au dessus desquels j'étais passé, d'ailleurs ).

Geache

[Geache]

Bon, j'avais défini un controle activex de type vlc dans un formulaire et coché la référence Videolan vlc activex Plugin.

Si j'affiche la liste des propriétés et méthodes dans l'éditeur de code, j'ai deux fois VLCPlayListInsert, deux fois VLCPlayListAppend, etc...

Ce qui explique l'ambiguité sur le nom.

Ok, je décoche la référence Videolan vlc activex Plugin.

Je compile pour voir si une erreur est détectée, rien du tout.

Je lance mon formulaire, je clique sur le bouton...

Erreur 438 :

L'objet ne supporte pas cette propriété ou méthode.

[Jean-Philippe André]

Il te faut la référence, sinon ton plugin ne va pas fonctionner

l'aide du wiki indique la syntaxe

addTarget

method

Adds a uri to the current playlist or replaces the current playlist with the uri.

controlname.addTarget(uri as String, options, mode as VLCPlaylistMode, Position as Long)

Regarde les valeurs VLCPlaylistMode directement
http://wiki.videolan.org/VLCPlaylistMode

Datum Name Datum Value
VLCPlayListAppend 4
VLCPlayListAppendAndGo 12
VLCPlayListCheckInsert 16
VLCPlayListInsert 1
VLCPlayListInsertAndGo 9
VLCPlayListReplace 2
VLCPlayListReplaceAndGo 8