[..] Lire une video qui est en ligne

[Nao]

Salut ,

J'aimerais mettre un tutoriel vidéo dans mon programme ( je ne l'ai pas encore fais ) mais je ne veux pas que mon programme soit plus gros et je ne veux pas que la vidéo soit dans un dossier fournit avec le programme.
( oui je suis exigeant )
Voila la partie de mon code pour la form du tutoriel.
( j'ai pris une vidéo du site du châteaux de Versailles donc je m'en fiche vous pouvez changer de video si vous préféré pour m'aider )

Code : Tout sélectionner

#include <AVIConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Thomas fernandes\Desktop\Projet Thomas\SimplyIt\Formvideo.kxf
$Form1 = GUICreate("Form1", 619, 400, 229, 126)
$Labelbienvenue = GUICtrlCreateLabel("Bienvenue dans l'aide", 16, 8, 587, 86, $SS_CENTER)
GUICtrlSetFont(-1, 28, 400, 0, "Wide Latin")
$Avi1 = GUICtrlCreateAvi("http://www.chateauversaillesspectacles.fr/Publish/video/47/KING_ARTHUR.flv", -1, 96, 104, 449, 281)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

J'ai déjà un problème qui est le fait que la vidéo est en .flv au lieu de .avi , c'est peut-être pour ça que rien ne s'affiche sur la form , donc si vous savez le résoudre merci de me donner la solution

Merci d'avance

[TopXm]

Hello

En effet, j'ai essayé ton code avec ton flv en local et Windows me boude

► Afficher le texteCapture Message Windows

Par contre VLC lit les flv
Il existe une UDF qui va bien avec un exemple : http://www.autoitscript.com/forum/topic ... layer-udf/
Il te faudra par contre installer VLC
NB : Par contre perso, je récupérerai le fichier en local plutôt que de pointer sur http://www...
Voir pour cela l'aide en ligne et son exemple sur InetGet

[Nao]

Ok je test et je te tient au courant

J'arrive pas a faire marcher l'udf de vlc , ou est mon erreur s'il vous plait ?

► Afficher le texteMon code defectueux

Code : Tout sélectionner

#include <VLC.au3>
#include <GUIConstants.au3>
#include <SliderConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>

_VLCErrorHandlerRegister()

; $url=InetGet("http://www.chateauversaillesspectacles.fr/Publish/video/47/KING_ARTHUR.flv")
$url="I:\BRAQUAGE A L'ITALIENNE French DVDRIP. Divx(Isisatis).avi"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 620, 401, 229, 126)
$Labelbienvenue = GUICtrlCreateLabel("Bienvenue dans l'aide", 16, 8, 587, 86, $SS_CENTER)
GUICtrlSetFont(-1, 28, 400, 0, "Wide Latin")
$video = _GUICtrlVLC_Create(24, 104, 345, 249)
$Button1 = GUICtrlCreateButton("Button1", 400, 104, 193, 257)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button1
            _GUICtrlVLC_Play($video,GUICtrlRead($url))

EndSwitch
WEnd

[moi]

Code : Tout sélectionner

#include <VLC.au3>

l'UDF VLC.au3 est-il dans le même dossier que ton script? parce que sinon cela marche pas....

[Nao]

Non je l'ai mis dans le dossier include de autoit ( dans programmes files )

[TopXm]

Hello

En fait il te faut ajouter la video à la PlayList avant de la lire (regarde l'exemple de l'UDF)

En repartant de ton dernier code avec le FLV initial ça donne quelque chose du genre :

► Afficher le texteLire .flv

Code : Tout sélectionner

#include <VLC.au3>
#include <GUIConstants.au3>
#include <SliderConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AVIConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>

_VLCErrorHandlerRegister()

; $url=InetGet("http://www.chateauversaillesspectacles.fr/Publish/video/47/KING_ARTHUR.flv")
Local $MyVid = 'Arthur.flv'

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 620, 401, 229, 126)
$Labelbienvenue = GUICtrlCreateLabel("Bienvenue dans l'aide", 16, 8, 587, 86, $SS_CENTER)
GUICtrlSetFont(-1, 28, 400, 0, "Wide Latin")
$Vlc1 = _GUICtrlVLC_Create(24, 104, 345, 249)
$Button1 = GUICtrlCreateButton("Button1", 400, 104, 193, 257)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button1
            _GUICtrlVLC_Clear($vlc1)
            _GUICtrlVLC_Play($vlc1, _GUICtrlVLC_Add($vlc1, $MyVid))
EndSwitch
WEnd