Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Lecture de fichiers vidéo

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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Quasimodo
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
Avatar
pierre.rivet
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



Avatar
Quasimodo
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
Avatar
pierre.rivet
"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
Avatar
pierre.rivet
"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 ?
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 ?

merci,

Pierre




Avatar
Quasimodo
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
Avatar
Quasimodo
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
Avatar
pierre.rivet
"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


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!!

est-ce clair ?

Merci d'avance,

Pierre




Avatar
ng
Salut,

Regarde du coté de l'ocx MediaPlayer ou des APIs AVI.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/


pierre.rivet wrote:
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


Avatar
Quasimodo
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
1 2