PureBoard

Code: Alles auswählen

Procedure.l StreamPlay(URL.s)       ;- Start RadioStream-Output
  Protected Browser.IWebBrowser2
  Protected Document.IHTMLDocument2
  Protected DocumentDispatch.IDispatch
  Protected result.l, Busy.l, Unicode.s, bstr_string.l, *sfArray, *varParam.VARIANT
  Protected Html.s, WebGad
  ;erstmal HTML-Steuerung aufbauen:
  Html + "<object id='VIDEO' width='0' height='0'" 
  Html + "style='position:absolute; left:0; top:0;'"
  Html + "classid='clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6'" ;normal video
  Html + "type='application/x-oleobject'>"
  Html + "<param name='URL' value='" + URL + "'>"
  ;  Html + "<param name='volume' value='" + Str(GetGadgetState(#Volume)) + "'>"
  Html + "<param name='StretchToFit' value='true'>"
  Html + "<param name='UiMode' value='mini'>"
  Html + "<param name='EnableContextMenu' value='false'>"
  Html + "</object>"
  WebGad=WebGadget(#PB_Any,0,0,0,0,"about:blank",#PB_Web_Mozilla) ;gadget aufbauen...
  HideGadget(WebGad,1)                                     ;... und gleich verstecken
  Browser = GetWindowLong_(GadgetID(WebGad), #GWL_USERDATA)
  Repeat ;warten, bis browser bereit...
    While WindowEvent(): Wend
    Browser\get_Busy(@Busy)
    If Busy : Delay(10) : EndIf
  Until Not Busy 
  If Browser
    If Browser\get_document(@DocumentDispatch) = #S_OK And DocumentDispatch
      If DocumentDispatch\QueryInterface(?IID_IHTMLDocument2, @Document) = #S_OK
        If Document
          Unicode = Space(Len(Html) * 2 + 2)
          PokeS(@Unicode, Html, - 1, #PB_Unicode)
          bstr_string = SysAllocString_(@Unicode)
          *sfArray = SafeArrayCreateVector_(#VT_VARIANT, 0, 1)
          If *sfArray
            If SafeArrayAccessData_(*sfArray, @*varParam) = #S_OK
              *varParam\vt = #VT_BSTR
              *varParam\bstrVal = bstr_string
              If SafeArrayUnaccessData_(*sfArray) = #S_OK
                Document\write(*sfArray)
                result = #True ;Document written
              EndIf
            EndIf
            SafeArrayDestroy_(*sfArray)
          EndIf
          SysFreeString_(bstr_string)
        EndIf
        Document\close()
        Document\Release()
      EndIf
      DocumentDispatch\Release()
    EndIf
  EndIf
  ProcedureReturn result
  DataSection
  IID_IHTMLDocument2: ;{332C4425-26CB-11D0-B483-00C04FD90119}
  Data.l $332C4425
  Data.w $26CB, $11D0
  Data.b $B4, $83, $00, $C0, $4F, $D9, $01, $19
EndDataSection
EndProcedure



WinID=OpenWindow(0,0,0,0,0,"Radio",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WinID)

StreamPlay("http://ice.streaming.spacenet.de:80/dieneue1077_80er")

Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

Code: Alles auswählen

Enumeration
  #MyWindow
  #WebGadget
EndEnumeration

OpenWindow(#MyWindow,0,0,0,0,"Radio",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(#MyWindow))

;erstmal HTML-Steuerung aufbauen:
Html.s
Html + "<object id='VIDEO' width='0' height='0'"
Html + "style='position:absolute; left:0; top:0;'"
Html + "classid='clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6'" ;normal video
Html + "type='application/x-oleobject'>"
Html + "<param name='URL' value='http://ice.streaming.spacenet.de:80/dieneue1077_80er'>"
;  Html + "<param name='volume' value='" + Str(GetGadgetState(#Volume)) + "'>"
Html + "<param name='StretchToFit' value='true'>"
Html + "<param name='UiMode' value='mini'>"
Html + "<param name='EnableContextMenu' value='false'>"
Html + "</object>"

WebGadget(#WebGadget,0,0,0,0,"about:blank",#PB_Web_Mozilla) ;gadget aufbauen...

While GetGadgetAttribute(#WebGadget, #PB_Web_Busy) <> 0
  While WindowEvent() : Delay(0) : Wend
Wend

SetGadgetItemText(#WebGadget, #PB_Web_HtmlCode, Html)

  
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow