Eseguire i file video con il Componente gb.media

Il componente gb.media offre la possibilità di sfruttare le funzionalità della piattaforma multimediale modulare GStreamer per la gestione di file video.

E' possibile eseguire i file video utilizzando la Classe MediaPlayer oppure le risorse delle Classi MediaPipeline e MediaControl.

Si potrà scegliere se far mostrare il video in un controllo GUI (ad esempio una DrawingArea) posto sul Form, oppure in una finestra automaticamente aperta dalle risorse del componente gb.media.

Eseguire un video con la Classe MediaPlayer

Mostreremo di seguito alcuni esempi per eseguire un file video mediante le risorse della Classe MediaPlayer.

Gli elementi essenziali per eseguire un file video con la Classe MediaPlayer sono:

• la Proprietà ".Url" per caricare il file (se il file è memorizzato su dispositivo di memoria, allora il suo percorso andrà passato mediante il Metodo ".Url" della Classe statica "Media"; se il file è eseguito da un indirizzo web, allora sarà passato direttamente l'indirizzo web);
• il Metodo ".Play()" per avviare l'esecuzione del file video;
• la Proprietà ".Duration" per far eseguire il file video per l'intera sua durata;
• il Metodo ".Close()" per chiudere il mediaplayer.

Eseguire un video in un'applicazione a linea di comando

Vediamo ora un esempio con un'applicazione a linea di comando.
Si potrà chiudere il programma durante l'esecuzione del file video semplicemente premendo sul tasto "Invio":

Private bo As Boolean


Public Sub Main()

 Dim mp As MediaPlayer
  
 With mp = New MediaPlayer
   .URL = Media.URL("/percorso/del/file/video")
   .Play()
   Print "Durata: \e[34m"; Time(0, 0, 0, .Duration * 1000)
   Repeat
' Mostra in console la posizione, espressa in secondi, all'interno dei dati processati:
     Write "\r\e[0mTempo trascorso: \e[1m\e[31m" & Str(Time(0, 0, 0, .Position * 1000))
     Wait 0.01
   Until (mp.Position >= mp.Duration) Or bo
   .Stop
   .Close
 End With

' Avendo utilizzato l'Evento "Application_Read()", è necessario invocare l'istruzione "Quit" per terminare il programma:
 Quit

End

Public Sub Application_Read() ' Premendo il tasto "Invio" della tastiera, si arresta il programma

 bo = True
 
End

Eseguire il video in uno specifico controllo GUI posto sul form

Nel seguente esempio il video verrà mostrato in all'interno di uno specifico controllo GUI (ad esempio una DrawingArea) posto sul Form:

Private mp As MediaPlayer
  

Public Sub Form_Open()

 Dim da As DrawingArea
     
' Crea una "DrawingArea" come oggetto GUI da usare per l'uscita video:
 With da = New DrawingArea(Me)
   .X = 10
   .Y = 10
   .W = 480
   .H = 320
 End With
  
 With mp = New MediaPlayer
   .URL = Media.URL("/percorso/del/file/video")
' Imposta il controllo dell'uscita video da usare:
   .SetWindow(da)  ' [Nota 1]
 End With
  
End

Public Sub Button1_Click()
 
' Esegue il file video:
 mp.Play()
  
 Repeat
' Una brevissima pausa consente di mostrare e di agire sugli eventuali oggetti posti sul Form:
   Wait 0.01
   Me.Title = "Durata del video: " & CStr(Time(0, 0, 0, mp.Duration * 1000)) &
              "   -   Tempo trascorso: " & CStr(Time(0, 0, 0, mp.Position * 1000))
 Until mp.Position >= mp.Duration
 
End

Public Sub Button2_Click()
  
 mp.Stop
 mp.Close
  
End

Public Sub ToggleButton1_Click()
  
 If ToggleButton1.Value Then
   mp.Pause
 Else
   mp.Play
 Endif
  
End

Eseguire il video in una finestra automaticamente aperta da Gstreamer

Analogamente all'esecuzione in un'applicazione a riga di comando è possibile far mostrare il video in una finestra aperta in modo automatico da Gstreamer all'esterno del Form.
Per ottenere questo risultato in un'applicazione in ambiente grafico ovviamente non dovrà essere impostato alcuno specifico controllo GUI, ove reindirizzare l'uscita video.

Anche questa finestra, volendo, può essere gestita mediante le Classi Desktop e DesktopWindow attivando i componenti gb.desktop e gb.desktop.x11.

Esecuzione di un video da un indirizzo web

Va precisato che, se il video da eseguire ha un indirizzo web, allora alla Proprietà ".Url" della Classe MediaPlayer va passato direttamente l'indirizzo web del video:

With mp = New MediaPlayer
  .URL = "https://www.freedesktop.org/software/gstreamer-sdk/data/media/sintel_cropped_multilingual.webm"
  ......

Eseguire un file video usando il plugin "Playbin" mediante la Classe MediaPipeline e MediaControl

Mostriamo due esempi, nei quali il flusso audio-video sarà gestito dal plugin "playbin" di GStreamer richiamando le Classi MediaPipeline e MediaControl.

Con applicazione a "riga di comando"

Private pl As MediaPipeline


Public Sub Main()
 
 Dim pbn As MediaControl
 Dim filevideo As String
 
 filevideo = Uri("/percorso/del/file/video")
 
 pl = New MediaPipeline As "Pipe"
 
 pbn = New MediaControl(pl, "playbin")
 pbn["uri"] = filevideo
 pbn["volume"] = 0.6     ' Volume: da 0.00 a 1.0
 
 pl.Play 
 
 Print "\r\e[0mDurata del video: "; Time(0, 0, 0, pl.Duration * 1000)
 
' Pone un'attesa pari alla durata del video, per farlo eseguire sino alla fine:
 Wait pl.Duration
 
 pl.Stop
 pl.Close
' Consente di terminare il programma evitando l'uso di 'Quit'
 pl = Null
 
 Write "\n\e[0mEsecuzione terminata !"
 
End

Private Function Uri(s As String) As String
 
 Return "File:/" &/ s
 
End

Con applicazione grafica

In quest'altro esempio utilizzeremo un progetto grafico, nel quale il video sarà mostrato all'interno di una "DrawingArea" posta sul "Form" principale

Private pl As MediaPipeline


Public Sub Button1_Click()
 
 Dim pbn As MediaControl
 Dim filevideo As String
 
 filevideo = Uri("/percorso/del/file/video")
 
 pl = New MediaPipeline As "Pipe"
 
 pbn = New MediaControl(pl, "playbin")
 pbn["uri"] = filevideo
 pbn["volume"] = 0.6     ' Volume: da 0.00 a 1.0
 
' Imposta la superficie grafica ove mostrare il video:
 pbn.SetWindow(DrawingArea1)
 
 pl.Play
 
 Repeat 
   Wait 0.01
 Until pl.Duration > 0

 Wait pl.Duration
 
 pl.Stop
 pl.Close
 
 Me.Text = "Esecuzione terminata !"
  
End

Private Function Uri(s As String) As String
 
 Return "File:/" &/ s
 
End

Public Sub Pipe_Position()
 
 Me.Title = "Durata video: " & Str(Time(0, 0, 0, pl.Duration * 1000)) &
            "   -   Tempo trascorso: " & Str(Time(0, 0, 0, pl.Position * 1000))
 
End

Esecuzione di un video da un indirizzo web

Va precisato che con il plug-in "playbin" alla sua Proprietà "uri" si passerà il percorso del file video, anticipato dal prefisso "File:/".
Se, invece, il video da eseguire ha un indirizzo web, allora alla predetta Proprietà "uri" va passato direttamente l'indirizzo web del video:

pbn = New MediaControl(pl, "playbin")
pbn["uri"] = "https://www.freedesktop.org/software/gstreamer-sdk/data/media/sintel_cropped_multilingual.webm"
...

Eseguire un video usando il plugin "decodebin" mediante la Classe MediaPipeline e MediaControl

E' possibile eseguire un video mediante l'uso del plugin "decodebin" di GStreamer e delle Classi "MediaPipeline" and "MediaControl" del Componente gb.media.

Mostriamo un esempio:

Private Enum none = 0, clockwise, rotate_180, counterclockwise, horizontal_flip,
             vertical_flip, upper_left_diagonal, upper_right_diagonal, automatic


Public Sub Button1_Click()
 
 Dim pl As MediaPipeline
 Dim src, vbin, vcon, vsnk, asrc, abin, acon, ares, asnk As MediaControl
 Dim filevideo As String

 filevideo = "/percorso/del/filevideo"

 pl = New MediaPipeline
  
 src = New MediaControl(pl, "filesrc")
 src["location"] = filevideo
   
' Imposta i necessari MediaControl:
 vbin = New MediaControl(pl, "decodebin")
 vcon = New MediaControl(pl, "videoconvert")
 vsnk = New MediaControl(pl, "xvimagesink")

 abin = New MediaControl(pl, "decodebin")
 acon = New MediaControl(pl, "audioconvert")
 ares = New MediaControl(pl, "audioresample")
 asnk = New MediaControl(pl, "autoaudiosink")

' Connette i "MediaControl" precedentemente impostati:
 src.LinkTo(vbin)
 vbin.LinkLaterTo(vcon)
 vcon.LinkTo(vsnk)

 asrc = New MediaControl(pl, "filesrc")
 asrc["location"] = filevideo
 asrc.LinkTo(abin)
 abin.LinkLaterTo(acon)
 acon.LinkTo(ares)
 ares.LinkTo(asnk)

' Imposta la superficie grafica ove mostrare il video:
 vsnk.SetWindow(DrawingArea1)

 pl.Play()

 Repeat 
   Wait 0.01
 Until pl.Duration > 0.0

 Repeat
' Mostra il tempo trascorso dall'avvio del video:
   Me.Title = "Tempo: " & Format(Time(0, 0, 0, pl.Position * 1000), "hh:nn:ss")
   Wait 0.1
 Until pl.Position >= pl.Duration

 pl.Close
 
End

Ruotare un video usando il plugin "decodebin" mediante la Classe MediaPipeline e MediaControl

E' possibile ruotare un video mediante l'uso del plugin "decodebin" di GStreamer e delle Classi "MediaPipeline" and "MediaControl" del Componente gb.media.

Eseguire un video ruotato, nel quale è possibile ascoltare anche l'eventuale audio

Mostriamo un esempio, precisando, però, che se il video contiene audio, questo non sarà ascoltabile.

Private Enum none = 0, clockwise, rotate_180, counterclockwise, horizontal_flip,
             vertical_flip, upper_left_diagonal, upper_right_diagonal, automatic


Public Sub Button1_Click()
 
 Dim pl As MediaPipeline
 Dim src, bin, con, flp, snk As MediaControl

 pl = New MediaPipeline
  
 src = New MediaControl(pl, "filesrc")
 src["location"] = /percorso/del/filevideo
   
' Imposta i necessari MediaControl:
 bin = New MediaControl(pl, "decodebin")
 con = New MediaControl(pl, "videoconvert")
 flp = New MediaControl(pl, "videoflip")
 flp["method"] = clockwise
 snk = New MediaControl(pl, "xvimagesink")

' Connette i "MediaControl" precedentemente impostati:
 src.LinkTo(bin)
 bin.LinkLaterTo(con)
 con.LinkTo(flp)
 flp.LinkTo(snk)

' Imposta la superficie grafica ove mostrare il video:
 snk.SetWindow(DrawingArea1)

 pl.Play()

 Repeat 
   Wait 0.01
 Until pl.Duration > 0.0

 Repeat
' Mostra il tempo trascorso dall'avvio del video:
   Me.Title = "Tempo: " & Format(Time(0, 0, 0, pl.Position * 1000), "hh:nn:ss")
   Wait 0.1
 Until pl.Position >= pl.Duration

 pl.Close
 
End

Eseguire un video ruotato, nel quale è possibile ascoltare anche l'eventuale audio

Con quest'altro codice, se il video contiene anche l'audio, questo sarà udibile:

Private Enum none = 0, clockwise, rotate_180, counterclockwise, horizontal_flip,
             vertical_flip, upper_left_diagonal, upper_right_diagonal, automatic


Public Sub Button1_Click()
 
 Dim pl As MediaPipeline
 Dim vsrc, vbin, vcon, vflp, vsnk, asrc, abin, acon, ares, asnk As MediaControl
 Dim filevideo As String

 filevideo = "/percorso/del/filevideo"

 pl = New MediaPipeline
  
 vsrc = New MediaControl(pl, "filesrc")
 vsrc["location"] = filevideo
   
' Imposta i necessari MediaControl:
 vbin = New MediaControl(pl, "decodebin")
 vcon = New MediaControl(pl, "videoconvert")
 vflp = New MediaControl(pl, "videoflip")
 vflp["method"] = clockwise
 vsnk = New MediaControl(pl, "xvimagesink")

 abin = New MediaControl(pl, "decodebin")
 acon = New MediaControl(pl, "audioconvert")
 ares = New MediaControl(pl, "audioresample")
 asnk = New MediaControl(pl, "autoaudiosink")

' Connette i "MediaControl" precedentemente impostati:
 vsrc.LinkTo(vbin)
 vbin.LinkLaterTo(vcon)
 vcon.LinkTo(vflp)
 vflp.LinkTo(vsnk)

 asrc = New MediaControl(pl, "filesrc")
 asrc["location"] = filevideo
 asrc.LinkTo(abin)
 abin.LinkLaterTo(acon)
 acon.LinkTo(ares)
 ares.LinkTo(asnk)

' Imposta la superficie grafica ove mostrare il video:
 vsnk.SetWindow(DrawingArea1)

 pl.Play()

 Repeat 
   Wait 0.01
 Until pl.Duration > 0.0

 Repeat
' Mostra il tempo trascorso dall'avvio del video:
   Me.Title = "Tempo: " & Format(Time(0, 0, 0, pl.Position * 1000), "hh:nn:ss")
   Wait 0.1
 Until pl.Position >= pl.Duration

 pl.Close
 
End

Note

[1] Riguardo all'Oggetto grafico da usare con il Metodo ".SetWindow()" della Classe "MediaPlayer", B. Minisini ha chiarito che esso necessita di un controllo che avesse una vera finestra X11 (o Wayland), altrimenti si userà il primo controllo genitore con una finestra reale, che di solito è quella di primo livello.