Differenze tra le versioni di "Eseguire i file video con il Componente gb.media"
Da Gambas-it.org - Wikipedia.
| Riga 153: | Riga 153: | ||
| − | ==Eseguire un file video | + | ==Eseguire un file video usando il plugin "Playbin" mediante la Classe ''MediaPipeline''== |
| − | + | Mostriamo un esempio, nel quale il flusso audio-video sarà gestito dal plugin "playbin". | |
| − | |||
| − | |||
Si useranno le Classi ''MediaPipeline'' e ''MediaControl''. | Si useranno le Classi ''MediaPipeline'' e ''MediaControl''. | ||
| Riga 167: | Riga 165: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | + | Dim bin As MediaControl | |
| − | |||
| − | Dim bin | ||
| − | |||
Dim filevideo As String | Dim filevideo As String | ||
| − | filevideo = "<FONT Color=gray>''/percorso/del/file/video''</font>" | + | filevideo = Uri("<FONT Color=gray>''/percorso/del/file/video''</font>") |
| − | pl = New MediaPipeline As " | + | pl = New MediaPipeline As "Pipe" |
| − | + | bin = New MediaControl(pl, "playbin") | |
| − | + | bin["uri"] = filevideo | |
| + | bin["volume"] = 0.6 <FONT Color=gray>' ''Volume: da 0.0 a 1.0''</font> | ||
| − | + | pl.Play | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | Print "\r\e[0mDurata del video: "; Time(0, 0, 0, pl.Duration * 1000) | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
Repeat | Repeat | ||
| − | + | <FONT color=gray>' ''Un'attesa elevata garantisce la fluidità video di qualsiasi formato video:''</font> | |
| − | Wait | + | Wait 2 |
Until bo == True | Until bo == True | ||
pl.Stop | pl.Stop | ||
pl.Close | pl.Close | ||
| − | + | <FONT Color=gray>' ''Consente di terminare il programma evitando l'uso di 'Quit'''</font> | |
| + | pl = Null | ||
Write "\n\e[0mEsecuzione terminata !" | Write "\n\e[0mEsecuzione terminata !" | ||
| Riga 225: | Riga 194: | ||
'''End''' | '''End''' | ||
| − | + | '''Private''' Function Uri(s As String) As String | |
| + | |||
| + | Return "File:/" &/ s | ||
| + | |||
| + | '''End''' | ||
| + | |||
'''Public''' Sub PL_End() | '''Public''' Sub PL_End() | ||
| Riga 231: | Riga 205: | ||
'''End''' | '''End''' | ||
| − | |||
| − | |||
Versione delle 16:29, 28 mag 2021
Il componente gb.media offre la possibilità di sfruttare le funzionalità della piattaforma multimediale modulare GStreamer per la gestione di file video.
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. Nel caso si utilizzi una DrawingArea, bisogna impostare un qualsiasi colore la sua proprietà .Background.
Indice
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 = 300
.H = 300
.Background = Color.Black
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()
Do
' Una brevissima pausa consente di mostrare e di agire sugli eventuali oggetti posti sul Form:
Wait 0.01
TextLabel1.Text = "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000))
Loop 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
E' possibile far mostrare il video in una finestra automaticamente aperta da Gstreamer all'esterno del Form. Ovviamente non verrà impostato alcuno specifico controllo grafico GUI.
Anche questa finestra, volendo, può essere gestita mediante le Classi Desktop e DesktopWindow attivando i componenti gb.desktop e gb.desktop.x11.
Mostriamo un semplice esempio in ambiente grafico:
Private mp As New MediaPlayer
Public Sub Form_Open()
mp.URL = Media.URL("/percorso/del/file/video")
End
Public Sub Form_Activate()
' Esegue il video:
mp.Play()
Do
' Una brevissima pausa consente di agire sugli eventuali oggetti posti sul Form:
Wait 0.01
TextLabel1.Text = "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000))
Loop Until mp.Position >= mp.Duration
mp.Stop
End
Public Sub Button1_Click()
mp.Stop
End
Public Sub ToggleButton1_Click()
If ToggleButton1.Value Then
mp.Pause
Else
mp.Play
Endif
End
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 audio semplicemente premendo sul tasto "Invio":
Private bo As Boolean
Public Sub Main()
Dim mp As New MediaPlayer
mp.URL = Media.URL("/percorso/del/file/video")
' Esegue il brano:
mp.Play()
' Garantisce l'acquisizione della "durata" del video, affinché non si esca prematuramente dal ciclo successivo e venga così eseguito il file:
Repeat
Wait 0.01
Until mp.Duration > 0
Repeat
Write "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000))
Wait 0.001
Until (mp.Position >= mp.Duration) Or (bo = True)
mp.Close
Quit
End
Public Sub Application_Read()
bo = True
End
Eseguire un file video usando il plugin "Playbin" mediante la Classe MediaPipeline
Mostriamo un esempio, nel quale il flusso audio-video sarà gestito dal plugin "playbin".
Si useranno le Classi MediaPipeline e MediaControl.
Mostriamo un esempio pratico:
Private bo As Boolean
Private pl As MediaPipeline
Public Sub Main()
Dim bin As MediaControl
Dim filevideo As String
filevideo = Uri("/percorso/del/file/video")
pl = New MediaPipeline As "Pipe"
bin = New MediaControl(pl, "playbin")
bin["uri"] = filevideo
bin["volume"] = 0.6 ' Volume: da 0.0 a 1.0
pl.Play
Print "\r\e[0mDurata del video: "; Time(0, 0, 0, pl.Duration * 1000)
Repeat
' Un'attesa elevata garantisce la fluidità video di qualsiasi formato video:
Wait 2
Until bo == True
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
Public Sub PL_End()
bo = True
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 ayland), altrimenti se userà il primo controllo genitore con una finestra reale, che di solito è quella di primo livello.
