Video-Einbettung :)

GronkhLP · Beitrag von **GronkhLP** » 15.11.2013 23:50

Tach Leute!

Ich habe bissel herum probiert und kam auf ein Problem. Nichts großes, ich habe ein Fenster mit WebGadget obendrauf und will gerne ein Video in voller Breite und Höhe anzeigen lassen.
Ich könnte via Javascript die DOM-Struktur anpassen, aber wie erhalte ich beim WebGadget Zugriff?

Mein versuchter Code:

Code: Alles auswählen

EnableExplicit

Define Event, Quit

If OpenWindow(0, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  WebGadget(0, 0, 0, 800, 600, "http://www.youtube.com/watch?v=TcbHmxObXlc")
  
  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End

Ich bin gespannt auf eure Lösungen oder Tipps.

Beitrag von **RSBasic** » 15.11.2013 23:55

Du möchtest also nur das Video ohne die ganzen anderen HTML-Elemente haben oder?

Code: Alles auswählen

EnableExplicit

Define EventID
Define HTMLCode$

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  WebGadget(1, 0, 0, 500, 400, "")
  
  HTMLCode$ + "<html>"
  HTMLCode$ +   "<head>"
  HTMLCode$ +     "<style type=''text/css''>"
  HTMLCode$ +       "body {"
  HTMLCode$ +         "margin: 0;"
  HTMLCode$ +       "}"
  HTMLCode$ +     "</style>"
  HTMLCode$ +   "</head>"
  HTMLCode$ +   "<body>"
  HTMLCode$ +     "<iframe width=''100%'' height=''100%'' src=''https://youtube.googleapis.com/v/TcbHmxObXlc''></iframe>"
  HTMLCode$ +   "</body>"
  HTMLCode$ + "</html>"
  
  HTMLCode$ = ReplaceString(HTMLCode$, "''", Chr(34))
  SetGadgetItemText(1, #PB_Web_HtmlCode, HTMLCode$)
  
  Repeat
    EventID = WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

GronkhLP · Beitrag von **GronkhLP** » 16.11.2013 21:29

Danke RSBasic, genau so wollte ich es haben. TOP!

PureBoard

Video-Einbettung :)

Video-Einbettung :)

Re: Video-Einbettung :)

Re: Video-Einbettung :)