iframe et WebGadget
Publié : mar. 16/août/2016 12:06
je coince !
quelqu'un a reussi a faire afficher un iframe correcte avec le Web Gadget
je tentais un lecteur de youtube , ça marche si on clique sur la toute petite partie noire qui apparait
dans le Iframe ... mais le probleme c'est justement la taille du Iframe
qui est reduite , j'ai tout essayé ou presque
(pas tester de balancer l'ordi par la fenetre ....parait meme que c'est pour ça que le systeme d'exploitation s'appel windows )
mon code actuel (inspiré sur Falsam )
quelqu'un a reussi a faire afficher un iframe correcte avec le Web Gadget
je tentais un lecteur de youtube , ça marche si on clique sur la toute petite partie noire qui apparait
dans le Iframe ... mais le probleme c'est justement la taille du Iframe
qui est reduite , j'ai tout essayé ou presque
(pas tester de balancer l'ordi par la fenetre ....parait meme que c'est pour ça que le systeme d'exploitation s'appel windows )
mon code actuel (inspiré sur Falsam )
Code : Tout sélectionner
Enumeration font
#globalFont ;Web + control
#italicFont ;Current select
EndEnumeration
Enumeration window
#mainForm
EndEnumeration
Enumeration gadget
#audio
#stream
#soundSelect
#nowplaying
EndEnumeration
Declare seturl(source.s)
Global stream.s, HTML.s
; Fonts
LoadFont(#globalFont, "Arial", 9)
SetGadgetFont(#PB_Default, FontID(#globalFont))
; Form
OpenWindow(#mainForm, 10, 10, 800, 600, "Youtube via Javascript", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowColor(#mainForm, RGB(128, 128, 128))
WebGadget (#audio,0, 0, 800, 600,"")
setUrl(source.s)
repeat
event=WaitWindowEvent()
Until event=#PB_Event_CloseWindow
Procedure setUrl(source.s)
;HTM
HTML.s="<!doctype html>"+chr(13)
HTML.s+"<html lang="+chr(34)+"fr"+chr(34)+">"+chr(13)
HTML.s+"<head>"+chr(13)
HTML.s+"<meta charset="+chr(34)+"utf-8"+chr(34)+">"+chr(13)
HTML.s+"<title>Titre de la page</title>"+chr(13)
HTML.s+"<link rel="+chr(34)+"stylesheet"+chr(34)+" href="+chr(34)+"style.css"+chr(34)+">"+chr(13)
HTML.s+"</head>"+chr(13)
HTML.s+"<body>"+chr(13)
HTML.s+"<iframe src='https://www.youtube.com/embed/FvrMkzd1ULk' width="+chr(34)+"854"+chr(34)+" height="+chr(34)+"480"+chr(34)+"> </iframe>"+chr(13);
HTML.s+"</body>"+chr(13)
HTML.s+"</html>"+chr(13)
SetGadgetItemText(#audio, #PB_Web_HtmlCode , HTML)
EndProcedure
;Epb
