Discussion :

[Vactos]

Bonjour a tous ,

Voilà je vous explique mon problème, je suis en train de développer une application répertoriant des films, une table "Liste_Films" est créer pour accueillir toutes ces informations.
Grâce a une fenêtre j'ajoute les films dans cette base de donné en spécifiant le chemin du film.
Seulement je souhaiterais pouvoir ouvrir le film sélectionner dans une table en affichage via un bouton ou un double clic par exemple.
Mais je bloque un peu sur le code .

Si vous pouviez m'aider je vous en serez très reconnaissant .
merci d'avance a tous ceux qui prendront la peine de me répondre et de m'orienter vers une solution.

[b_reda31]

Bonsoir,
en attendant de meilleures réponses je vous propose d'utiliser la fonction LanceAppliAssociée :

Code :

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

LanceAppliAssociée(Table_Film.COL_Chemin);

Cette instruction permet de lancer le film avec le programme par défaut (VLC,Windows Media Player ou autre).
Maintenant si vous souhaiter integrer cette vidéo dans votre application, je n'ai aucune idée sur les objets à utiliser mais vous pouvez vous inspirer de l'exemple WD Multimedia.

[Vactos]

Bonsoir,

Merci de votre réponse, ceci m'aide déjà un peu, ça m'aiguille sur le code a intégrer.
Je souhaite juste qu'il soit ouvert le film sélectionner dans la table en affichage.

Merci pour votre aide

[wd_newbie]

Bonjour,

tu pourrais utiliser l'activeX VLC , on en parle ici :

http://forum.pcsoft.fr/thread.awp?gr...&postid=183171

ou encore la classe VLC :

http://depot.pcsoft.fr/resource.awp?...an-pour-windev


Si ça peut aider, VLC est quand même un standard ... et gratuit

Bonne journée

Olivier

[Vactos]

Merci de votre reponse ,
mais ceci ne correspond pas exactement a ce que je souhaite , j'aimerais que le fichier soit lancer avec les programme par default pour ce type de fichier.

j'ai tenter ce code

"
sChemin est une chaine

Schemin = TableSelect(Table_Liste_Films.COL_Chemin)

LanceAppliAssociée(sChemin)
"

Mais en vain ce code ne marche pas il me dit

"Erreur à la ligne 3 du traitement Clic sur BTN_Bouton2.
Vous avez appelé la fonction TableSelect.
Le passage du paramètre 1 a provoqué une erreur.
Le champ \\Serveur-PC\Films\Aladin.avi est inconnu.

Informations techniques

Projet : Applications Serveur

Dump de l'erreur du module <WD140VM.DLL> <14.00He>.

- Appel WL :
Traitement de <Acces Films.BTN_Bouton2>, ligne <3>, thread <0>
Fonction <TableSelect>, n° de syntaxe <0>

- Niveau : erreur fatale (EL_FATAL)

- Code erreur : 1017

- Code erreur WD55 : 0

- Pas de code d'erreur système

- Pas de message d'erreur système

- Que s'est-il passé ?
Le passage du paramètre 1 a provoqué une erreur.
Le champ \\Serveur-PC\Films\Aladin.avi est inconnu.

- Pas d'info de debug

- Infos attachées :
EIT_PILEWL :
Clic sur BTN_Bouton2 (Acces Films.BTN_Bouton2), ligne 3
EIT_COMPOSANT :

EIT_DATEHEURE : 25/01/2012 18:33:02

- Identifiant dans le .err : 1017


Assistance"

Merci D'avance

[b_reda31]

L'erreur vient du fait que la fonction tableselect prend en argument un champ table et non une colonne et renvoie l'indice de la ligne sélectionné dans une une table. Cette fonction ne correspond donc pas vraiment à tes besoins.Car dans ton cas, tu veux récupérer la valeur de la colonne sélectionnée, en occurrence Col_Chemin. Essais donc l'instruction que j'ai donné dans ma première réponse.

[frenchsting]

et comme ça ?

Code :

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

1
2
3
4
5
sChemin est une chaine
 
Schemin = Table_Liste_Films.COL_Chemin[TableSelect(Table_Liste_Films)])
 
LanceAppliAssociée(sChemin)

[b_reda31]

et comme ça ?

Code :

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

1
2
3
4
5
sChemin est une chaine
 
Schemin = Table_Liste_Films.COL_Chemin[TableSelect(Table_Liste_Films)])
 
LanceAppliAssociée(sChemin)

Il me semble que

Code :

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

1
2
 
Table_Liste_Films.COL_Chemin

renvoi la valeur de COL_Chemin de la ligne sélectionnée et donc pas besoin d'ajouter l'indice (TableSelect(Table_Liste_Films)).
D'un autre coté, il faut aussi vérifier qu'une ligne est sélectionnée avant l'appel à LanceAppliAssociée.

Code :

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

1
2
3
4
5
6
7
 
SI tableselect(Table_Liste_Films)=-1 ALORS
info("Aucun film n'est sélectionné);
SINON
Schemin = Table_Liste_Films.COL_Chemin;
LanceAppliAssociée(sChemin)
FIN

[frenchsting]

Il me semble que

Code :

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

1
2
 
Table_Liste_Films.COL_Chemin

renvoi la valeur de COL_Chemin de la ligne sélectionnée et donc pas besoin d'ajouter l'indice (TableSelect(Table_Liste_Films)).

Exact. Je voulais montrer l'utilisation de tableselect (erronée dans celle faite dans le post)

Le test de ligne est correct aussi. La question était sur le lancement proprement dit. Bien vu en tout cas.

[Vactos]

Bonjour,

Merci a tous pour vos réponses, le code de b_reda31 marche nickel , c'est exactement ce que je souhaitais.

Merci encore a vous tous pour vos réponses et d'avoir pris le temps de me répondre