Eseguire un file MIDI mediante il codice html

Un file MIDI, presente in una pagina WEB, potrà essere eseguito con il protocollo HTML all'interno dell'Oggetto WebView.

Esecuzione di un file Midi da una pagina WEB mediante il codice HTML 5 e l'oggetto WebView

Per ascoltare via internet un file Midi presente in una pagina WEB, si potrà usare la libreria grafica QT oppure quella GTK.

Usando il Componente grafico basato sulla risorsa QT

Se si intende utilizzare la risorsa grafica QT, si potrà attivare una delle seguenti coppie di Componenti grafici:

• gb.gui.qt e gb.gui.qt.webview;
• gb.qt5 e gb.qt5.webview;
• gb.qt6 e gb.qt6.webview.

Mostriamo un esempio:

Public Sub Button1_Click()

 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
' L'attributo "src" contiene l'indirizzo web del file MIDI:
' Se non si desidera l'esecuzione automatica del file Midi, bisognerà togliere l'attributo "autoplay".
   .SetHtml("<AUDIO autoplay controls>" &
           "<Source src=https://cdn.jsdelivr.net/gh/cifkao/html-midi-player@2b12128/jazz.mid type=audio/midi>" &
           "</audio>")
 End With

End

oppure il TAG html "IFRAME":

Public Sub Button1_Click()
 
 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
   .SetHtml("<IFRAME src=http://www.musicimpressions.de/demos_midi/d_CR5027.mid type=audio/midi width=480 height=320></iframe>")
 End With

End

oppure il TAG html "A Href":

Public Sub Button1_Click()

 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
   .SetHtml("<A Href=http://indirizzo/del/collegamento/web/del/file/midi>Cliccare qui</a>")
 End With

End

Usando il Componente grafico "gb.gtk3"

Se si sta usando il Componente grafico "gb.gtk3", si dovrà ovviamente attivare anche il Componente "gb.gtk3.webview".

In tal caso si potrà adoperare il TAG html "AUDIO Controls":

Public Sub Button1_Click()

 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
   .SetHtml("<AUDIO Controls src=http://cdn.jsdelivr.net/gh/cifkao/html-midi-player@2b12128/jazz.mid type=audio/midi width=480 height=320>" &
            "</audio>")
 End With

End

oppure il TAG html "IFRAME":

Public Sub Button1_Click()
 
 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
   .SetHtml("<IFRAME src=http://www.musicimpressions.de/demos_midi/d_CR5027.mid type=audio/midi width=480 height=320></iframe>")
 End With

End

oppure il TAG html "A Href":

Public Sub Button1_Click()

 Dim wv As WebView

 With wv = New WebView(Me)
   .X = 50
   .Y = 100
   .W = 340
   .H = 170
   .SetHtml("<A Href=http://indirizzo/del/collegamento/web/del/file/midi>Cliccare qui</a>")
 End With

End