OVH Cloud OVH Cloud

Lecture de fichiers vidéo

11 réponses
Avatar
pierre.rivet
Bonjour,

Je voudrais lire des fichiers vidéo dans une application.
J'ai donc installé un contrôle ActiveMovie, avec un FileName.

Mais comment faire quand je veux lire un autre fichier que celui qui est
dans les propriétés du contrôle.
Dans la doc VB, je trouve: ReadyState Property, ReadyStateChange Event,
etc,,,mais pas d'exemples.

Il doit me manquer deux lignes d'écriture que je n'arrive pas à
reconstituer.
Merci d'avance,

Pierre

1 réponse

1 2
Avatar
pierre.rivet
"Quasimodo" a écrit dans le message de
news:
pierre.rivet was thinking very hard :
> "Quasimodo" a écrit dans le message de
> news:
>> pierre.rivet explained :
>>> "Quasimodo" a écrit dans le message de
>>> news:
>>>> It happens that pierre.rivet formulated :
>>>>> "Quasimodo" a écrit dans le message de
>>>>> news:
>>>>>> pierre.rivet pretended :
>>>>>>> Merci de votre réponse aussi rapide.
>>>>>>>
>>>>>>> Ces instructions là marchent parfaitement, mais quand là où ça se
>>>>>>> corse, c'est quand je veux imputer à FileName, une valeur prise


dans
>>>>>>> une table d'une base de données, par exemple:
>>>>>>>
>>>>>>> RD.Open "Select........"
>>>>>>> RD.MoveFirst
>>>>>>> TextCheminVidéo=RD!CheminVidéo
>>>>>>> ActiveMovie1.FileName=TextCheminVidéo
>>>>>>> .....
>>>>>>> Dans ce cas, il ne veut pas reconnaître le nouveau nom de


fichier...
>>>>>>>
>>>>>>> Où est l'erreur ?
>>>>>>>
>>>>>>> Merci
>>>>>>>
>>>>>>>
>>>>>>> "Quasimodo" a écrit dans le message de
>>>>>>> news:
>>>>>>>> pierre.rivet pretended :
>>>>>>>>> Bonjour,
>>>>>>>>>
>>>>>>>>> Je voudrais lire des fichiers vidéo dans une application.
>>>>>>>>> J'ai donc installé un contrôle ActiveMovie, avec un FileName.
>>>>>>>>>
>>>>>>>>> Mais comment faire quand je veux lire un autre fichier que celui


qui
>>>>>>>>> est dans les propriétés du contrôle.
>>>>>>>>> Dans la doc VB, je trouve: ReadyState Property, ReadyStateChange
>>>>>>>>> Event, etc,,,mais pas d'exemples.
>>>>>>>>>
>>>>>>>>> Il doit me manquer deux lignes d'écriture que je n'arrive pas à
>>>>>>>>> reconstituer.
>>>>>>>>> Merci d'avance,
>>>>>>>>>
>>>>>>>>> Pierre
>>>>>>>>
>>>>>>>> Bonjour,
>>>>>>>> voici un exemple de code utilisant le command CommonDialog ocx,
>>>>>>>> l'ActiveMovie ocx (créer une forme, ajouter trois commandbuttons


et
>>>>>>>> placer sur la forme un commondialog et c'est caisse.).
>>>>>>>>
>>>>>>
>>>>
>>

----------------------------------------------------------------------










- -
>>>>> -
>>>>>> -
>>>>>>>> ----------------- Option Explicit
>>>>>>>>
>>>>>>>> Private Sub Command1_Click()
>>>>>>>>
>>>>>>>> ActiveMovie1.Run
>>>>>>>>
>>>>>>>> End Sub
>>>>>>>>
>>>>>>>> Private Sub Command2_Click()
>>>>>>>>
>>>>>>>> ActiveMovie1.Stop
>>>>>>>>
>>>>>>>> End Sub
>>>>>>>>
>>>>>>>> Private Sub Command3_Click()
>>>>>>>>
>>>>>>>> CommonDialog1.ShowOpen
>>>>>>>> ActiveMovie1.FileName = CommonDialog1.FileName
>>>>>>>>
>>>>>>>> End Sub
>>>>>>>>
>>>>>>>> Private Sub Form_Load()
>>>>>>>>
>>>>>>>> Command1.Caption = "&Run"
>>>>>>>> Command2.Caption = "&Stop"
>>>>>>>> Command3.Caption = "S&elect"
>>>>>>>>
>>>>>>>> End Sub
>>>>>>
>>>>
>>

----------------------------------------------------------------------










- -
>>>>> -
>>>>>> -
>>>>>>>> -----------------
>>>>>>>>
>>>>>>>> @+ Quaz
>>>>>>>>
>>>>>>>> --
>>>>>>>> This is an automatic signature of MesNews.
>>>>>>>> Site : http://mesnews.no-ip.com
>>>>>>
>>>>>> re,
>>>>>> vérifier la path qui vient de votre db.
>>>>>> Voici une idéee de départ :
>>>>>> if dir(TextCheminVidéo)<>"") then
>>>>>> 'le fichier existe bien, donc il devrait être lu.
>>>>>> else
>>>>>> 'il y a une erreur lors de la lecture du path dans la db.
>>>>>> end if
>>>>>>
>>>>>> @+ Quaz
>>>>>>
>>>>>> --
>>>>>> This is an automatic signature of MesNews.
>>>>>> Site : http://mesnews.no-ip.com
>>>>>>
>>>>>
>>>>> Effectivement, j'ai bien dir(TextCheminVidéo)=""
>>>>>
>>>>> Je ne comprends pas.....
>>>>>
>>>>> Pierre
>>>>
>>>> re,
>>>> donc, c'est bien que votre db pour ce champs là renvoie quedale ;-)
>>>> Vérifier votre appel à la db et si les champs pour ces records sont
>>>> bien complété.
>>>>
>>>> @+ Quaz
>>>>
>>>> --
>>>> This is an automatic signature of MesNews.
>>>> Site : http://mesnews.no-ip.com
>>>
>>> Je viens de faire une expérience que je ne comprends pas.
>>> Si je rentre mes enregistrements dans la table des vidéos à l'aide de


la
>>> programmation,===> ça fonctionne impeccablement quand je veux


sélectionner
>>> une vidéo
>>> Si je entre mes enregistrements dans Access,(à l'aide de la grille)


==> ça
>>> ne fonctionne pas
>>> Pourquoi ?
>>
>> --> Quel grille, où quoi comment??? Donnez moi un peux plus d'infos.
>> !!! si vous passez par une query pour encoder vos data peut être est
>> cela votre problème soyer sur de passer par votre table ou un
>> formulaire MSS Access.
>>
>>> D'autre part, "pendant que je vous tiens" y a-t-il une méthode pour


faire
>>> en sorte que l'écran de projection soit toujours à la même taille ?
>>
>> --> Quel écran de projection ??? Si vous parler de votre forme vb,
>> cela doit être normallement tjs la même size (sauf si vous avez mis du
>> code pour changer la taille où le lieu d'affichage), si c'est en MS
>> Access ze zépa (peut être via une macro d'ouverture)???
>>
>>> merci,
>>>
>>> Pierre
>>
>> + d'infos si je n'ai pas répondu à votre question avec assez de
>> précisions.
>>
>> @+ Quaz
>>
>> --
>> This is an automatic signature of MesNews.
>> Site : http://mesnews.no-ip.com
>
> Bonjour,
>
> Pardonnez moi si je n'ai pas répondu hier. J'ai dû m'absenter pour


l'après
> midi. (récupérer mon épouse à la ville voisine)
> Quand je parle de saisie d'informations par une grille, c'est le


processus
> suivant:
> - on ouvre Access (j'ai Access 2000 mais je suppose que pour les
> versions ultérieures c'est la même chose)
> - on ouvre la table où l'on veut ajouter des enregistrements, ==> on


a
> donc l'apparition de la grille ,avec les noms de champs en tête de


colonnes
> - on entre les enregistrements
>
Quel est le problème, les data ne sont pas enregistrées, elles ne sont
pas bonnes (mal enregistrées), quel est la diférence entre celles
encodées via access et celles encodées via vb?

> Quand je parle d'écran de projection, je veux parler de la taille de
> l'image.
> Par exemple Clock.avi fait environ 10cm x 12 cm
> Terre.avi (globe terrestre en train de tourner) fait 2 cm en hauteur
> Certains extraits de films venant de caméscope ont quasiment la taille


de
> l'écran...
> J'aurais aimé mettre un peu d'ordre dans tout cela!!
ze zépa ;-) connait pas tous les controls, faut regarder les
propriétés du controle (peut être : MovieWindowSize, ...)
Voir si il n'existe pas un autre control mieux adapté à vos besoin,
retoucher les vidéos (de toutes manières, soit si la vidéo est + grande
que le conteneur, elle sera rognée soit elle sera affiché + petit avec
des borres noirs), ...

> est-ce clair ?
oui
>
> Merci d'avance,
>
> Pierre

Sorry connait pas plus que ca se control.

@+Quaz

--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com



Merci, de toute façon ça fonctionne comme cela.
Je vais essayer d'approfondir, mais le plus gros est fait grâce à votre
aide,
A une prochaine fois,

Pierre




1 2