Versione delle 17:40, 13 lug 2024

Per mostrare la ripresa video di una webcam mediante il Controllo MediaView, si deve impostare il percorso del dispositivo che si riferisce alla webcam:

v4l2:///dev/videoN

laddove N è un numero di indice iniziale 0 (zero). ^{[nota 1]}

Va nche detto che il Controllo MediaView è composto da "Figli" (Children) e "sotto-figli" (...nipoti).
Uno di questi "sotto-figli" è una DrawingArea, che è l'Oggetto grafico con cui il Controllo MediaView visualizza immagini e video.
Individueremo, dunque, il numero di identificazione di questa DrawingArea, costitutiva del Controllo MediaView, e con la particolare Proprietà "xid" del plugin "ximagesrc" cattureremo il video che essa mostra.

Mostriamo degli esempi, usando la Classe MediaPipeline, necessaria per catturare la ripresa video.
Va sottolineato che la registrazione attraverso le risorse della Classe MediaPipeline potrebbe iniziare con alcuni secondi di ritardo rispetto all'avvio della ripresa video del Controllo MediaView.

La registrazione del video terminerà nel momento in cui verrà fermata la ripresa video con la webcam, premendo sul tastino virtuale di arresto posto in basso a sinistra del Controllo MediaView.

Creazione di un file video di formato MP4

Public Sub Form_Open()

 Me.Show

 MediaView1.URL = "v4l2:///dev/video0"

 Dim ob As Object
 Dim pn1, pn2 As Panel
 Dim DrawingArea1 As DrawingArea
 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl

 If Exist("/tmp/video.mp4") Then Kill "/tmp/video.mp4"

' Individua l'Oggetto "DrawingArea", 'figlio' del Controllo "MediaView":
 ob = MediaView1.Children[0]
 pn1 = ob.Children[0]
 pn2 = pn1.Children[0]
 DrawingArea1 = pn2.Children[0]
 pl = New MediaPipeline

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla Proprietà "xid" il numero identificativo dell'Oggetto "DrawingArea":
 src["xid"] = DrawingArea1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 enc["pass"] = 5
 enc["quantizer"] = 26
 enc["speed-preset"] = 6
 mux = New MediaControl(pl, "mp4mux")
 mux["fragment-duration"] = 2048
 snk = New MediaControl(pl, "filesink")
' Imposta il percorso finale del file di formato MP4:
 snk["location"] = "/tmp/video.mp4"
  
' Collega i plugin del sistema audio "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Resta in attesa finché la registrazione non viene avviata dall'utente:
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Playing

 pl.play

' Resta in attesa che la registrazione venga interrotta dall'utente, cliccando sul tastino virtuale di arresto del Controllo "MediaView":
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Ready

 pl.Stop
 pl.Close

 Print "Registrazione terminata !"

 Print "File video creato !"

End

Creazione di un file video di formato Matroska

Public Sub Form_Open()

 Me.Show

 MediaView1.URL = "v4l2:///dev/video0"

 Dim ob As Object
 Dim pn1, pn2 As Panel
 Dim DrawingArea1 As DrawingArea
 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl

 If Exist("/tmp/video.mkv") Then Kill "/tmp/video.mkv"

' Individua l'Oggetto "DrawingArea", 'figlio' del Controllo "MediaView":
 ob = MediaView1.Children[0]
 pn1 = ob.Children[0]
 pn2 = pn1.Children[0]
 DrawingArea1 = pn2.Children[0]
 pl = New MediaPipeline

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla Proprietà "xid" il numero identificativo dell'Oggetto "DrawingArea":
 src["xid"] = DrawingArea1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 mux = New MediaControl(pl, "matroskamux") 
 snk = New MediaControl(pl, "filesink")
' Imposta il percorso finale del file di formato MKV (Matroska):
 snk["location"] = "/tmp/video.mkv"

' Collega i plugin del sistema audio "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Resta in attesa finché la registrazione non viene avviata dall'utente:
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Playing

 pl.play

' Resta in attesa che la registrazione venga interrotta dall'utente, cliccando sul tastino virtuale di arresto del Controllo "MediaView":
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Ready

 pl.Stop
 pl.Close

 Print "Registrazione terminata !"

 Print "File video creato !"

End

Creazione di un file video di formato OGG-Theora

Public Sub Form_Open()

 Me.Show

 MediaView1.URL = "v4l2:///dev/video0"

 Dim ob As Object
 Dim pn1, pn2 As Panel
 Dim DrawingArea1 As DrawingArea
 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl
 Dim flt As MediaFilter

 If Exist("/tmp/video.ogg") Then Kill "/tmp/video.ogg"

' Individua l'Oggetto "DrawingArea", 'figlio' del Controllo "MediaView":
 ob = MediaView1.Children[0]
 pn1 = ob.Children[0]
 pn2 = pn1.Children[0]
 DrawingArea1 = pn2.Children[0]
 pl = New MediaPipeline

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla Proprietà "xid" il numero identificativo dell'Oggetto "DrawingArea":
 src["xid"] = DrawingArea1.Id
 cnv = New MediaControl(pl, "videoconvert")
 flt = New MediaFilter(pl, "video/x-raw,framerate=5/1")
 enc = New MediaControl(pl, "theoraenc")
 mux = New MediaControl(pl, "oggmux")
 snk = New MediaControl(pl, "filesink")
' Imposta il percorso finale del file di formato "OGG-Theora":
 snk["location"] = "/tmp/video.ogg"

' Collega i plugin del sistema audio "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(flt)
 flt.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Il ciclo dura, finché la registrazione non viene avviata dall'utente::
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Playing

 pl.play

' Resta in attesa che la registrazione venga interrotta dall'utente, cliccando sul tastino virtuale di arresto del Controllo "MediaView":
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Ready

 pl.Stop
 pl.Close

 Print "Registrazione terminata !"

 Print "File video creato !"

End

Creazione di un file video di formato FLV

Public Sub Form_Open()

 Me.Show

 MediaView1.URL = "v4l2:///dev/video0"

 Dim ob As Object
 Dim pn1, pn2 As Panel
 Dim DrawingArea1 As DrawingArea
 Dim pl As MediaPipeline
 Dim src, cnv, enc, mux, snk As MediaControl

 If Exist("/tmp/video.flv") Then Kill "/tmp/video.flv"

' Individua l'Oggetto "DrawingArea", 'figlio' del Controllo "MediaView":
 ob = MediaView1.Children[0]
 pn1 = ob.Children[0]
 pn2 = pn1.Children[0]
 DrawingArea1 = pn2.Children[0]
 pl = New MediaPipeline

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla Proprietà "xid" il numero identificativo dell'Oggetto "DrawingArea":
 src["xid"] = DrawingArea1.Id
 cnv = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "x264enc")
 enc["pass"] = 5
 enc["quantizer"] = 26
 enc["speed-preset"] = 6
 mux = New MediaControl(pl, "flvmux")
 snk = New MediaControl(pl, "filesink")
' Imposta il percorso finale del file di formato "FLV":
 snk["location"] = "/tmp/video.flv"
  
' Collega i plugin del sistema audio "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Resta in attesa finché la registrazione non viene avviata dall'utente:
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Playing

 pl.play

' Resta in attesa che la registrazione venga interrotta dall'utente, cliccando sul tastino virtuale di arresto del Controllo "MediaView":
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Ready

 pl.Stop
 pl.Close

 Print "Registrazione terminata !"

 Print "File video creato !"

End

Creazione di un file video di formato AVI

Public Sub Form_Open()

 Me.Show

 MediaView1.URL = "v4l2:///dev/video0"

 Dim ob As Object
 Dim pn1, pn2 As Panel
 Dim DrawingArea1 As DrawingArea
 Dim pl As MediaPipeline
 Dim src, cnv, mux, snk As MediaControl

 If Exist("/tmp/video.avi") Then Kill "/tmp/video.avi"

' Individua l'Oggetto "DrawingArea", 'figlio' del Controllo "MediaView":
 ob = MediaView1.Children[0]
 pn1 = ob.Children[0]
 pn2 = pn1.Children[0]
 DrawingArea1 = pn2.Children[0]
 pl = New MediaPipeline

 src = New MediaControl(pl, "ximagesrc")
' Assegna alla Proprietà "xid" il numero identificativo dell'Oggetto "DrawingArea":
 src["xid"] = DrawingArea1.Id
 cnv = New MediaControl(pl, "videoconvert")
 mux = New MediaControl(pl, "avimux")
 snk = New MediaControl(pl, "filesink")
' Imposta il percorso finale del file di formato "AVI":
 snk["location"] = "/tmp/video.avi"
  
' Collega i plugin del sistema audio "GStreamer":
 src.LinkTo(cnv)
 cnv.LinkTo(enc)
 enc.LinkTo(mux)
 mux.LinkTo(snk)

' Resta in attesa finché la registrazione non viene avviata dall'utente:
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Playing

 pl.play

' Resta in attesa che la registrazione venga interrotta dall'utente, cliccando sul tastino virtuale di arresto del Controllo "MediaView":
 Repeat 
   Wait 0.01
 Until MediaView1.State = Media.Ready

 pl.Stop
 pl.Close

 Print "Registrazione terminata !"

 Print "File video creato !"

End

Note

[1] Vedere la seguente pagina della wiki: Mostrare la ripresa video di una webcam mediante l'oggetto MediaView del componente gb.media.form