Conoscere con le funzioni esterne di RtMidi le porte Midi disponibili nel sistema
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 conoscere le porte Midi di Entrata del proprio sistema. Sarà necessario avere installata nel proprio sistema la libreria condivisa: librtmidi.so.1.2.0.1
Mostriamo di seguito un possibile codice che mostra in una TextArea le porte Midi di Entrata presenti nel sistema. 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 <cstdlib>
#include "RtMidi.h"
#include <string.h>
RtMidiIn *rtmidi = 0;
int main(int c, char** s) {
unsigned int i = 0, nPorte;
std::string nomePorta;
std::string a;
rtmidi = new RtMidiIn();
if (strcmp((char *)s[0], "getPortCount()") == 0) {
nPorte = rtmidi->getPortCount();
return nPorte;
}
if (strcmp((char *)s[0], "getPortName()") == 0) {
for ( i=0; i<nPorte; i++ ) {
nomePorta = rtmidi->getPortName(i);
/* Vengono unite le stringhe di tipo base */
a = a + "\n" + nomePorta;
}
/* 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;
}
return (0);
}
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 ed una TextArea posti sul Form, sarà invece il seguente:
Library "/tmp/libadhoc"
Private Extern main(a As Integer, po As Pointer) As Integer
Public Sub Form_Open()
Dim numPorte As Integer
Dim p As Pointer
Shell "g++ -o /tmp/libadhoc.so " & Application.Path &/ "libadhoc.cpp -shared -fPIC -lrtmidi" Wait
p = Alloc("getPortCount()")
numPorte = main(0, VarPtr(p))
If numPorte = 0 Then Error.Raise("Impossibile trovare porte Midi in Entrata !")
p = Alloc("getPortName()")
main(0, VarPtr(p))
If IsNull(p) Then
Error.Raise("Impossibile ottenere il nome delle porte Midi in Entrata !")
Else
TextArea1.Text = "Numero porte Midi di Entrata trovate: " & numPorte & Chr(10)
TextArea1.Text &= String@(p)
Endif
End
Public Sub Button1_Click()
Quit
End
