Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: skyweb07 en Marzo 31, 2010, 12:47:08 pm
-
Bueno he estado intentando algunas cosillas para poder hacer utilizar el JW Player con los videos de youtube pero no me funciona, he intentado añadiendo los flashvars al Objecto del Flash pero nada, esto es lo que he provado haber si alguien se da cuenta del fallo :D. Saludos y gracias de antemano :!
Asi es que se hace en Javascript:
<script type='text/javascript' src='swfobject.js'></script>
<script type='text/javascript'>
var so = new SWFObject('player.swf','mpl','470','320','9');
so.addParam('allowfullscreen','true');
so.addParam('allowscriptaccess','always');
so.addParam('wmode','opaque');
so.addVariable('file','http://www.youtube.com/watch?v=i1gAeF2MuQs');
so.addVariable('image','http://www.designerstoolbox.com/images/global_logo.gif');
so.write('mediaspace');
</script>
Y asi lo hago en VB6
Dim vFlashVars As String
vFlashVars = "&file=http://www.youtube.com/watch?v=i1gAeF2MuQs"
With Flash
.Stop
.Movie = App.Path & "\player.swf" ' // La ruta del reproductor JW
.FlashVars = vFlashVars
.Play
End With
También he intentado con la función SetVariable del Flash pero nada ... :-\
-
hola SkyWeb07 ami me funciona bien como lo tenes vos. si lo que no te funciona es el play es porque tenes que usar autostart=true
Private Sub Form_Load()
Dim vFlashVars As String
vFlashVars = "&file=http://www.youtube.com/watch?v=i1gAeF2MuQs&autostart=1"
With Flash
.Movie = App.Path & "\player-viral.swf" ' // La ruta del reproductor JW
.FlashVars = vFlashVars
End With
End Sub
cualquier cosa te paso el proyecto.
Saludos.
-
Leandro gracias por responder, el error fue mio que cuando descomprimi el archivo del Jw player solo cogi el player.swf y necesitaba los otros archivos para reproducirse por lo que se quedaba cargando y no salia nada...Pues nada gracias por provarlo ;) Saludos !