Differenze tra le versioni di "Eseguire in streaming un video da youtube mediante l'oggetto WebView"
Da Gambas-it.org - Wikipedia.
| Riga 14: | Riga 14: | ||
Dim wv As WebView | Dim wv As WebView | ||
| − | Dim s As String = "<HTML><meta content=text/html; charset=ISO-8859-1 http-equiv=content-type><title>prueba</title></head>" & | + | Dim s As String = "<HTML><head><meta content=text/html; charset=ISO-8859-1 http-equiv=content-type><title>prueba</title></head>" & |
"<body><iframe src=https://www.youtube.com/embed/NgUGjCVkXXY height=315 width=420></iframe></body></html>" | "<body><iframe src=https://www.youtube.com/embed/NgUGjCVkXXY height=315 width=420></iframe></body></html>" | ||
Versione delle 11:13, 28 giu 2015
Per eseguire in streaming un video direttamente da youtube con l'oggetto WebView si dovrà passare alla sua proprietà .HTML uno specifico codice in html, avendo nel contempo cura di:
- attivare il componente gb.qt4.webkit;
- attivare da codice i plugin necessari per il video;
- far sì che l'indirizzo del video da eseguire sia così formato da tre parti:
- la parte finale sia rappresentata soltanto dal codice identificativo del video;
- tra la parte inziale del dominio e il codice identificativo del video vi deve essere inserita la parola " embed ".
Esempio:
https://www.youtube.com/embed/NgUGjCVkXXY
Vediamo di seguito un codice essenziale e funzionante:
Public Sub Form_Open()
Dim wv As WebView
Dim s As String = "<HTML><head><meta content=text/html; charset=ISO-8859-1 http-equiv=content-type><title>prueba</title></head>" &
"<body><iframe src=https://www.youtube.com/embed/NgUGjCVkXXY height=315 width=420></iframe></body></html>"
WebSettings[WebSettings.PluginsEnabled] = True
With wv = New WebView(Me)
.X = 50
.Y = 100
.W = 420
.H = 315
.HTML = s
End With
End
