Page 1 sur 1
[..] Insérer une vidéo dans une fenêtre
Posté : jeu. 21 mai 2009 20:05
par flotos
Bonjour, j'aimerait savoir comment je pourrait regrouper des vidéo dans un logiciel
Re: [..] Insérer une vidéo dans une fenêtre
Posté : ven. 22 mai 2009 21:28
par jbnh
Salut, merci si possible d'être quand même un tout petit peu plus clair dans vos explications. Mais je suppose que vous voulez dire : insérer une video dans une GUI.
Voici un exemple :
► Afficher le texte
Code : Tout sélectionner
#include <IE.au3>
#include <GuiConstants.au3>
Dim $s_html
_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()
GUICreate("", 500 , 400)
GUISetState()
GUICtrlCreateObj($oIE,5, 5, 485, 390)
_IENavigate ($oIE, "about:blank")
$s_html &= '<html xmlns="http://www.w3.org/1999/xhtml">' & @CR
$s_html &= '<head></head><body>' & @CR
$s_html &= '<object width="425" height="344"><param name="movie" value="http://www.youtube.com/v/wPQ515qGGzM&hl=fr&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/wPQ515qGGzM&hl=fr&fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344"></embed></object>' & @CR
$s_html &= '</body>' & @CR
_IEDocWriteHTML($oIE, $s_html)
_IEAction($oIE, "refresh")
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
exit
endselect
WEnd