Visualizza wikitesto di Catturare con il Componente gb.media quanto mostrato dalla finestra di un programma o sulla Scrivania e farne un file video

Con le risorse del Componente "gb.media" è possibile catturare immagini di quanto avviene in una finestra di un programma di Gambas o esterno e farne un file video.

Va detto che questa possibilità di registrazione video è estesa ovviamente anche alla Scrivania (''Desktop''), e che in tal caso sarà catturato anche il puntatore del mouse.

Per individuare la <SPAN Style="text-decoration:underline">finestra</span>, che si intende registrare, bisognerà passare alla Proprietà "xid" del ''MediaControl'' "ximagesrc" il [[Individuare_ed_estrarre_l'ID_della_finestra_di_un_programma|numero identificativo della finestra]] medesima. Per la ''Scrivania'' è anche possibile impostare più semplicemente il suo ID di default uguale a 0 (zero).

Altresì si può creare un file video di ciò che avviene in un Controllo di Gambas, passando ovviamente alla Proprietà "xid" del ''MediaControl'' "ximagesrc" il ''numero identificativo'' di detto Oggetto grafico.

=Creare un file video in formato MP4=

===Catturare quanto accade visivamente sulla ''Scrivania''===
Nel seguente esempio si cattureranno i dati video (<U>senza audio</u>) di quanto accade visivamente sulla ''Scrivania'', dai quali si creerà un file video, privo di audio, in formato MP4.
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
 
  Dim src, cnv, enc, mux, snk As MediaControl
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero identificativo (zero) della "Scrivania", affinché catturi quanto in essa visualizzato:''</font>
  src["xid"] = 0
  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")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mp4"
 
 <FONT Color=gray>' ''Collega i plugin di "GStreamer" utilizzati:''</font>
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
 End
 
 Public Sub Button1_Click()
   
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
 
 End
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
 
  Print "Registrazione terminata"
 
 End

===Catturare quanto accade visivamente in un Controllo "MediView"===
Nel seguente esempio si cattureranno i dati video (<U>senza audio</u>) di quanto accade visivamente su un <U>intero</u> Controllo ''MediView'', dai quali si creerà un file video, privo di audio, in formato MP4.

Assicurarsi che siano installati nel proprio sistema i seguenti plugin di GStreamer:
* gstreamer1.0-plugins-good
* gstreamer1.0-plugins-bad
* gstreamer1.0-plugins-ugly
* gst-libav
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
 
  Dim src, cnv, enc, mux, snk As MediaControl
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla Proprietà "xid" del plugin "ximagesrc" il numero identificativo del Controllo "MediaView", affinché catturi quanto sull'<U>intero</u> Controllo è visualizzato:''</font>
  src["xid"] = MediaView1.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")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mp4"
 
 <FONT Color=gray>' ''Collega i plugin di "GStreamer" utilizzati:''</font>
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
  MediaView1.URL = Media.URL("<FONT Color=darkgreen>''/percorso/del/file/video''</font>)
 
 End
 
 Public Sub Button1_Click()
   
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
 
 End
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
 
  Print "Registrazione terminata"
 
 End

===Catturare quanto mostrato nella sola e specifica area video di un Controllo "MediaView"===
Nel seguente esempio si cattureranno i dati video (<U>senza audio</u>) di quanto mostrato nella <U>sola e specifica area video</u> di un Controllo ''MediaView'', dai quali si creerà un file video, privo di audio, in formato MP4.
<BR>In particolare il video viene mostrato in una ''DrawingArea'', posta all'interno di un Oggetto grafico ''Panel'', a sua volta ''Figlio'' del Controllo  ''MediaView''. Bisognerà pertanto individuare e gestire tale ''DrawingArea''.
<BR>Ciò sta a significare anche che è possibile creare dati video di quanto avviene in un ''Oggetto grafico'' di Gambas.

Assicurarsi che siano installati nel proprio sistema i seguenti plugin di GStreamer:
* gstreamer1.0-plugins-good
* gstreamer1.0-plugins-bad
* gstreamer1.0-plugins-ugly
* gst-libav
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
 
  Dim src, cnv, enc, mux, snk As MediaControl
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Individua e poi assegna alla Proprietà "xid" del plugin "ximagesrc" il numero identificativo della "DrawingArea'', affinché catturi quanto mostrato nella <U>sola e specifica area video</u> del Controllo "MediView":''</font>
  Dim ob As Object
  Dim pn As Panel
  Dim DrawingArea1 as DrawingArea
  ob = MediaView1.Children[0]
  pn = ob.Children[0]
  DrawingArea1 = pn.Children[0]
  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")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mp4"
 
 <FONT Color=gray>' ''Collega i plugin di "GStreamer" utilizzati:''</font>
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
  MediaView1.URL = Media.URL("<FONT Color=darkgreen>''/percorso/del/file/video''</font>)
 
 End
 
 Public Sub Button1_Click()
   
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
 
 End
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
 
  Print "Registrazione terminata"
 
 End

===Catturare quanto accade visivamente in un programma esterno===
Analogamente, si potrà riprendere in un file video .MP4, quanto accade visivamente in un programma esterno.
<BR>Ovviamente alla Proprietà "xid" del plugin "ximagesrc" bisognerà passare il <U>numero identificativo della finestra</u> del programma esterno.



=Creare un file video in formato Matroska=
===Catturare quanto accade visivamente in un Controllo "MediView"===
Nel seguente esempio si cattureranno i dati video (<SPAN Style="text-decoration:underline">senza audio</span>) mostrati in un Controllo ''MediaView'', dai quali si creerà un file video, privo di audio, in formato Matroska (.mkv).
<BR>Ai fini dell'esempio si dovrà utilizzare le Classi "MediaControl" e "MediaPipeline" del Componente gb.media
<BR>Come già accennato nell'esempio precedente, il Controllo "MediaView" è composto da "Figli" e "Figli secondari" (...nipoti). Uno di questi "sub-Children" è una "DrawingArea", che in sostanza è l'Oggetto grafico <U>specifico</u> con cui il Controllo "MediaView" visualizza immagini e video.
<BR>Identificheremo innanzitutto il numero identificativo di questa "DrawingArea", costitutiva del Controllo "MediaView", e con una particolare Proprietà del plugin "ximagesrc" cattureremo il video che essa mostra.
 Event Evento
 
 
 Public Sub Form_Open()
 
  Me.Show
  Wait 0.1
 
  MediaView1.URL = "<FONT Color=darkgreen>''/percorso/del/media/da/catturare''</font>"
 
  Repeat 
     Wait 0.01
  Until MediaView1.Position > 0.0
 
  Raise Evento
 
 End
 
 
 Public Sub Form_Evento()
 
  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
  
 <FONT Color=gray>' ''Una parte dell'ampia "famiglia" che compone il Controllo "MediaView":''</font>
  ob = MediaView1.Children[0]
  pn1 = ob.Children[0]
  pn2 = pn1.Children[0]
  DrawingArea1 = pn2.Children[0]
  
  pl = New MediaPipeline 
  
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero idetificativo della "DrawingArea", affinché catturi quanto da essa visualizzato:''</font>
  src["xid"] = DrawingArea1.Id
  cnv = New MediaControl(pl, "videoconvert")
  enc = New MediaControl(pl, "x264enc")
  mux = New MediaControl(pl, "matroskamux") 
  snk = New MediaControl(pl, "filesink")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mkv"
   
 <FONT Color=gray>' ''Collega i plugin di "GStreamer" utilizzati:''</font>
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
  pl.play
 
  Wait MediaView1.Duration
  
  Print "File video creato !"
 
 End

===Catturare quanto mostrato sulla ''Scrivania''===
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
 
  Dim src, cnv, enc, mux, snk As MediaControl
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero idetificativo della "Scrivania", affinché catturi quanto da essa visualizzato:''</font>
  src["xid"] = 0
  cnv = New MediaControl(pl, "videoconvert")
  enc = New MediaControl(pl, "x264enc")
  mux = New MediaControl(pl, "matroskamux") 
  snk = New MediaControl(pl, "filesink")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mkv"
 
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
 End
 
 Public Sub Button1_Click()
   
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
  
 End
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
 
  Print "Registrazione Terminata"
 
 End

===Catturare quanto avviene visivamente in un Oggetto grafico di Gambas===
In questo esempio registriamo in un video quanto avviene visivamente in un Oggetto grafico di Gambas, nel quale è posto anche un ''ValueBox''.
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
 
  Dim src, cnv, enc, mux, snk As MediaControl
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla proprietà "xid" del plugin "ximagesrc" il numero identificativo del "ValueBox", affinché catturi quanto da essa visualizzato:''</font>
  src["xid"] = ValueBox1.Id
  cnv = New MediaControl(pl, "videoconvert")
  enc = New MediaControl(pl, "x264enc")
  mux = New MediaControl(pl, "matroskamux") 
  snk = New MediaControl(pl, "filesink")
 <FONT Color=gray>' ''Imposta il percorso del file video finale del formato "mkv" (Matroska):''</font>
  snk["location"] = "/tmp/file.mkv"
 
  src.LinkTo(cnv)
  cnv.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk)
 
 End
 
 
 Public Sub Button1_Click()
 
  Dim c As Short = 100
 
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
 
  Repeat 
    Dec c
    ValueBox1.Value = c
    Wait 0.01
  Until c == 0
 
 End
 
 
 Public Sub Button2_Click()
 
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
 
  Print "Registrazione Terminata"
 
 End


=Creare un file video in formato OGV-Theora=
==Creare un video privo di audio==
In questo paragrafo mostreremo alcuni esempi per generare un file video OGV, però <SPAN Style="text-decoration:underline">privo di audio</span>.

In particolare di seguito mostriamo un esempio pratico, nel quale si cattureranno immagini di quanto accade sulla ''Scrivania'' e si produrrà con esse un file video OGV muto.
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
  
   Dim src, cnv, enc, mux, snk As MediaControl
   Dim ftr As MediaFilter
 
   pl = New MediaPipeline 
   
   src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Si assegna alla proprietà "xid" il numero identificativo della finestra (in questo caso la "Scrivania") da registrare:''</font>
   src["xid"] = 0
 <FONT Color=gray>' ''La cattura avviene con 1 frame al secondo:''</font>
   ftr = New MediaFilter(pl, "video/x-raw,framerate=4/1")
   cnv = New MediaControl(pl, "videoconvert")
   enc = New MediaControl(pl, "theoraenc")
   mux = New MediaControl(pl, "oggmux")
   snk = New MediaControl(pl, "filesink")
 <FONT Color=gray>' ''Si imposta il percorso del file video finale di formato .ogg:''</font>
   snk["location"] = "/tmp/video.ogv"
   
 <FONT Color=gray>' ''Si collegano fra loro i plugin di "GStreamer" sopra utilizzati:''</font>
   src.LinkTo(ftr)
   ftr.LinkTo(cnv)
   cnv.LinkTo(enc)
   enc.LinkTo(mux)
   mux.LinkTo(snk)
   
 End
 
 
 Public Sub Button1_Click()
    
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
 
 End
 
 
 Public Sub Button2_Click()
  
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
  
  Print "Registrazione fermata"
   
 End

Un'altra modalità, sempre con il fine di ottenere un video di formato "OGG" <SPAN Style="text-decoration:underline">privo di audio</span>, può essere quella in cui una prima fase vengono creati i file immagine in formato .png, che rappresentano vari ''screenshot'' della finestra del programma prescelto, e in una seconda fase si genera da tali molteplici file immagine il vero e proprio file video di formato "OGG".
<BR>Va precisato che le schermate rappresenteranno esclusivamente quanto accade "all'interno" della finestra aperta prescelta. Pertanto, qualora un'altra finestra o un'altro elemento grafico presente sulla Scrivania dovesse coprire in tutto o in parte la finestra prescelta per gli ''screenshot'', essi non saranno registrati nelle schermate, e pertanto non appariranno nel video finale.

E' necessario attivare, oltre ovviamente al Componente ''gb.media'', anche i Componenti "''gb.desktop''" e "''gb.desktop.x11''".

Nell'esempio, che segue, faremo gli ''screenshot'' ed il successivo video OGG di quanto accade esclusivamente "all'interno" della finestra aperta di un Terminale.
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
  
   Dim wid As Integer
   Dim src, sca, con, png, snk As MediaControl
   Dim flt As MediaFilter
 
 <FONT Color=gray>' ''Innanzitutto verifica l'esistenza della Cartella, ove verranno salvati i file immagini delle schermate. Se non esiste, la crea.''</font>
   If Not Exist("/tmp/VIDEO") Then Mkdir "/tmp/VIDEO"
  
 <FONT Color=gray>' ''Passa il nome visibile della finestra prescelta e ne individua il numero identificativo:''</font>
   wid = ID_Finestra("Terminal")
   
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Imposta l'angolo x in alto a sinistra della schermata rispetto alla superficie del Terminale:''</font>
   src["startx"] = 0
   src["use-damage"] = 0
   src["xid"] = wid
   sca = New MediaControl(pl, "videoscale")
   sca["method"] = 0
 <FONT Color=gray>' ''Imposta la dimensione del file immagine finale, nonché il valore di 4 fotogrammi al secondo:''</font>
   flt = New MediaFilter(pl, "video/x-raw,width=640,height=480,framerate=4/1")
   con = New MediaControl(pl, "videoconvert")
   png = New MediaControl(pl, "pngenc")
   snk = New MediaControl(pl, "multifilesink")
   snk["location"] = "/tmp/VIDEO/fotogramma%01d.png" 
   
 <FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>
   src.LinkTo(sca)
   sca.LinkTo(flt)
   flt.LinkTo(con)
   con.LinkTo(png)
   png.LinkTo(snk)
   
 End
 
 
 Public Sub Button1_Click()
  
 <FONT Color=gray>' ''Effettua le schermate:''</font>
   pl.Play()
   
 End
 
 
 Public Sub Button2_Click()
  
 <FONT Color=gray>' ''Chiude il flusso arrestando la produzione delle schermate:''</font>
   pl.Stop()
   pl.Close()
 
   Genera_Video()
  
 End
 
 
 Private Function ID_Finestra(titolo As String) As Integer
  
   Dim i As Integer
  
   i = Desktop.FindWindow(titolo, Null, Null)[0]
   
   Return i
   
 End
 
 
 Private Procedure Genera_Video()
  
   Dim src, png, con, rat, thr, mux, snk As MediaControl
  
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "multifilesrc")
   src["location"] = "/tmp/VIDEO/fotogramma%01d.png"
   src["index"] = 0
 <FONT Color=gray>' ''Imposta il valore di 4 fotogrammi al secondo:''</font>
   src["caps"] = "image/png,framerate=4/1"
   png = New MediaControl(pl, "pngdec")
   con = New MediaControl(pl, "videoconvert")
   rat = New MediaControl(pl, "videorate")
   thr = New MediaControl(pl, "theoraenc")
   mux = New MediaControl(pl, "oggmux")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = "/tmp/video.ogg"
    
 <FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>
   src.LinkTo(png)
   png.LinkTo(con)
   con.LinkTo(rat)
   rat.LinkTo(thr)
   thr.LinkTo(mux)
   mux.LinkTo(snk)
    
 End
 
 
 Public Sub Button3_Click()
  
 <FONT Color=gray>' ''Genera il file video finale:''</font>
  pl.Play()
  
 End

Nella seguente terza modalità si utilizzerà il Componente ''gb.media'' soltanto nella seconda fase, ossia quella in cui viene generato il file video ".ogv".
<BR>Bisognerà comunque attivare anche i Componenti ''gb.desktop'' e ''gb.desktop.x11'', che permetteranno di utilizzare il Metodo ".GetScreenshot()" della Classe ''DesktopWindow'', per ottenere gli ''screenshot'' della finestra prescelta.

Anche in questo esempio pratico che segue, faremo gli ''screenshot'' ed il successivo video OGG di quanto accade nella finestra aperta di un Terminale.

Va comunque precisato che in questo caso, differentemnte dalla mosdalità precedentemente vista, sarà registrato, non solo quanto accade "''nella''", ma anche quanto accade eventualmente al di sopra (ad esempio la sovrapposizione di un'altra finestra o il passaggio del puntatore del mouse).
 Private i As Integer
 Private tempus As Timer
 Private dw As DesktopWindow
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
  
   Dim wid As Integer
 
 <FONT Color=gray>' ''Innanzitutto verifica l'esistenza della Cartella, ove verranno salvati i file immagini delle schermate. Se non esiste, la crea.''</font>
   If Not Exist("/tmp/VIDEO") Then Mkdir "/tmp/VIDEO"
   
 <FONT Color=gray>' ''Individua il numero identificativo della finestra del Terminale...''</font>
   wid = Desktop.FindWindow("Terminal", Null, Null)[0] 
   
 <FONT Color=gray>' ''...e lo passa all'oggetto "DesktopWindow" da creare:''</font>
   dw = New DesktopWindow(wid)
   
 End
 
 
 Public Sub Button1_Click()
  
   With tempus = New Timer As "Tempus"
 <FONT Color=gray>' ''Imposta 250 millisecondi, per ottenere 4 schermate al secondo:''</font>
     .Delay = 250
     .Start
   End With
   
 End
 
 
 Public Sub Tempus_Timer()
  
   Dim pc As Picture
  
   pc = dw.GetScreenshot()
   
   pc.Save("/tmp/VIDEO/fotogramma" & CStr(i) & ".png", 100)
   
   Inc i
   
 End
 
 
 Public Sub Button2_Click()
 
   tempus.Stop
  
   Genera_Video()
  
 End
 
 
 Private Procedure Genera_Video()
  
   Dim src, png, con, rat, thr, mux, snk As MediaControl
  
   pl = New MediaPipeline
   
   src = New MediaControl(pl, "multifilesrc")
   src["location"] = "/tmp/VIDEO/fotogramma%1d.png"
   src["index"] = 0
 <FONT Color=gray>' ''Imposta il valore di 4 fotogrammi al secondo:''</font>
   src["caps"] = "image/png,framerate=4/1"
   png = New MediaControl(pl, "pngdec")
   con = New MediaControl(pl, "videoconvert")
   rat = New MediaControl(pl, "videorate")
   thr = New MediaControl(pl, "theoraenc")
   mux = New MediaControl(pl, "oggmux")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = "/tmp/video.ogg"
 
 <FONT Color=gray>' ''Vengono collegati i vari plug-in di GStreamer utilizzati:''</font>
   src.LinkTo(png)
   png.LinkTo(con)
   con.LinkTo(rat)
   rat.LinkTo(thr)
   thr.LinkTo(mux)
   mux.LinkTo(snk)
   
 End
 
 
 Public Sub Button3_Click()
  
 <FONT Color=gray>' ''Genera il file video finale:''</font>
   pl.Play()
  
 End

====Esempio a ''riga di comando''====
 Private bo As Boolean
 
 
 Public Sub Main()
 
  Dim pl As MediaPipeline
  Dim src, cnv, enc, mux, snk As MediaControl
  Dim flt As MediaFilter
  Dim tm As Date
  Dim i As Integer
 
  If Exist("/tmp/video.ogg") Then Kill "/tmp/video.ogg"
 
  pl = New MediaPipeline 
 
  src = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Assegna alla proprietà "xid" il numero identificativo della finestra da registrare (0 è lo schermo):''</font>
  src["xid"] = 0
  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")
  snk["location"] = "/tmp/video.ogg"
  snk["sync"] = False
  
 <FONT Color=gray>' ''Collega fra loro i plugin di "GStreamer":''</font>
  src.LinkTo(cnv)
  cnv.LinkTo(flt)
  flt.LinkTo(enc)
  enc.LinkTo(mux)
  mux.LinkTo(snk) 
 
 <FONT Color=gray>' ''Avvia la registrazione video:''</font>
  pl.Play()
 
  tm = Now
 
  Repeat
    i = DateDiff(tm, Now, gb.Millisecond)
 <FONT Color=gray>' ''Il tempo trascorso dall'inizio della ripresa video viene mostrato in console/Terminale:''</font>
    Write "\rTempo: " & Str(Time(0, 0, 0, i))
    Wait 0.01
  Until bo
 
  pl.Stop()
  pl.Close()
  Print "\nRegistrazione terminata !"
 
 <FONT Color=gray>' ''Avendo usato l'Evento "Application_Read()", per terminare l'applicazione, è necessario usare il comando "Quit":''</font>
  Quit
 
 End
 
 
 Public Sub Application_Read()  ' Cliccando sui tasti "Invio" dela tastiera, viene sollevato questo Evento
 
  bo = True
 
 End


==Creare un video comprensivo di audio==
In questo paragrafo mostreremo un esempio per generare un file video OGV comprensivo di audio, registrato contemporaneamente al video mediante ad esempio un microfono.

Va sottolineato che dopo aver premuto il tasto di avvio della registrazione audio-video, se si sta registrando quanto accade nella finestra di un programma (e dunque non della Scrivania), bisognerà porre come finestra attiva quella del programma interessato (ad esempio con il mouse oppure via codice). Medesima attenzione bisognerà prestare subito dopo aver arrestato la registrazione.
 Private pl As MediaPipeline
 
 
 Public Sub Form_Open()
  
   Dim srcv, vcon, que1, the, que2, srca, que3, acon, vor, que4, ogg, snk As MediaControl
   Dim flv, fla As MediaFilter
 
   pl = New MediaPipeline 
 
   srcv = New MediaControl(pl, "ximagesrc")
 <FONT Color=gray>' ''Si assegna alla proprietà "xid" il numero identificativo della finestra da registrare:''</font>
   srcv["xid"] = <FONT Color=gray>''numero_identificativo_della_finestra''</font>
 <FONT Color=gray>' ''La cattura avviene con 2 frame al secondo:''</font>
   flv = New MediaFilter(pl, "video/x-raw,framerate=2/1")
   vcon = New MediaControl(pl, "videoconvert")
   que1 = New MediaControl(pl, "queue")
   the = New MediaControl(pl, "theoraenc")
   que2 = New MediaControl(pl, "queue")
   srca = New MediaControl(pl, "alsasrc")
   fla = New MediaFilter(pl, "audio/x-raw,rate=44100,channels=2,depth=16,bit=16")
   que3 = New MediaControl(pl, "queue")
   acon = New MediaControl(pl, "audioconvert")
   vor = New MediaControl(pl, "vorbisenc")
   que4 = New MediaControl(pl, "queue")
   ogg = New MediaControl(pl, "oggmux")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = "/tmp/video.ogv"
 
 <FONT Color=gray>' ''Parte video:''</font>
   srcv.LinkTo(flv)
   flv.LinkTo(vcon)
   vcon.LinkTo(que1)
   que1.LinkTo(the)
   the.LinkTo(que2)
   que2.LinkTo(ogg)
 <FONT Color=gray>' ''Parte audio:''</font>
   srca.LinkTo(fla)
   fla.LinkTo(que3)
   que3.LinkTo(acon)
   acon.LinkTo(vor)
   vor.LinkTo(que4)
 <FONT Color=gray>' ''Combinazione dei dati audio e video:''</font>
   que4.LinkTo(ogg)
 <FONT Color=gray>' ''Creazione del file .ogv finale:''</font>
   ogg.LinkTo(snk)
   
 End
 
 
 Public Sub Button1_Click()
   
 <FONT Color=gray>' ''Avvia la ripresa video:''</font>
  pl.Play()
  
  Desktop.ActiveWindow = <FONT Color=gray>''numero_identificativo_della_finestra''</font>
   
 End
 
 
 Public Sub Button2_Click()
  
 <FONT Color=gray>' ''Ferma la registrazione:''</font>
  pl.Stop
  pl.Close
  
  Desktop.ActiveWindow = <FONT Color=gray>''numero_identificativo_della_finestra''</font>
  
  Print "Registrazione fermata"
  Me.close
  
 End


Vediamo ora un esempio con un'applicazione ''a riga di comando''.

Anche in questo caso bisognerà avere cura di porre come finestra ''attiva'' quella del programma (di Gambas o esterno) interessato sia dopo l'avvio che dopo l'arresto della registrazione video-audio). Per fare ciò, pur in assenza di ambiente grafico, si potrà comunque attivare il Componente grafico (ad esempio) ''gb.gtk3'' (meglio non utilizzare le risorse di ''QT'', per non incorrere in eventuali incompatibilità fra le risorse di ''GSreamer'' e ''QT''), il quale permetterà di attivare anche il Componente ''gb.desktop'' per il successivo uso della Proprietà ".ActiveWindow".
 Private Const FINESTRA_PROGRAMMA As Integer = <FONT Color=gray>''numero_identificativo_della_finestra''</font>
 Private bo As Boolean
 
 
 Public Sub Main()
  
   Dim pl As MediaPipeline
   Dim srcv, vcon, que1, the, que2, srca, que3, acon, vor, que4, ogg, snk As MediaControl
   Dim flv, fla As MediaFilter
    
   pl = New MediaPipeline 
   
   srcv = New MediaControl(pl, "ximagesrc")
   srcv["xid"] = FINESTRA_PROGRAMMA
   flv = New MediaFilter(pl, "video/x-raw,framerate=2/1")
   vcon = New MediaControl(pl, "videoconvert")
   que1 = New MediaControl(pl, "queue")
   the = New MediaControl(pl, "theoraenc")
   que2 = New MediaControl(pl, "queue")
   srca = New MediaControl(pl, "alsasrc")
   fla = New MediaFilter(pl, "audio/x-raw,rate=44100,channels=2,width=16,depth=16")
   que3 = New MediaControl(pl, "queue")
   acon = New MediaControl(pl, "audioconvert")
   vor = New MediaControl(pl, "vorbisenc")
   que4 = New MediaControl(pl, "queue")
   ogg = New MediaControl(pl, "oggmux")
   snk = New MediaControl(pl, "filesink")
   snk["location"] = "/tmp/video.ogv"
    
 <FONT Color=gray>' ''Parte video:''</font>
   srcv.LinkTo(flv)
   flv.LinkTo(vcon)
   vcon.LinkTo(que1)
   que1.LinkTo(the)
   the.LinkTo(que2)
   que2.LinkTo(ogg)
 
 <FONT Color=gray>' ''Parte audio:''</font>
   srca.LinkTo(fla)
   fla.LinkTo(que3)
   que3.LinkTo(acon)
   acon.LinkTo(vor)
   vor.LinkTo(que4)
 <FONT Color=gray>' ''Combinazione dei dati audio e video:''</font>
   que4.LinkTo(ogg)
 <FONT Color=gray>' ''Creazione del file .ogv finale:''</font>
   ogg.LinkTo(snk)
    
 <FONT Color=gray>' ''Avvia la ripresa audio-video:''</font>
   pl.Play()
   
 <FONT Color=gray>' ''Pone come attiva la finestra del programma prescelto:''</font>
   Desktop.ActiveWindow = FINESTRA_PROGRAMMA
   
   Repeat
 <FONT Color=gray>' ''Mostra in console/terminale il tempo trascorso dall'inizio della ripresa audio-video:''</font>
     Write "\rTempo: " & Time(0, 0, 0, pl.Position * 1000)
     Wait 0.01
   Until bo = True
   
 <FONT Color=gray>' ''Pone <U>nuovamente</u> come attiva la finestra del programma prescelto:''</font>
   Desktop.ActiveWindow = FINESTRA_PROGRAMMA
   
   pl.Stop()
   pl.Close()
 
   Print "Termine registrazione"
   Quit
   
 End
 
 
 Public Sub Application_Read()
  
   bo = True
  
 End