0 Replies - 3763 Views - Last Post: 26 December 2012 - 02:25 PM Rate Topic: -----

#1 Santas  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 11
  • Joined: 15-December 12

Has anyone ever used jwplayer to play multiple flv files consecutively

Posted 26 December 2012 - 02:25 PM

Has anyone ever used jwplayer to play multiple flv files consecutively?

So far I can play a single movie but I can't play one after the other

code so far:
Imports System.IO
Imports System.Net.Sockets
Public Class Form1
    Friend WithEvents AxShockwaveFlash1 As New AxShockwaveFlashObjects.AxShockwaveFlash
    Dim PlayingFlash As Boolean = False
    Dim PlaylistHidden As Boolean = False
    Dim SettingUseJwPlayer3_16 As Boolean = True
    Sub OpenFLV(ByVal strFile As String, ByVal AxShockWaveFlash As AxShockwaveFlashObjects.AxShockwaveFlash)
        Dim strPath As String
        Dim PlayerPath As String = My.Computer.FileSystem.SpecialDirectories.Temp & "\player.swf"
        If File.Exists(PlayerPath) Then File.Delete(PlayerPath)
        File.WriteAllBytes(PlayerPath, My.Resources.player)
        strPath = "file:///" & PlayerPath & "?file="
        strPath = strPath & strFile
        strPath = Replace(strPath, "\", "/")
        With AxShockWaveFlash
            .Stop()
            .Visible = True
            .Menu = False
            .FlashVars = "&showstop=true&showdownload=false&height=" & AxShockWaveFlash.Height.ToString & "&width=" & AxShockWaveFlash.Width.ToString & "&showplay=true&autoscroll=false&autostart=true&overstretch=true&showicons=1&searchbar=false&controlbar=0"
            .LoadMovie(0, strPath)
            .Play()
        End With
        PlayingFlash = True
    End Sub
    Sub PlayJwPlayer3_16(ByVal Vid As String)
        If Not AxShockwaveFlash1.IsDisposed Then AxShockwaveFlash1.Dispose()
        AxShockwaveFlash1 = New AxShockwaveFlashObjects.AxShockwaveFlash
        AxShockwaveFlash1.BeginInit()
        AxShockwaveFlash1.Name = "AxShockwaveFlash1"
        AxShockwaveFlash1.EndInit()
        Me.Controls.Add(AxShockwaveFlash1)
        AxShockwaveFlash1.Visible = True
        AxShockwaveFlash1.Location = Panel1.Location
        AxShockwaveFlash1.BringToFront()
        PlayingFlash = True
        Panel1.Visible = False
        OpenFLV(Vid, AxShockwaveFlash1)
    End Sub

    Private Sub Play_Click(sender As Object, e As EventArgs) Handles Play.Click
        PlayJwPlayer3_16("https://dp-geography.wikispaces.com/file/view/World+Cup+in+South+Africa+-+%28IB+Geography+Study+Sports%2C+Leisure+%26amp%3B+Tourism+%29.flv")
    End Sub
End Class


This post has been edited by macosxnerd101: 26 December 2012 - 02:27 PM
Reason for edit:: Please use code tags


Is This A Good Question/Topic? 0
  • +

Page 1 of 1