Differenze tra le versioni di "Mostrare un segnale di test video mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per mostrare un segnale di test video mediante il Componente ''gb.media'' all'interno della superficie di un oggetto posto sul ''Form'', è possibile adottare il seguente semp...") |
|||
| Riga 6: | Riga 6: | ||
Dim da As DrawingArea | Dim da As DrawingArea | ||
| − | Dim | + | Dim src, xim As MediaControl |
<FONT Color=gray>' ''Crea una "DrawingArea" come oggetto GUI da usare per l'uscita video:''</font> | <FONT Color=gray>' ''Crea una "DrawingArea" come oggetto GUI da usare per l'uscita video:''</font> | ||
| Riga 19: | Riga 19: | ||
pl = New MediaPipeline | pl = New MediaPipeline | ||
| − | + | src = New MediaControl(pl, "videotestsrc") | |
xim = New MediaControl(pl, "ximagesink") | xim = New MediaControl(pl, "ximagesink") | ||
| Riga 25: | Riga 25: | ||
xim.SetWindow(da) | xim.SetWindow(da) | ||
| − | + | src.LinkTo(xim) | |
'''End''' | '''End''' | ||
Versione delle 03:44, 21 lug 2017
Per mostrare un segnale di test video mediante il Componente gb.media all'interno della superficie di un oggetto posto sul Form, è possibile adottare il seguente semplice codice:
Private pl As MediaPipeline
Public Sub Form_Open()
Dim da As DrawingArea
Dim src, xim As MediaControl
' Crea una "DrawingArea" come oggetto GUI da usare per l'uscita video:
With da = New DrawingArea(Me)
.X = 10
.Y = 10
.W = 320
.H = 240
.Background = Color.Transparent
End With
pl = New MediaPipeline
src = New MediaControl(pl, "videotestsrc")
xim = New MediaControl(pl, "ximagesink")
' Imposta la superficie dell'Oggetto, ove sarà mostrato il segnale di controllo video:
xim.SetWindow(da)
src.LinkTo(xim)
End
Public Sub Button1_Click()
pl.Play()
End
