Contributions > 09 - Automation > Internet Explorer
METTRE EN ROTATION UNE VIDEO AVI,MPG,WMV...
# 0000000566
ajouté le 12/05/2008 16:06:25 et modifié le 12/05/2008
consulté 7445 fois
Niveau
débutant
Version(s) Foxpro : VFP 6.0
Description
Ce programme utilise un petit script avec Iexplore pour faire tourner à la convenance une vidéo selon les axes X,Y ,Z avec les 3 combinaisons possibles en 0 ou 1),le montage étant fait sous VFP6.0.
Les vidéos sont prises en charge avec leur fonds sonore.
Mais pourquoi donc Microsoft n'intègre t il pas les programmes strictement réservés à C++ et VB à VFP ?
Ce n'est pas VFP qui fait directement le travail mais il le sous traite comme Iexplore sous traite les scripst VB,jscript... après tout c'est le résultat qui compte...
clear
ymovie=getfile('avi|mpg|wmv') ifempty(ymovie) return
endi
x=strtran(ymovie,"\","/")
ymovie=x ***************************** set safe off
afile='"'+sys(5)+sys(2003)+"\asup.html"+'"'
settextmergeonto &afile noshow text
<HTML>
<HEAD>
<TITLE>Yiexplore</TITLE>
<!-- I you wish touse your own movie, change the CLASSID and CODEBASE
accordingly. Thissampleis using a movie whose codec installs with IE4.0-->
<OBJECT ID="GetCodec"
CLASSID="CLSID:31345649-0000-0010-8000-00AA00389B71"
CODEBASE="http://www.mywebsite.com/codebase/mycodebase.cab">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!-- ' The DirectAnimation library
Set m = DAControl.PixelLibrary
Sub Window_OnLoad()
Set m = DAControl.PixelLibrary
'Import the movie endtext
x='Set movieResult = m.ImportMovie("'+ymovie+'")'
\<<x>> text ' Set the image and sound on the control, then start the animation
set rotxyzXf=m.Rotate3RateDegrees(m.Vector3(1,1,1), 15)
set rotImg= movieResult.image.Transform(rotxyzXf.ParallelTransform2()).Transform(m.Translate2(-.0, 0))
DAControl.Image = rotImg
DAControl.Sound = movieResult.Sound.Loop()
DAControl.Start()
end sub
</SCRIPT>
<p>Faire tourner une vidéo sur les axes X,Y,Z avec DirectAnimation...Combiner ou séparer les 3 mvts de la vidéo sur x,yz par (m.Vector3(1,1,0) (combinaisons de 1 et 0 sur les 3 axes)-Fonctionne bien avec les AVI,MPG (moins bien avec WMV).</p>
</BODY>
</HTML>
endtext
set textmerge to **************************
apIE=createobject("InternetExplorer.application")
apIE.navigate(&afile)
with apIE
.menubar=0
.toolbar=0
.top=0
.left=0
.width=640
.height=480
.fullscreen=.t.
endwith
apIE.visible=.t. **********************
if messagebox("Supprimer "+afile +" ?",4+64,"Nettoyage")=6
dele file &afile
endi
set safe on
Commentaires
le 07/07/2008, ybenam a écrit : DirectAnimation est opérationnel sous IE5 et IE7.Il a été supprimé de IE7 par MSFT
DirectAnimation est opérationnel sous IE5 et IE7.Il a été supprimé de IE7 par MSFT