Versione delle 19:01, 26 lug 2014

La libreria RtMidi è un insieme di classi C++ che fornisce funzionalità per la gestione dei dati Midi in entrata ed in uscita.

E' possibile con alcune funzioni esterne della libreria RtMidi intercettare i dati Midi grezzi provenienti da un dispositivo Midi. Sarà necessario avere installata nel proprio sistema la libreria condivisa: librtmidi.so.1.2.0.1

Mostriamo di seguito un possibile codice che intercetta i dati Midi grezzi provenienti da un dispositivo esterno e li scrive in console. Poiché la libreria RtMidi, come già accennato, è scritta in C++, non è possibile richiamare direttamente nel modo consueto con il comando Extern le sue necessarie funzioni esterne. Si rende, pertanto, necessario scrivere in C++ in un'apposita libreria condivisa, da noi realizzata, la parte di codice che richiama le predette funzioni esterne della libreria RtMidi, lasciando al codice dell'applicativo Gambas quanto più possibile e in particolare una funzione di coordinamento dell'intero processo. V'è da aggiungere che nell'esempio che segue, poiché non è stato possibile scrivere in autonome routine le varie funzioni esterne della libreria RtMidi, bensì tutte in quella sola principale, si è cercato un escamotage (come si potrà facilmente notare) per individuare e gestire da Gambas ogni singola funzione esterna necessaria.

La libreria esterna, da noi scritta, il cui sorgente in linguaggio C++ chiameremo ad esempio libadhoc.cpp è la seguente:

#include <sstream>
#include <cstdlib>
#include "RtMidi.h"
#include <string.h>


RtMidiIn *midiIn = 0;
unsigned int nPorteIn, nPorteEx;

void callback( double, std::vector< unsigned char > *, void * );


int main(int c, char** s) {

  std::string nomePortaIn, nomePortaOut, a;
  std::stringstream n;
  unsigned int i;

  midiIn = new RtMidiIn();

  if (strcmp((char *)s[0], "PorteEntrata") == 0) {
    nPorteIn = midiIn->getPortCount();
    return nPorteIn;
  }


  if (strcmp((char *)s[0], "NomePorteIn") == 0) {
    for ( i=0; i<nPorteIn; i++ ) {
      nomePortaIn = midiIn->getPortName(i);
      n << i;
/* Vengono unite le stringhe di tipo base */
      a = a + "\n" + n.str() + " " + nomePortaIn;
      n.str("");
    }
/* La variabile base stringa "a" viene convertita nel tipo 'char*'
   affinché possa essere restituita al codice Gambas attraverso il parametro "char** s" della routine "main()" */
     char* ritornare = strcpy((char*)malloc(a.length()+1), a.c_str());
     *s =  ritornare;
  }
 
 
  if (strcmp((char *)s[0], "openPort()") == 0) {
    midiIn->openPort( c );
    midiIn->setCallback( &callback );
  }
   
   
/* Imposta i valori booleani, se deve ignorare rispettivamente i messaggi: sysex, timing, active sensing*/
   if (strcmp((char *)s[0], "ignoreTypes()") == 0) {
     midiIn->ignoreTypes( false, true, true);
   }
 
 return (0);
 
}


void callback( double tempodelta, std::vector< unsigned char > *messaggio, void */*userData*/ ) {
  unsigned int nByte = messaggio->size();
  for ( unsigned int j=0; j<nByte; j++ )
    std::cout << "Byte " << j << " = " << (int)messaggio->at(j) << ", ";
  if ( nByte > 0 )
    std::cout << "timestamp = " << tempodelta << std::endl;
}

Tale sorgente, da noi scritto, della libreria condivisa sarà posto ad esempio nella cartella "Dati" dell'applicativo.

Il codice dell'applicativo Gambas, che tra l'altro prevede anche un Button posto sul Form, sarà invece il seguente:

Public Sub Form_Open()

 Dim numPorteIn, numPorteEx As Integer
 Dim p As Pointer
 Dim porta As String

  Shell "g++ -o /tmp/libadhoc.so " & Application.Path &/ "libadhoc.cpp -shared -fPIC -lrtmidi" Wait

  p = Alloc("PorteEntrata")
  numPorteIn = main(0, VarPtr(p))
  If numPorteIn = 0 Then Error.Raise("Impossibile trovare porte Midi in Entrata !")

 
  p = Alloc("NomePorteIn")
  main(0, VarPtr(p))
 
  TextArea1.Text = "Numero porte Midi di Entrata trovate: " & numPorteIn & Chr(10)
  TextArea1.Text &= String@(p)
   
  Me.Show

  porta = Val(InputBox("Porte Midi di Entrata trovate: " & numPorteIn & "\nScegli una porta:"))
 
  p = Alloc("openPort()")
  main(porta, VarPtr(p))
  
  p = Alloc("ignoreTypes()")
  main(0, VarPtr(p))

End


Public Sub Button1_Click()

 Quit

End

Riferimenti

• Il sito di RtMidi