Versione delle 19:15, 6 ago 2017

Per catturare un'immagine (come se in sostanza si scattasse una foto) con una webcam mediante il Componente gb.media ^{[Nota 1]}, si utilizzeranno le Classi MediaPipeline e MediaControl.

Mostriamo un esempio pratico:

Public Sub Main()
 
 Dim pl As MediaPipeline
 Dim src, enc, snk As MediaControl
 
  pl = New MediaPipeline 
  
  src = New MediaControl(pl, "v4l2src")
' Cattura un fotogramma dalla webcam e lo salva come immagine jpeg:
  src["num-buffers"] = 1
  enc = New MediaControl(pl, "jpegenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/percorso/del/file/immagine.jpg"
  
' Colleghiamo fra loro i plugin di "GStreamer":
  src.LinkTo(enc)
  enc.LinkTo(snk)
  
' Effettua la ripresa dell'immagine:
  pl.Play()
  
' Per consentire la creazione definitiva del file immagine, è necessario impostare un ciclo infinito.
' La chiusura del programma dovrà avvenire manualmente da parte dell'utente.
  Do
    Wait 0.01
  Loop
  
End

Si è visto sopra che risulta necessaria l'impostazione di un ciclo infinito, senza il quale il file immagine, seppur generato, non verrà riempito dei previsti dati immagine del protocollo JPEG. Qualora non si intenda inserire tale ciclo, ma si preferisca far chiudere il programma automaticamente da codice, si potranno prevedere due diverse alternative.

La prima prevede l'inserimento dell'istruzione "Input" al posto del ciclo. Ciò però non è sufficiente a garantire la persistenza del file immagine generato e popolato dei necessari dati immagine. Per garantire la persistenza del file pieno si potrà inserire dopo l'istruzione "Input" la funzione "Copy" per copiare il nuovo file immagine in un altro identico, ma di nome diverso.

Public Sub Main()
  
 Dim pl As MediaPipeline
 Dim src, enc, snk As MediaControl
 Dim s As String
  
  pl = New MediaPipeline 
  
  src = New MediaControl(pl, "v4l2src")
' Cattura un fotogramma dalla webcam e lo salva come immagine jpeg:
  src["num-buffers"] = 1
  enc = New MediaControl(pl, "jpegenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/percorso/del/file/immagine.jpg"
  
' Colleghiamo fra loro i plugin di "GStreamer":
  src.LinkTo(enc)
  enc.LinkTo(snk)
  
' Effettua la ripresa dell'immagine:
  pl.Play()
  
  Input s
  
  Copy "/percorso/del/file/immagine.jpg" To "/percorso/del/copiato/e/rinominato/file/immagine.jpg"
  
  pl.Stop
  pl.Close
  
End

L'altra possibilità consiste nel prevedere al termine del codice l'inserimento della funzione esterna "_exit( )", dichiarata nel file header "/usr/include/unistd.h".
Mostriamo un esempio:

' void _exit (int __status)
' Terminate program execution with the low-order 8 bits of STATUS.
Private Extern _exit(__status As Integer) In "libc:6"


Public Sub Main()
  
 Dim pl As MediaPipeline
 Dim src, enc, snk As MediaControl
  
  pl = New MediaPipeline 
  
  src = New MediaControl(pl, "v4l2src")
' Cattura un fotogramma dalla webcam e lo salva come immagine jpeg:
  src["num-buffers"] = 1
  enc = New MediaControl(pl, "jpegenc")
  snk = New MediaControl(pl, "filesink")
  snk["location"] = "/percorso/del/file/immagine.jpg"
  
' Colleghiamo fra loro i plugin di "GStreamer":
  src.LinkTo(enc)
  enc.LinkTo(snk)
  
' Effettua la ripresa dell'immagine:
  pl.Play()
  
' Si utilizza la funzione esterna "_exit( )" per uscire dal programma con la sicurezza che il file immagine sarà realizzato:
  _exit(0)
  
End

Note

[1] Vedere al riguardo anche questa pagina della wiki: Estrarre e salvare singole immagini da una ripresa video mediante WebCam effettuata con il Componente gb.media