Differenze tra le versioni di "Eseguire in streaming un video da youtube mediante l'oggetto WebView"
| Riga 4: | Riga 4: | ||
Si fa uso della prorietà ''.HTML'' dell'oggetto ''WebView'' assegnandole uno specifico codice in html con due possibili elementi per eseguire in streaming i video da ''youtube'', avendo nel contempo cura di: | Si fa uso della prorietà ''.HTML'' dell'oggetto ''WebView'' assegnandole uno specifico codice in html con due possibili elementi per eseguire in streaming i video da ''youtube'', avendo nel contempo cura di: | ||
| − | * attivare | + | * attivare i Componenti ''gb.gtk3'' e ''gb.gtk3.webview'' (le risorse grafiche QT non sembrano più funzionare al riguardo); |
* 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: | ||
| Riga 25: | Riga 25: | ||
End With | End With | ||
| − | WebSettings[WebSettings. | + | WebSettings[WebSettings.Plugins] = True |
With wv = New WebView(Me) | With wv = New WebView(Me) | ||
| − | . | + | .SetHtml("<IFRAME width=640 height=480 src=http://www.youtube.com/embed/NgUGjCVkXXY frameborder=0 allowfullscreen></iframe>") |
| − | |||
| − | |||
End With | End With | ||
| Riga 49: | Riga 47: | ||
End With | End With | ||
| − | WebSettings[WebSettings. | + | WebSettings[WebSettings.Plugins] = True |
With wv = New WebView(Me) | With wv = New WebView(Me) | ||
| − | . | + | .SetHtml("<EMBED src=http://www.youtube.com/embed/NgUGjCVkXXY width=640 height=480></embed>") |
| − | |||
| − | |||
End With | End With | ||
| Riga 64: | Riga 60: | ||
E' necessario creare l'oggetto "WebView" da codice, avendo cura di: | E' necessario creare l'oggetto "WebView" da codice, avendo cura di: | ||
| − | * attivare | + | * attivare i Componenti ''gb.gtk3'' e ''gb.gtk3.webview'' (le risorse grafiche QT non sembrano più funzionare al riguardo); |
| − | + | * 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": | ||
| + | <FONT Color=blue>https://www.youtube.com</font>/<FONT Color=#B22222>embed</font>/<FONT Color=darkgreen>NgUGjCVkXXY</font> | ||
Mostriamo un semplice esempio: | Mostriamo un semplice esempio: | ||
| Riga 82: | Riga 80: | ||
With wv = New WebView(Me) | With wv = New WebView(Me) | ||
| − | + | .Url = "https://www.youtube.com/embed/NgUGjCVkXXY" | |
| − | |||
| − | .Url = "https://www.youtube.com/ | ||
End With | End With | ||
'''End''' | '''End''' | ||
Versione delle 15:36, 15 mag 2023
Per eseguire in streaming un video direttamente da youtube con l'oggetto WebView - senza che sia mostrata l'intera pagina del sito, ma solo il riquadro del video - sono possibili almeno tre modalità.
Indice
Uso della proprietà .HTML con uno specifico codice in html
Si fa uso della prorietà .HTML dell'oggetto WebView assegnandole uno specifico codice in html con due possibili elementi per eseguire in streaming i video da youtube, avendo nel contempo cura di:
- attivare i Componenti gb.gtk3 e gb.gtk3.webview (le risorse grafiche QT non sembrano più funzionare al riguardo);
- 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":
https://www.youtube.com/embed/NgUGjCVkXXY
Uso del tag <Iframe>
Questa modalità prevede che sia passata alla proprietà .HTML dell'oggetto WebView uno specifico codice in html contenente il Tag "<Iframe>".
Vediamo di seguito un codice essenziale e funzionante:
Public Sub Form_Open()
Dim wv As WebView
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
End With
WebSettings[WebSettings.Plugins] = True
With wv = New WebView(Me)
.SetHtml("<IFRAME width=640 height=480 src=http://www.youtube.com/embed/NgUGjCVkXXY frameborder=0 allowfullscreen></iframe>")
End With
End
Uso del tag <Embed>
Possiamo, similmente al caso precedente, utilizzare il tag <Embed>.
Vediamo di seguito un codice essenziale e funzionante:
Public Sub Form_Open()
Dim wv As WebView
With Me
.W = Screen.AvailableWidth
.H = Screen.AvailableHeight
.Arrangement = Arrange.Fill
End With
WebSettings[WebSettings.Plugins] = True
With wv = New WebView(Me)
.SetHtml("<EMBED src=http://www.youtube.com/embed/NgUGjCVkXXY width=640 height=480></embed>")
End With
End
Uso della proprietà .Url
Questa modalità è più semplice nella sua codifica rispetto alla modalità precedente. Essa si basa sull'uso della proprietà .Url dell'oggetto WebView.
E' necessario creare l'oggetto "WebView" da codice, avendo cura di:
- attivare i Componenti gb.gtk3 e gb.gtk3.webview (le risorse grafiche QT non sembrano più funzionare al riguardo);
- 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":
https://www.youtube.com/embed/NgUGjCVkXXY
Mostriamo un semplice esempio:
Public Sub Form_Open() Dim wv As WebView With Me .W = Screen.AvailableWidth .H = Screen.AvailableHeight .Arrangement = Arrange.Fill End With WebSettings[WebSettings.PluginsEnabled] = True With wv = New WebView(Me) .Url = "https://www.youtube.com/embed/NgUGjCVkXXY" End With End
