Visualizza wikitesto di Ottenere alcune informazioni sul dispositivo video di una webcam con le funzioni esterne del API di libv4l2

La risorsa '''libv4l''' è una raccolta di librerie per la gestione dei dispositivi ''video4linux2'' evitando che si debba scrivere del codice separato, nella stessa classe, per i diversi dispositivi. ''libv4l'' è composta da tre librerie differenti: ''libv4lconvert'', ''libv4l1'' e ''libv4l2''. 

La libreria ''libv4l2'', che qui ci interessa, mette a disposizione l'API ''v4l2'' per i dispositivi ''v4l2''.

Per poter fruire delle risorse fornite dalla libreria ''v4l2'' è necessario richiamare nell'applicazione Gambas la seguente libreria dinamica condivisa: "''libv4l2.so.0.0.0'' ".

Mostriamo di seguito un possibile codice per conoscere alcune informazioni generali sul dispositivo d'Entrata video di una webcam:
 Private Enum O_RDONLY = 0, O_WRONLY, O_RDWR, O_NONBLOCK = &2000
 
 
 Library "libv4l2:0.0.0"
 
 Private Const VIDIOC_G_INPUT As Long = 2147767846
 Private Const VIDIOC_ENUMINPUT As Long = 3226490394
 Private Const VIDIOC_G_OUTPUT As Long = 2147767854
 Private Const VIDIOC_ENUMOUTPUT As Long = 3225966128
 
 Private Enum V4L2_INPUT_TYPE_TUNER = 1, V4L2_INPUT_TYPE_CAMERA 
 
 <FONT Color=gray>' ''int v4l2_open(const char * file, int oflag, ...)''
 ' ''Open a V4L2 device.''</font>
 Private Extern v4l2_open(fl As String, oflag As Integer, alterum As Integer) As Integer
 
 <FONT Color=gray>' ''int v4l2_ioctl(int fd, unsigned long int request, ...)''
 ' ''Query or select the current video input.''</font>
 Private Extern v4l2_ioctl(fd As Integer, request As Long, arg As Pointer) As Integer
 
 
 '''Public''' Sub Main()
 
  Dim fd, index, err As Integer
  Dim p As Pointer
  Dim st As Stream
  Dim tp As String
  
  fd = v4l2_open("/dev/video0", O_RDWR Or O_NONBLOCK, 0)
  If fd < 0 Then Error.Raise("Impossibile aprire il file-device !")
    
  err = v4l2_ioctl(fd, VIDIOC_G_INPUT, VarPtr(index))
  If err < 0 Then Error.Raise("Errore !")
    
  p = Alloc(SizeOf(gb.Byte), 80)
  st = Memory p For Write
  Write #st, index As Integer
 
  err = v4l2_ioctl(fd, VIDIOC_ENUMINPUT, p)
  If err < 0 Then Error.Raise("Errore !")
   
  Print "== Informazioni sull'Entrata video ==\n"
  Print "Nome:                  "; String@(p + 4)
   
  p += 36
  If Int@(p) == 1 Then
    tp = "Questa Entrata video utilizza un sintonizzatore (RF demodulator)."
  Else
    tp = "Entrata analogica in banda base (per esempio CVBS / Composite Video, S-Video, RGB)."
  Endif
  Print "Tipo:                  "; tp
    
  p += 4
  Print "Audioset:              "; Int@(p)
    
  p += 4
  Print "Sintonizzatore:        "; Int@(p)
    
  p += 4
  Print "Video standard:        "; Long@(p)
   
  p += 8
  Print "Stato del dispositivo: "; Int@(p)
    
  p += 4
  Print "Funzionalità:          "; Int@(p)
    
  st.Close
  Free(p)
   
 '''End'''



=Riferimenti=
* http://linuxtv.org/downloads/v4l-dvb-apis/index.html