Visualizza wikitesto di Alsa e Gambas - Dereferenziazione mediante una Struttura

Come è ormai noto, la funzione esterna di Alsa:
 int  snd_seq_event_input(snd_seq_t * seq, snd_seq_event_t ** ev)
assegna alla variabile di tipo ''Pointer'', presente come suo secondo parametro, l'indirizzo di memoria che punta ad una Struttura (esterna) contenente i dati Midi passati da Alsa.


Possiamo dereferenziare tale variabile di tipo ''Pointer'', per ''estrarne'' i dati Midi utili, mediante una variabile di tipo ''Struttura''. Questo argomento è descritto in via generale ed astratta nella pagina "[[Dereferenziare senza Memory-Stream un Puntatore ad una Struttura, passato da una funzione esterna]]" della WIKI.

Ne sviluppiamo di seguito un esempio essenziale astratto:
 <FONT color=gray>' ''All'inizio della Classe dichiariamo una "Struttura" avente i propri elementi organizzati esattamente come l'evento Midi prescritto da Alsa nella Struttura ''[https://www.alsa-project.org/alsa-doc/alsa-lib/structsnd__seq__event__t.html snd_seq_event_t]:''</font>
  Public Struct MidiStruttura
    type As Byte                <FONT color=gray>' ''byte indice 0''</font>
    flag As Byte
    tag As Byte
    queue As Byte
    tick_o_tv_sec As Integer
    tv_nsec As Integer
    source_client As Byte
    source_port As Byte
    dest_client As Byte
    dest_port As Byte           <FONT color=gray>' ''byte indice 15''</font>
    channel As Byte             <FONT color=gray>' ''byte indice 16''</font>
    note As Byte                <FONT color=gray>' ''byte indice 17''</font>
    velocity As Byte            <FONT color=gray>' ''byte indice 18''</font>
    off_velocity As Byte
    param As Integer            <FONT color=gray>' ''byte indice 20''</font>
    value As Integer            <FONT color=gray>' ''byte indice 24''</font>
  End Struct
 
 ......
 ......
 
 
  Dim i As Integer
  Dim p As Pointer           <FONT color=gray>' ''La variabile da dereferenziare per raccogliere i dati degli Eventi Midi Alsa''</font>
  Dim midi As MidiStruttura  <FONT color=gray>' ''La variabile del tipo della Struttura "MidiStruttura"''</font>
 
  Do
    i = snd_seq_event_input(handle, VarPtr(p))
    If i < 0 Then Return
 
 <FONT color=gray>' ''Dereferenziamo senza "Memory-Stream" il Puntatore, passato dalla funzione esterna di Alsa "snd_seq_event_input()", assegnando detto "Puntatore" alla variabile dichiarata di tipo "MidiStruttura":''</font>
    <FONT color=#B22222>midi = p</font>
 
 <FONT color=gray>' ''Filtra i tipi di Eventi Midi di ALSA che non interessano:''</font>
    If midi.type > 14 Then Return
 
   With midi
     Print .channel,
     Print .note,
     Print .velocity
   End With
 
  Loop