Usare i file SWF con l'oggetto WebView di Gambas

Da Gambas-it.org - Wikipedia.

In Gambas i file SWF sono eseguibili con l'oggetto WebView. Pertanto è necessario attivare i Componenti gb.qt4, gb.qt4.ext e gb.qt4.webkit, oppure i Componenti gb.qt5, gb.qt5.ext e gb.qt5.webkit, ed utilizzare così sul Form il predetto oggetto WebView, ed in particolare la sua proprietà ".HTML".

Altresì bisognerà:

  • assegnare alla proprietà .HTML la stringa in html: <embed src=file///percorso/del/file.swf />, avendo cura di premettere sempre la stringa del percorso con " file:// "
  • attivare almeno i plug-in delle pagine web.


Uso del TAG "Embed"

La riga di comando da passare alla proprietà .HTML dell'oggetto WebView, potrà essere costituita dal TAG "EMBED" del protocollo html:

Public Sub Form_Open()
 
 Dim swf As String
 
 'Impostiamo la stringa contenente il percorso del file swf:
  swf = "file:///percorso/del/file.swf"
  
 'Attiviamo i plug-in delle pagine web:
  WebSettings[WebSettings.PluginsEnabled] = True
  
 'Assegnamo alla proprietà la riga di comando con i tag html necessari:
  WebView1.HTML = "<EMBED src=" & swf & " width=500 height=400 />"
  
End


Uso del TAG "Object"

La riga di comando da passare alla proprietà .HTML dell'oggetto WebView, potrà essere costituita dal TAG "OBJECT" del protocollo html:

Public Sub Form_Open()
 
 Dim swf As String
 
 'Impostiamo la stringa contenente il percorso del file swf:
  swf = "file:///percorso/del/file.swf"
  
 'Attiviamo i plug-in delle pagine web:
  WebSettings[WebSettings.PluginsEnabled] = True
  
 'Assegnamo alla proprietà la riga di comando con i tag html necessari:
  WebView1.HTML = "<OBJECT width=480 height=240 data=" & swf & "></object>"
  
End