1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice
Cookies Politique du forum

[Résolu] Comment Lire des vidéos en boucle?

Discussion dans 'Windev' créé par elghyati, Oct 26, 2018.

  1. elghyati

    elghyati Member

    Inscrit:
    Jan 2, 2018
    Messages:
    56
    J'aime reçus:
    7
    Bonjour ,
    Comment Lire des vidéos en boucle avec windev?
    SVP un exemple
    merci
     
    #1 elghyati, Oct 26, 2018
    Tags:
  2. taoufik1_1

    taoufik1_1 Member

    Inscrit:
    Jan 2, 2018
    Messages:
    51
    J'aime reçus:
    32
    SI MultimédiaEtat(MM_VIDEO) = MultimédiaEtatArrêt ALORS
    MultimédiaJoue(MM_VIDEO,TABLE_Media[gnSeq1].COL_Media)

    Fin

    ou

    SI MultimédiaPosition(MM_VIDEO) = MultimédiaDurée(MM_VIDEO) ALORS
    MultimédiaJoue(MM_VIDEO,TABLE_Media[gnSeq1].COL_Media)
    gnSeq1++
    FIN
     
    #2 taoufik1_1, Oct 27, 2018
    elghyati et joker aiment ça.
  3. elghyati

    elghyati Member

    Inscrit:
    Jan 2, 2018
    Messages:
    56
    J'aime reçus:
    7
    Un TimerSYS(), MCIPosition (Fonction) pour :
    - récupérer la fin de la lecture
    - remettre la lecture au début.

    merci,

    mais comment - récupérer la fin de la lecture et - remettre la lecture au début.?

    un exemple SVP
     
    #3 elghyati, Oct 28, 2018
  4. taoufik1_1

    taoufik1_1 Member

    Inscrit:
    Jan 2, 2018
    Messages:
    51
    J'aime reçus:
    32
    // ActiveX Multimédia
    Code (Windev):
    AX_MultiMedia>>url="[URL]http://adtv.ercdn.net/adnatgeo/adnatgeo_720p.m3u8?v=[/URL]'"

    // Procedure Timer
    SI AX_MultiMedia>>playState()  <> 3 ALORS    // 10=arrêt  / 3=en marche  
           
           AX_MultiMedia>>controls>>stop()
     
            AX_MultiMedia>>controls>>play()      
     
    FIN
    //
    //
    // Pour Champ Multimédia
    // Procedure Timer
    SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (MM_VIDEO) = MultimédiaEtatArrêt ALORS
     

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (MM_VIDEO,"C:\Video\Video.wmv")

    SINON SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (MM_VIDEO) =

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (MM_VIDEO) ALORS    
     
       

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (MM_VIDEO)
    FIN
     
    #4 taoufik1_1, Oct 29, 2018
    elghyati apprécie ceci.
  5. popoy

    popoy Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 23, 2018
    Messages:
    2,895
    J'aime reçus:
    1,541
    J'ai trouver une autre solution que celle proposé.
    elle ressemble un peu car cela utilise aussi un timer
    voir :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

     
    #5 popoy, Oct 29, 2018
    Dernière édition par un modérateur: Oct 29, 2018
    suenodesign et elghyati aiment ça.
  6. elghyati

    elghyati Member

    Inscrit:
    Jan 2, 2018
    Messages:
    56
    J'aime reçus:
    7
    ça marche très bien

    merci bq

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    :)

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    As tu regardé l'exemple WD Multimédia ?

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (message #2)

    => Un extrait du code de cet exemple pour les fonctions MCI :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    Facilement adaptable dans xProjet avec un TimerSYS()

    Sinon, avec un champ multimédia, il y a les fonction Multimédia*****()
    et pas besoin de TimerSYS()

    Le simple ajout de MultimédiaDébut(*) ou MultimédiaPlay(*)
    dans l'événement "Fin de lecture" du champ multimédia suffit à faire jouer le fichier en boucle :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    :)
    Cliquez pour agrandir...
     
    #6 elghyati, Oct 30, 2018
  • elghyati

    elghyati Member

    Inscrit:
    Jan 2, 2018
    Messages:
    56
    J'aime reçus:
    7
    Bonjour,
    Voilà
    voilà mon code bien fonctionné avec les fonctions MCI.

    V_position est un entier
    MCIOuvre(SAIS_FIC,"alias",MciStyleFille,IMG_VIDEO)
    V_position = MCITaille("alias")
    SI MCIEtat("alias") <> MciEtatJoue ALORS
    SI Val(MCIPosition("alias") = V_position) ALORS
    MCIDébut("alias")
    FIN
    FIN
    MCIJoue("alias")

    Merci
     
    #7 elghyati, Oct 31, 2018
    joker apprécie ceci.
  • taoufik1_1

    taoufik1_1 Member

    Inscrit:
    Jan 2, 2018
    Messages:
    51
    J'aime reçus:
    32
    // Fiin initialisation de fenêtre // ActiveX Multimédia

    AX_MultiMedia>>url="C:\Video.avi"
    AX_MultiMedia>>controls>>play()

    ActiveXEvénement("pVideo",AX_MultiMedia,"PlayStateChange")

    //
    PROCEDURE pVideo(signal)

    //Trace("signal ="+signal)
    SI signal=1 OU signal = 10 ALORS // // 10=arrêt / 3=en marche

    AX_MultiMedia>>controls>>stop()
    ThreadPause(10)
    AX_MultiMedia>>controls>>play()
    ThreadPause(10)
    FIN
     
    #8 taoufik1_1, Oct 31, 2018
    • (Vous devez vous identifier ou vous inscrire pour poster ici.)

    Partager cette page

    Chargement...