Differenze tra le versioni di "Eseguire in streaming un video da youtube mediante l'oggetto WebView"
Da Gambas-it.org - Wikipedia.
| Riga 3: | Riga 3: | ||
* attivare da codice i plugin necessari per il video; | * attivare da codice i plugin necessari per il video; | ||
* far sì che l'indirizzo del video da eseguire sia così formato da tre parti: | * 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; | |
<BR>- tra la parte inziale del dominio e il codice identificativo del video vi <SPAN Style="text-decoration:underline">deve</span> essere inserita la parola " ''embed'' ". | <BR>- tra la parte inziale del dominio e il codice identificativo del video vi <SPAN Style="text-decoration:underline">deve</span> essere inserita la parola " ''embed'' ". | ||
Esempio: | Esempio: | ||
| − | https://www.youtube.com/<FONT Color=#B22222>embed</font>/NgUGjCVkXXY | + | <FONT Color=blue>https://www.youtube.com</font>/<FONT Color=#B22222>embed</font>/<FONT Color=darkgreen>NgUGjCVkXXY</font> |
Versione delle 10:06, 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><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 allowfullscreen= frameborder=0 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
