[R] Ajouter une video au programme

[lSlpynao]

Le problème
Je voudrais ajouter à mon programme une vidéo.
( la vidéo peut-être de youtube ou une vidéo de mon ordi je m'en fiche )

ps: si c'est impossible dite le moi et j' essayerais de trouver une autre façon.
( c'est pour ajouter un tutoriel vidéo accessible grâce a une option du menu )

[pop45]

ouvre l'aide d'AutoIt puis cherche _GUICtrlAVI.
Tu devrais peut être avoir ce qu'il te faut ,je dis peut être car je n'ai jamais essayer ces fonctions

[lSlpynao]

Merci beaucoup , je vais dans l' aide je te tient informer de la suite .

[lSlpynao]

Petit problème , ce qu'il y a écrit est pire que du charabia .
Demande une aide s'il vous plait .

[pop45]

Ha au fait , la balise "[..]" c'est dans le titre et non le message qu'il faut le mettre

Sinon j'ai fait quelque essais mais je n'arrive pas a le faire fonctionner...

Je vien de remarquer que l'on ne peut faire tourner que des vidéo silencieuse!

You can only open silent AVI clips

[lSlpynao]

Bon ba merci quand même , je vais devoir écrire le tutoriel complexe à la main

[pop45]

Voila j'ai réussit a maitriser (a peut prés) ces fonction

Si tu veut un petit exemple voila

Code : Tout sélectionner

;declaration des include
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiAVI.au3>; <<<---- include contenant les fonction du type _GUICtrlAVI

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 602, 485, 221, 163)
$Avi1 = _GUICtrlAVI_Create ($Form2,"", -1, 65, 42, 483, 379)
$B1 = GUICtrlCreateButton("ouvrir", 472, 438, 85, 36)
$B2 = GUICtrlCreateButton("PLay", 52, 440, 157, 36)
$B3 = GUICtrlCreateButton ( "stop" , 220, 440 , 45, 36)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;chemin du fichier, dans le cas present, c'est un exemple d'autoit
$f =(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE" & "" & "\AutoIt v3\AutoIt", "InstallDir") & "\Examples\GUI\SampleAVI.avi")
;boucle principale
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $B1 ;bouton pour charger la video (format .avi sans son)
            $a = _GUICtrlAVI_Open( $Avi1 , $f)
            ConsoleWrite ($a)
            if $a = False then MsgBox (1,"",@error); pour voir si il y a une erreur ^^
        case $B2; lancer la video
            _GUICtrlAVI_Play ($Avi1)
        Case $B3; l'arreter, cela la remet a 0, si tu appuie sur play, elle se relance des le début!
            _guictrlavi_stop ($Avi1)

    EndSwitch
WEnd

[Jerome]

Coucou,


Tu peux regarder ce lien en complément.





Jérôme

[lSlpynao]

Merci beaucoup pour votre aide mais la video ne s'affiche pas.
édit: c'est bon sa marche c'est juste que la vidéo n'est pas redimensionner et c'est un gros problème je ne vois que la parti en haut a gauche de la vidéo ( on voit pas les chose importante

[cutprod]

Bonjour, il faut que tu utilise l' UDF "VLC.au3".
Avec vlc dans ton Gui ta vidéo est redimensionnée
Dis moi si tu y parviens.
A plus

[lSlpynao]

La video ne s'affiche pas avec vlc ( l'include <VLC.au3> pourtant et la video est au bon format donc -_- je desespere )

[cutprod]

Le "format" de la vidéo importe peu avec VLC, il doit y avoir une erreur dans ton script
Peux tu nous mettre en ligne le bout de ton script qui doit faire tourner ta vidéo.