Lire une video dans un picturebox avec le controle mediaplayer 11 [Résolu]
cs_domi123
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 5
- Date d'inscription
- samedi 14 novembre 2009
- Statut
- Membre
- Dernière intervention
- 13 février 2010
A voir également:
- Vb.net play video in picturebox
- Visual basic video player - Meilleures réponses
- Visual video - Meilleures réponses
- Visual Basic / VB.NET : Flat header in listview - CodeS SourceS - Guide
- Visual Basic / VB.NET : Lecteur video (multimedia) sans ocx ni wmp - complet - CodeS SourceS - Guide
- Visual Basic / VB.NET : Effet sur des picturebox : code tres simple, fluide et commenter - CodeS Sou - Guide
- Visual Basic / VB.NET : Msn plug-in (très gros projet fini) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Vbfrance add-in pour vb6 version 1.2 (projet commun masterhack & madm@tt - Guide
16 réponses
Meilleure réponse
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Salut,
Autant se passer du Windows Media Player.
Documente toi sur l'api mciSendStringA.
__________
Kenji
(
Autant se passer du Windows Media Player.
Documente toi sur l'api mciSendStringA.
__________
Kenji
(
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Ah, pour les DVD je sais pas du tout. Mais les mpeg j'ai essayer, ca marche.
As-tu les bons codes d'installés pour les lire ?
__________
Kenji
(
As-tu les bons codes d'installés pour les lire ?
__________
Kenji
(
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Aussi, pour revenir à ta question:
pourquoi veux tu mettre la vidéo dans un picturebox ?
__________
Kenji
(
pourquoi veux tu mettre la vidéo dans un picturebox ?
__________
Kenji
(
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Ok, ok, en effet, j'avais pas assez tester, ca marche pas.
Donc, en effet, il faut placer la vidéo dans une picturebox :
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
' A effectuer après que la vidéo tourne
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 100, 100, SWP_NOSIZE)
End If,
----
(
Donc, en effet, il faut placer la vidéo dans une picturebox :
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
' A effectuer après que la vidéo tourne
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 100, 100, SWP_NOSIZE)
End If,
----
(
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Comme ceci :
Private Sub WMP_PlayStateChange(ByVal NewState As Long)
If NewState = WMPLibCtl.WMPPlayState.wmppsPlaying Then
Call SetVideoParent
End If
End Sub
Private Sub SetVideoParent()
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 0, 0, SWP_NOSIZE)
End If
End Sub,
----
(
Private Sub WMP_PlayStateChange(ByVal NewState As Long)
If NewState = WMPLibCtl.WMPPlayState.wmppsPlaying Then
Call SetVideoParent
End If
End Sub
Private Sub SetVideoParent()
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 0, 0, SWP_NOSIZE)
End If
End Sub,
----
(
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
189 internautes nous ont dit merci ce mois-ci
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
En fait, j'ai vu la doc sur l'api mciSendStringA, mais le problème est qu'il ne sait pas lire les fichiers Mpeg et DVD. Je n'ai que le son et non l'image (et pourtant j'ai tout essayer avec differentes sources, meme les plus simples, avec un fichier mpeg au norme qui fonctionne sur tous les autres lecteurs). Sinon si tu as une solution, je suis preneur, ou encore m'aider avec mciSendStringA mais je n'arrive pas, j'ai regardé sur tous le site, meme sur google (et aussi en anglais), j'ai pris une partiie du code, je le colle dans un nouveau projet et cela ne fonctionne pas. En vain
Voila. Un p'tit coup de main pour la realisation de ce bout de projet. Merci.
Voici justement un extrait d'un code pour lire uniquement un fichier mpeg avec mciSendStringA :
PrivateDeclareFunction mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand AsString, ByVal lpstrReturnString AsString, ByVal uReturnLength AsLong, ByVal hwndCallback AsLong) AsLong
PrivateDeclareFunction GetShortPathNameA Lib "kernel32" (ByVal lpszLongPath AsString,
ByVal lpszShortPath AsString, ByVal cchBuffer AsLong) AsLong
'ouvrir un fichier :
Sub OuvrirMM(NomFichierLong AsString)
Dim BufferNom AsString * 255
Dim BufferLen AsLong
BufferLen = GetShortPathNameA(NomFichierLong, BufferNom, 255)
NomFichierCourt$ = Left$(BufferNom, BufferLen)
CmdStr = "open MPEGVideo!" & NomFichierCourt & " alias " & AliasToUse & " parent " & Picture1.hWnd & " Style " & CStr(&H40000000)
mciSendStringA CmdStr, 0&, 0&, 0&
EndSub
'jouer le film
Sub JoueMM()
mciSendStringA "play " & AliasToUse & " from 0", 0, 0, 0
EndSub
'stopper
Sub StopMM()
mciSendStringA "stop " & AliasToUse, 0, 0, 0
EndSub
Voila. Un p'tit coup de main pour la realisation de ce bout de projet. Merci.
Voici justement un extrait d'un code pour lire uniquement un fichier mpeg avec mciSendStringA :
PrivateDeclareFunction mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand AsString, ByVal lpstrReturnString AsString, ByVal uReturnLength AsLong, ByVal hwndCallback AsLong) AsLong
PrivateDeclareFunction GetShortPathNameA Lib "kernel32" (ByVal lpszLongPath AsString,
ByVal lpszShortPath AsString, ByVal cchBuffer AsLong) AsLong
'ouvrir un fichier :
Sub OuvrirMM(NomFichierLong AsString)
Dim BufferNom AsString * 255
Dim BufferLen AsLong
BufferLen = GetShortPathNameA(NomFichierLong, BufferNom, 255)
NomFichierCourt$ = Left$(BufferNom, BufferLen)
CmdStr = "open MPEGVideo!" & NomFichierCourt & " alias " & AliasToUse & " parent " & Picture1.hWnd & " Style " & CStr(&H40000000)
mciSendStringA CmdStr, 0&, 0&, 0&
EndSub
'jouer le film
Sub JoueMM()
mciSendStringA "play " & AliasToUse & " from 0", 0, 0, 0
EndSub
'stopper
Sub StopMM()
mciSendStringA "stop " & AliasToUse, 0, 0, 0
EndSub
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
j'ai oublié, cette source vient d'ici :
http://www.vbfrance.com/codes/LECTEUR-VIDEO-MULTIMEDIA-SANS-OCX-NI-WMP-COMPLET_5096.aspx
http://www.vbfrance.com/codes/LECTEUR-VIDEO-MULTIMEDIA-SANS-OCX-NI-WMP-COMPLET_5096.aspx
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 3181
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 43
- Date d'inscription
- jeudi 7 août 2003
- Statut
- Membre
- Dernière intervention
- 12 mars 2013
- Messages postés
- 5
- Date d'inscription
- samedi 14 novembre 2009
- Statut
- Membre
- Dernière intervention
- 13 février 2010
slt Mr domi123,je suis nouveau en vb-france ,j'ai lu votre question ,malheureusement j'ai pas de réponse pour vous,mais je vous demandes à me dire comment faire pour importer ou lire un video par une application vb2008 ,car j'ai fais une application dans laquelle il faut lire des videos mais je ne sais pas comment faire ,svp aidez-moi le + tôt possible et je m'excuse une autre fois ,merci monsieur je vous attends..