Discussion :

[gabcouts]

Bonjour,

lorsque que j'affiche une image à un champ, je lui passe un Temporisation() pour ensuite revenir à une boucle pour afficher un autre image...

Lorsque mon fichier sources est un vidéo, je lance le vidéo, le vidéo joue en entier, mais il reste figer à la fin du vidéo. Mon code ne continue pas vers le temporisation et le retour au début de la boucle.

Y a-t-il une fonction qui permet d'attendre jusqu'à la fin du vidéo pour continuer le traitement, sinon pourquoi mon code ne continue pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
debut:
POUR i = 1 A ListeOccurrence("ListeImage_"+y)
	fichier = {"ListeImage_"+y}[i]..ValeurAffichée
	//est-ce que le fichier est un video?
	SI ExtraitChaîne(fichier,1,".",DepuisFin) = "wmv" ALORS //le fichier est un video
		MCIOuvre(SysRep(srAppData)+"\anvmedia\"+fichier, "Vidéo_"+y, MciStyleFille, "IMG_"+y)
		MCIJoue("Vidéo_"+y)
	SINON
		{"IMG_"+y} = SysRep(srAppData)+"\anvmedia\"+fichier
	FIN
	Temporisation(nTemp*100)
FIN
 
GOTO debut

Merci

[frenchsting]

Tu peux déjà faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
MCIOuvre(SysRep(srAppData)+"\anvmedia\"+fichier, "Vidéo_"+y, MciStyleFille, "IMG_"+y)
SI PAS MCIJoue ("Vidéo_"+y) ALORS
  Erreur("Erreur lecture",MCIMsgErr())
FIN
MCIFerme("Vidéo_"+y) // Ne pas oublier de fermer le flux

Si tu as un message d'erreur, cela te donnera une piste...

[gabcouts]

Salut,

J'avais déjà essayé avec le mciFerme mais ça n'avait rien changé. Je regarde si j'ai une erreur et je tien au courant.

[gabcouts]

Rebonjour,


J'ai éssayer avec le code que tu ma donner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
//est-ce que le fichier est un video?
	SI ExtraitChaîne(fichier,1,".",DepuisFin) = "wmv" ALORS //le fichier est un video
		MCIOuvre(SysRep(srAppData)+"\anvmedia\"+fichier, "Vidéo_"+y, MciStyleFille, "IMG_"+y)
		SI PAS MCIJoue ("Vidéo_"+y) ALORS
			Erreur("Erreur lecture",MCIMsgErr())
		FIN
		//MCIFerme("Vidéo_"+y) // Ne pas oublier de fermer le flux
	SINON
 
		{"IMG_"+y} = SysRep(srAppData)+"\anvmedia\"+fichier
	FIN
	Temporisation(nTemp*100)
FIN

ou
J'ai dû mettre le MCIFerme en commentaire car le flux se fermait immédiatement après l'ouverture. J'ai mit un Trace au début de ma boucle pour savoir le nom du fichier en cours et je me rend compte que ma boucle fonctionne toujours. Si je met un MCIFerme au début de ma boucle pr fermer tout média dans mon champ image en principe ça devrait régler le problème sauf si ma vidéo est plus longue que ma variable "Time" (Temp d'attente avant d'afficher le prochain média) car le vidéo ne sera pas afficher au complet.

[gabcouts]

re,

Donc voici avec quoi ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
POUR i = 1 A ListeOccurrence("ListeImage_"+y)
	fichier = {"ListeImage_"+y}[i]..ValeurAffichée
	//est-ce que le fichier est un video?
	SI ExtraitChaîne(fichier,1,".",DepuisFin) = "wmv" ALORS //le fichier est un video
		MCIOuvre(SysRep(srAppData)+"\anvmedia\"+fichier, "Vidéo_"+y, MciStyleFille, "IMG_"+y)
		SI PAS MCIJoue ("Vidéo_"+y) ALORS
			Erreur("Erreur lecture",MCIMsgErr())
		FIN
		//Boucle d'attente
		BOUCLE
		//On attend la fin du vidéo
		A FAIRE TANTQUE MCIEtat("Vidéo_"+y) = "playing"
		MCIFerme("Vidéo_"+y) // Ne pas oublier de fermer le flux
	SINON
		{"IMG_"+y} = SysRep(srAppData)+"\anvmedia\"+fichier
	FIN
	Temporisation(nTemp*100)
FIN

Merci

[frenchsting]

En fait, le mcijoue() lance la lecture et continue ton code. Il faut que tu détectes la fin de la vidéo. Regarde par ici : http://doc.pcsoft.fr/fr-FR/?3051009&...ietat_fonction