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(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