JW Player en VB6

[skyweb07]

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 . Saludos y gracias de antemano :!

Asi es que se hace en Javascript:

Código: (javascript) [Seleccionar]


<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

Código: (vb) [Seleccionar]


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

[LeandroA]

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

Código: [Seleccionar]

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.

[skyweb07]

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 !