Eseguire un file audio mediante il codice html

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca

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

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

Per ascoltare via internet un file audio presente in una pagina WEB, bisognerà tenere conto se si sta usando la libreria grafica QT oppure GTK.

Usando un Componente grafico QT

Si potrà usare un Componente grafico basato sulla libreria QT:

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

La riga di comando scritta in html sarà passata al Metodo ".SetHtml()" dell'Oggetto WebView.
E' possibile eseguire con questa modalità i file audio di formato: wav, mp3, ogg, aac e wma.

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 audio.
' Se non si desidera l'esecuzione automatica del file audio, bisognerà togliere l'attributo "autoplay".
   .SetHtml("<AUDIO autoplay controls>" &
            "<Source src=https://music.midifiles.com/MP3-demos/2024021137.mp3 type=audio/mpeg>" &
            "</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://indirizzo/del/collegamento/web/del/file/audio type=audio/estensione_del_file_audio 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/audio>Cliccare qui</a>")
 End With

End

Le estensioni dei file audio possono essere:

file WAV => wav
file OGG => ogg
file MP3 => mpeg

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", e si utilizzerà il Metodo ".SetHtml()".

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://audio-previews.elements.envatousercontent.com/files/350747459/preview.mp3 type=audio/mpeg 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://indirizzo/del/collegamento/web/del/file/audio type=audio/estensione_del_file_audio 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/audio>Cliccare qui</a>")
 End With

End

Le estensioni dei file audio possono essere:

file WAV => wav
file OGG => ogg
file MP3 => mpeg