Differenze tra le versioni di "Eseguire un DVD video mediante le risorse del Componente gb.media"
(Creata pagina con "E' possibile eseguire una traccia di un DVD video mediante il Componente ''gb.media'' di Gambas, utilizzando alcune sue risorse. Va precisato che è opportuno specificare il...") |
|||
Riga 22: | Riga 22: | ||
Do | Do | ||
<FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati:''</font> | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati:''</font> | ||
− | Write #File.Out, "\rDurata del | + | Write #File.Out, "\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.01 | Wait 0.01 | ||
Loop Until (mp.Position >= mp.Duration) Or (bo = True) | Loop Until (mp.Position >= mp.Duration) Or (bo = True) | ||
Riga 43: | Riga 43: | ||
L'utilizzo della sola Classe ''MediaPipeline'' del Componente ''gb.media'' prevede l'uso del plug-in "''playbin''". | L'utilizzo della sola Classe ''MediaPipeline'' del Componente ''gb.media'' prevede l'uso del plug-in "''playbin''". | ||
− | Mostriamo un semplice esempio, nel quale imposteremo | + | Mostriamo un semplice esempio, nel quale imposteremo come file-device del lettore DVD il percorso "''/dev/cdrom''". |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Riga 54: | Riga 54: | ||
Do | Do | ||
− | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati processati:''</font> | + | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati:''</font> |
− | Write #File.Out, "\rDurata del | + | Write #File.Out, "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) |
Wait 0.01 | Wait 0.01 | ||
Loop Until (pl.Position >= pl.Duration) | Loop Until (pl.Position >= pl.Duration) | ||
Riga 65: | Riga 65: | ||
L'esecuzione di una traccia può essere effettuata anche utilizzando le Classi ''MediaPipeline'' e ''MediaControl'' del Componente ''gb.media''. | L'esecuzione di una traccia può essere effettuata anche utilizzando le Classi ''MediaPipeline'' e ''MediaControl'' del Componente ''gb.media''. | ||
− | Mostriamo un semplice esempio, nel quale imposteremo | + | Mostriamo un semplice esempio, nel quale imposteremo come file-device del lettore DVD il percorso "''/dev/cdrom''". |
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Riga 79: | Riga 79: | ||
Do | Do | ||
− | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati processati:''</font> | + | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati:''</font> |
− | Write #File.Out, "\rDurata del | + | Write #File.Out, "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) |
Wait 0.01 | Wait 0.01 | ||
Loop Until (pl.Position >= pl.Duration) | Loop Until (pl.Position >= pl.Duration) | ||
'''End''' | '''End''' |
Versione delle 18:33, 17 feb 2017
E' possibile eseguire una traccia di un DVD video mediante il Componente gb.media di Gambas, utilizzando alcune sue risorse.
Va precisato che è opportuno specificare il corretto file-device del lettore DVD da assegnare alla proprietà .URL delle Classi appresso utilizzate del Componente gb.media.
Uso della sola Classe MediaPlayer
L'utilizzo della sola Classe MediaPipeline del Componente gb.media prevede l'uso del plug-in "playbin".
Mostriamo un semplice esempio, nel quale imposteremo come file-device del lettore DVD il percorso "/dev/cdrom".
Private bo As Boolean Public Sub Main() Dim mp As MediaPlayer With mp = New MediaPlayer .URL = "dvd:///dev/cdrom" .Play End With Do ' Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati: Write #File.Out, "\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.01 Loop Until (mp.Position >= mp.Duration) Or (bo = True) mp.Stop Quit End Public Sub Application_Read() ' Premendo il tasto "Invio" della tastiera, si arresta il programma bo = True End
Uso della sola Classe MediaPipeline
L'utilizzo della sola Classe MediaPipeline del Componente gb.media prevede l'uso del plug-in "playbin".
Mostriamo un semplice esempio, nel quale imposteremo come file-device del lettore DVD il percorso "/dev/cdrom".
Public Sub Main() Dim pl As MediaPipeline pl = New MediaPipeline(Null, "playbin") pl["uri"] = "dvd:///dev/cdrom" pl.Play() Do ' Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati: Write #File.Out, "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) Wait 0.01 Loop Until (pl.Position >= pl.Duration) End
Uso della Classe MediaPipeline e della Classe MediaControl
L'esecuzione di una traccia può essere effettuata anche utilizzando le Classi MediaPipeline e MediaControl del Componente gb.media.
Mostriamo un semplice esempio, nel quale imposteremo come file-device del lettore DVD il percorso "/dev/cdrom".
Public Sub Main() Dim pl As MediaPipeline Dim src As MediaControl pl = New MediaPipeline src = New MediaControl(pl, "playbin") src["uri"] = "dvd:///dev/cdrom" pl.Play() Do ' Mostra in console la posizione, espressa in secondi, all'interno dei dati video processati: Write #File.Out, "\rDurata del video: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Duration * 1000)) & " - Tempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) Wait 0.01 Loop Until (pl.Position >= pl.Duration) End