ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

METTRE EN ROTATION UNE VIDEO AVI,MPG,WMV...   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

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é 7202 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...

benameuryousfi1@gmail.com

Code source :
clear
ymovie=getfile('avi|mpg|wmv')
if empty(ymovie)
return
endi
x=strtran(ymovie,"\","/")
ymovie=x
*****************************
set safe off
afile='"'+sys(5)+sys(2003)+"\asup.html"+'"'

set textmerge on to &afile noshow
text
<HTML>
<HEAD>
<TITLE>Yiexplore</TITLE>


</HEAD>

<BODY BGCOLOR=black  TOPMARGIN=0LEFTMARGIN=0 scroll="no" text=gold>
<p align="right"><a href="" onclick="javascript:window.close();return false;">
<input type="button" value="X" name="ybouton" style="color: #FF0000"></a></p>


<!-- I you wish to use your own movie, change the CLASSID and CODEBASE
accordingly.  This sample is 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>


<OBJECT ID="DAControl"
  STYLE="position: absolute; left: 300; top:150"
  CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D" width="640" height="380">
</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

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3